Question

用VB编写输入日期判断是一年中的第几天

Answer 1

Private Sub Form_Load()
Label1.Caption = "请输入日期【日期格式年-月-日，如：2010-04-08】"
Text1.Text = Date
End SubPrivate Sub Command1_Click()
Dim i, n, myYear, myMonth, myDay, myWeek, Days As IntegermyYear = Year(Text1.Text)
myMonth = Month(Text1.Text)
myDay = Day(Text1.Text)n = myDay
For i = 1 To myMonth - 1
Select Case i
Case 1, 3, 5, 7, 8, 10, 12
Days = 31
Case 4, 6, 9, 11
Days = 30
Case 2
If (myYear Mod 4 = 0) And (myYear Mod 100 <> 0) Or (myYear Mod 400 = 0) Then
Days = 29
Else
Days = 28
End If
End Select
n = n + Days
Next
MsgBox Trim(Text1.Text) & "是一年中的第" & Format(n) & "天。"End Sub

Answer 2

dim it2 as date,dim it1 as date it2是你输入的日期dim i as integerit1=#year(it2)-1-1#i=datediff("d",it1,it2)+1