Private Sub Command1_Click()Dim Y%, M%Y = Val(InputBox("请输入年份!"))M = Val(InputBox("请输入月份!"))Print Y; "年"; M; "月"Print "本年为:"; IIf(Day(DateSerial(Y, 3, 0)) = 29, "闰年", "不是闰年")Print "目前还是"; Choose((M + 2) \ 3, "春", "夏", "秋", "冬"); "天"Print "本月有"; Day(DateSerial(Y, M + 1, 0)); "天"End Sub
|
