怎样利用VB编码设置一个日历,可以让2月显示28天或29天

Question

Private Sub Form_Load()
Dim i, j As Integer

Combo日期(0).Text = Year(Date)
Combo日期(1).Text = Month(Date)
Combo日期(2).Text = Day(Date)

Label当前日期.Caption = "当前日期：" & Year(Date) & " 年 " & Month(Date) & " 月 " & Day(Date) & " 日"

For i = 2010 To 2020
Combo日期(0).AddItem i
Next i

For i = 1 To 12
Combo日期(1).AddItem i
Next i

Select Case Combo日期(1).Text
Case Combo日期(1).Text = 1, 3, 5, 7, 8, 10, 12
For j = 1 To 31
Combo日期(2).AddItem j
Next j
Case Combo日期(1).Text = 4, 6, 9, 11
For j = 1 To 30
Combo日期(2).AddItem j
Next j
Case Combo日期(1).Text = 2
For j = 1 To 29
Combo日期(2).AddItem j
Next j
End Select
哪里错了?为什么2月最后不显示29天

Answer 1

Private Sub Combo日期_click(Index As Integer)

If Index = 1 Then
Combo日期(2).Clear
Select Case Combo日期(1).Text
Case 1, 3, 5, 7, 8, 10, 12
For j = 1 To 31
Combo日期(2).AddItem j
Next j
Case 4, 6, 9, 11
For j = 1 To 30
Combo日期(2).AddItem j
Next j
Case 2
For j = 1 To 29
Combo日期(2).AddItem j
Next j
End Select
End If
Combo日期(2).Text = Combo日期(2).List(0)
End Sub

Private Sub Form_Load()
Dim i, j As Integer

Combo日期(0).Text = Year(Date)
Combo日期(1).Text = Month(Date)
Combo日期(2).Text = Day(Date)

Label当前日期.Caption = "当前日期：" & Year(Date) & " 年 " & Month(Date) & " 月 " & Day(Date) & " 日"

For i = 2010 To 2020
Combo日期(0).AddItem i
Next i

For i = 1 To 12
Combo日期(1).AddItem i
Next i

Select Case Combo日期(1).Text
Case Combo日期(1).Text = 1, 3, 5, 7, 8, 10, 12
For j = 1 To 31
Combo日期(2).AddItem j
Next j
Case Combo日期(1).Text = 4, 6, 9, 11
For j = 1 To 30
Combo日期(2).AddItem j
Next j
Case Combo日期(1).Text = 2
For j = 1 To 29
Combo日期(2).AddItem j
Next j
End Select
End Sub

Answer 2

直接用DTPicker控件就可以了呀,你可以通过year(),month()等函数来提取相应的年月日.

Answer 3

VB里有日历控件的。

Answer 4

可以要人民币!!!
另外,团IDC网上有许多产品团购,便宜有口碑