输入年月 输出这年这月有多少天 用vb怎么写
答案:1 悬赏:0 手机版
解决时间 2021-11-20 23:04
- 提问者网友：蓝琪梦莎
- 2021-11-20 15:41
输入年月 输出这年这月有多少天 用vb怎么写
最佳答案
- 五星知识达人网友：逃夭
- 2021-11-20 15:48
Private Sub Command1_Click()
Dim y As Integer, m As Integer
y = Val(InputBox("请输入年份"))
m = Val(InputBox("请输入月份"))
MsgBox y & "年" & m & "月有" & Day(DateSerial(y, m + 1, 0)) & "天"
End Sub
Dim y As Integer, m As Integer
y = Val(InputBox("请输入年份"))
m = Val(InputBox("请输入月份"))
MsgBox y & "年" & m & "月有" & Day(DateSerial(y, m + 1, 0)) & "天"
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯