Private Function DAY_NOW()
Dim n As String, y As Long
n = Date$ '年
y = Month(Now) '月
If y = 1 Or y = 3 Or y = 5 Or y = 7 Or y = 8 Or y = 10 Or y = 12 Then
r = 31
ElseIf y = 4 Or y = 6 Or y = 9 Or y = 11 Then
r = 30
ElseIf y = 2 Then
If Val(n) Mod 4 = 0 Then
r = 29
Else
r = 28
End If
End If
DAY_NOW = r
End Function
Private Sub Form_Resize()
Print vbCrLf & “今天是:” & Now & vbCrLf & vbCrLf & “这个月共有:” & DAY_NOW & “天”
End Sub