16,717
社区成员
发帖
与我相关
我的任务
分享
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, j, intYear, intMonth, intDays As Integer
Dim strShowLine As String
intYear = Int(Val(InputBox("请输入年份")))
intMonth = Int(Val(InputBox("请输入月份")))
If intYear < 1900 Or intYear > 9999 Then
intYear = DateTime.Now.Year
End If
If intMonth < 1 Or intMonth > 12 Then
intMonth = DateTime.Now.Month
End If
intDays = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, DateSerial(intYear, intMonth, 1))).Day
RichTextBox1.Text = "SUM MON TUE WED THU FRI SAT" & Chr(13)
strShowLine = ""
For i = 0 To 6
If i <> DateSerial(intYear, intMonth, 1).DayOfWeek Then
strShowLine &= " " & " "
Else
Exit For
End If
Next
For i = 1 To intDays
If DateSerial(intYear, intMonth, i).DayOfWeek = 0 Then
RichTextBox1.Text &= strShowLine & Chr(13)
strShowLine = ""
End If
strShowLine &= IIf(i < 10, " " & i.ToString, i.ToString) & " "
Next
RichTextBox1.Text &= strShowLine & Chr(13)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, j, intYear, intMonth, intDays As Integer
Dim strShowLine As String
intYear = Int(Val(InputBox("请输入年份")))
intMonth = Int(Val(InputBox("请输入月份")))
If intYear < 1900 Or intYear > 9999 Then
intYear = DateTime.Now.Year
End If
If intMonth < 1 Or intMonth > 12 Then
intMonth = DateTime.Now.Month
End If
intDays = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, DateSerial(intYear, intMonth, 1))).Day
RichTextBox1.Text = "SUM MON TUE WED THU FRI SAT" & Chr(13)
strShowLine = ""
For i = 0 To 6
If i <> DateSerial(intYear, intMonth, 1).DayOfWeek Then
strShowLine &= " " & " "
Else
Exit For
End If
Next
For i = 1 To intDays
If DateSerial(intYear, intMonth, i).DayOfWeek = 0 Then
RichTextBox1.Text &= strShowLine & Chr(13)
strShowLine = ""
End If
strShowLine &= IIf(i < 10, " " & i.ToString, i.ToString) & " "
Next
RichTextBox1.Text &= strShowLine & Chr(13)
End Sub