手机上的日历
发布网友
发布时间：2022-06-04 07:12
共2个回答
热心网友
时间：2022-07-10 07:16
Select Case Combo1.ListIndex
Case 0: For i = 28 To 30
Label4(i).Visible = True
Next i
Case 1:
If Val(Combo2.Text) Mod 4 = 0 Then
For i = 29 To 30
Label4(i).Visible = False
Next i
Label4(28).Visible = True
Else
For i = 28 To 30
Label4(i).Visible = False
Next i
End If
Case 2:
For i = 28 To 30
Label4(i).Visible = True
Next i
Case 3:
For i = 27 To 29
Label4(i).Visible = True
Next i
Case 4:
For i = 28 To 30
Label4(i).Visible = True
Next i
Case 5:
For i = 27 To 29
Label4(i).Visible = True
Next i
Label4(30).Visible = False
Case 6:
For i = 28 To 30
Label4(i).Visible = True
Next i
Case 7:
For i = 28 To 30
Label4(i).Visible = True
Next i
Case 8:
For i = 27 To 29
Label4(i).Visible = True
Next i
Label4(30).Visible = False
Case 9:
For i = 28 To 30
Label4(i).Visible = True
Next i
Case 10:
For i = 27 To 29
Label4(i).Visible = True
Next i
Label4(30).Visible = False
Case 11:
For i = 28 To 30
Label4(i).Visible = True
Next i
End Select
End Sub
Private Sub Combo2_Click()
Select Case Combo1.ListIndex
Case 0: For i = 28 To 30
Label4(i).Visible = True
Next i
Case 1:
If Val(Combo2.Text) Mod 4 = 0 Then
For i = 29 To 30
Label4(i).Visible = False
Next i
Label4(28).Visible = True
Else
For i = 28 To 30
Label4(i).Visible = False
Next i
End If
Case 2:
For i = 28 To 30
Label4(i).Visible = True
Next i
Case 3:
For i = 27 To 29
Label4(i).Visible = True
Next i
Case 4:
For i = 28 To 30
Label4(i).Visible = True
Next i
Case 5:
For i = 27 To 29
Label4(i).Visible = True
Next i
Label4(30).Visible = False
Case 6:
For i = 28 To 30
Label4(i).Visible = True
Next i
Case 7:
For i = 28 To 30
Label4(i).Visible = True
Next i
Case 8:
For i = 27 To 29
Label4(i).Visible = True
Next i
Label4(30).Visible = False
Case 9:
For i = 28 To 30
Label4(i).Visible = True
Next i
Case 10:
For i = 27 To 29
Label4(i).Visible = True
Next i
Label4(30).Visible = False
Case 11:
For i = 28 To 30
Label4(i).Visible = True
Next i
End Select
End Sub
Private Sub Command1_Click()
For i = 0 To 30
If Label4(i).BorderStyle = 1 Then
Label3.Caption = Combo2.Text & "年" & Combo1.ListIndex + 1 & "月" & Label4(i).Caption & "日"
c = Val(Combo2.Text) \ 100
If Combo1.ListIndex < 2 Then
m = 12 + Combo1.ListIndex + 1
y = (Val(Combo2.Text) - 1) Mod 1000
Else
m = Combo1.ListIndex + 1
y = Val(Combo2.Text) Mod 1000
End If
d = i + 1
w = (d + 2 * m + 3 * (m + 1) / 5 + y + y / 4 - y / 100 + y / 400)
w = Abs(w)
num = w Mod 7
Select Case num
Case 0: Label5.Caption = "星期日"
Case 1: Label5.Caption = "星期一"
Case 2: Label5.Caption = "星期二"
Case 3: Label5.Caption = "星期三"
Case 4: Label5.Caption = "星期四"
Case 5: Label5.Caption = "星期五"
Case 6: Label5.Caption = "星期六"
End Select
End If
Next i
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Combo1.ListIndex = 0
Combo2.ListIndex = 0
End Sub
Private Sub Label4_Click(Index As Integer)
Select Case Index
Case 0: Label4(0).BorderStyle = 1
For i = 1 To 30
Label4(i).BorderStyle = 0
Next i
Case 1: Label4(1).BorderStyle = 1
Label4(0).BorderStyle = 0
For i = 2 To 30
Label4(i).BorderStyle = 0
Next i
Case 2: Label4(2).BorderStyle = 1
For i = 0 To 1
Label4(i).BorderStyle = 0
Next i
For i = 3 To 30
Label4(i).BorderStyle = 0
Next i
Case 3: Label4(3).BorderStyle = 1
For i = 0 To 2
Label4(i).BorderStyle = 0
Next i
For i = 4 To 30
Label4(i).BorderStyle = 0
Next i
Case 4: Label4(4).BorderStyle = 1
For i = 0 To 3
Label4(i).BorderStyle = 0
Next i
For i = 5 To 30
Label4(i).BorderStyle = 0
Next i
Case 5: Label4(5).BorderStyle = 1
For i = 0 To 4
Label4(i).BorderStyle = 0
Next i
For i = 6 To 30
Label4(i).BorderStyle = 0
Next i
Case 6: Label4(6).BorderStyle = 1
For i = 0 To 5
Label4(i).BorderStyle = 0
Next i
For i = 7 To 30
Label4(i).BorderStyle = 0
Next i
Case 7: Label4(7).BorderStyle = 1
For i = 0 To 6
Label4(i).BorderStyle = 0
Next i
For i = 8 To 30
Label4(i).BorderStyle = 0
Next i
Case 8: Label4(8).BorderStyle = 1
For i = 0 To 7
Label4(i).BorderStyle = 0
Next i
For i = 9 To 30
Label4(i).BorderStyle = 0
Next i
Case 9: Label4(9).BorderStyle = 1
For i = 0 To 8
Label4(i).BorderStyle = 0
Next i
For i = 10 To 30
Label4(i).BorderStyle = 0
Next i
Case 10: Label4(10).BorderStyle = 1
For i = 0 To 9
Label4(i).BorderStyle = 0
Next i
For i = 11 To 30
Label4(i).BorderStyle = 0
Next i
Case 11: Label4(11).BorderStyle = 1
For i = 0 To 10
Label4(i).BorderStyle = 0
Next i
For i = 12 To 30
Label4(i).BorderStyle = 0
Next i
Case 12: Label4(12).BorderStyle = 1
For i = 0 To 11
Label4(i).BorderStyle = 0
Next i
For i = 13 To 30
Label4(i).BorderStyle = 0
Next i
Case 13: Label4(13).BorderStyle = 1
For i = 0 To 12
Label4(i).BorderStyle = 0
Next i
For i = 14 To 30
Label4(i).BorderStyle = 0
Next i
Case 14: Label4(14).BorderStyle = 1
For i = 0 To 13
Label4(i).BorderStyle = 0
Next i
For i = 15 To 30
Label4(i).BorderStyle = 0
Next i
Case 15: Label4(15).BorderStyle = 1
For i = 0 To 14
Label4(i).BorderStyle = 0
Next i
For i = 16 To 30
Label4(i).BorderStyle = 0
Next i
Case 16: Label4(16).BorderStyle = 1
For i = 0 To 15
Label4(i).BorderStyle = 0
Next i
For i = 17 To 30
Label4(i).BorderStyle = 0
Next i
Case 17: Label4(17).BorderStyle = 1
For i = 0 To 16
Label4(i).BorderStyle = 0
Next i
For i = 18 To 30
Label4(i).BorderStyle = 0
Next i
Case 18: Label4(18).BorderStyle = 1
For i = 0 To 17
Label4(i).BorderStyle = 0
Next i
For i = 19 To 30
Label4(i).BorderStyle = 0
Next i
Case 19: Label4(19).BorderStyle = 1
For i = 0 To 18
Label4(i).BorderStyle = 0
Next i
For i = 20 To 30
Label4(i).BorderStyle = 0
Next i
Case 20: Label4(20).BorderStyle = 1
For i = 0 To 19
Label4(i).BorderStyle = 0
Next i
For i = 21 To 30
Label4(i).BorderStyle = 0
Next i
Case 21: Label4(21).BorderStyle = 1
For i = 0 To 20
Label4(i).BorderStyle = 0
Next i
For i = 22 To 30
Label4(i).BorderStyle = 0
Next i
Case 22: Label4(22).BorderStyle = 1
For i = 0 To 21
Label4(i).BorderStyle = 0
Next i
For i = 23 To 30
Label4(i).BorderStyle = 0
Next i
Case 23: Label4(23).BorderStyle = 1
For i = 0 To 22
Label4(i).BorderStyle = 0
Next i
For i = 24 To 30
Label4(i).BorderStyle = 0
Next i
Case 24: Label4(24).BorderStyle = 1
For i = 0 To 23
Label4(i).BorderStyle = 0
Next i
For i = 25 To 30
Label4(i).BorderStyle = 0
Next i
Case 25: Label4(25).BorderStyle = 1
For i = 0 To 24
Label4(i).BorderStyle = 0
Next i
For i = 26 To 30
Label4(i).BorderStyle = 0
Next i
Case 26: Label4(26).BorderStyle = 1
For i = 0 To 25
Label4(i).BorderStyle = 0
Next i
For i = 27 To 30
Label4(i).BorderStyle = 0
Next i
Case 27: Label4(27).BorderStyle = 1
For i = 0 To 26
Label4(i).BorderStyle = 0
Next i
For i = 28 To 30
Label4(i).BorderStyle = 0
Next i
Case 28: Label4(28).BorderStyle = 1
For i = 0 To 27
Label4(i).BorderStyle = 0
Next i
For i = 29 To 30
Label4(i).BorderStyle = 0
Next i
Case 29: Label4(29).BorderStyle = 1
For i = 0 To 28
Label4(i).BorderStyle = 0
Next i
Label4(30).BorderStyle = 0
Case 30: Label4(30).BorderStyle = 1
For i = 0 To 29
Label4(i).BorderStyle = 0
Next i
End Select
End Sub
热心网友
时间：2022-07-10 07:17
