Question

VB程序设计 任务：输入一个日期，判断这一天是本年度中的第几天？ 要求：考虑闰年等情况。 例如：日

VB程序设计 任务：输入一个日期，判断这一天是本年度中的第几天？
要求：考虑闰年等情况。
例如：日期 2015.1.26，计算这是2015年的第几天。

Answer 1

Private Sub Command1_Click()
y = CInt(Text1.Text)
m = CInt(Text2.Text)
d = CInt(Text3.Text)
For i = 1 To m - 1
Select Case i
Case 1, 3, 5, 7, 8, 10
d = d + 31
Case 4, 6, 9, 11
d = d + 30
Case 2
If y Mod 4 = 0 And y Mod 100 > 0 Or y Mod 400 = 0 Then
d = d + 29
Else
d = d + 28
End If
End Select
Next i
Text4.Text = d
End Sub