计算某年某月某日是这一年的第几天。要求:程序运行时,在3个文本框中分别输入有效的年、月、日,单击计算按钮将计算出所需结果。
补考卷子上的题!大家帮忙啊
參考答案:设三个框分别是text1,text2,text3
代码如下:
a = DateSerial(Text1.Text, Text2.Text, Text3.Text)
b = DateSerial(Text1.Text, 1, 1)
c = a - b + 1
MsgBox c
笑话军事旅游美容女性百态母婴家电游戏互联网财经美女干货家饰健康探索资源娱乐学院 数码美食景区养生手机购车首饰美妆装修情感篇厨房科普动物植物编程百科知道汽车珠宝 健康评测品位娱乐居家情感星座服饰美体奢侈品美容达人亲子图库折扣生活美食花嫁风景 | 首页 |
计算某年某月某日是这一年的第几天。要求:程序运行时,在3个文本框中分别输入有效的年、月、日,单击计算按钮将计算出所需结果。
补考卷子上的题!大家帮忙啊
參考答案:设三个框分别是text1,text2,text3
代码如下:
a = DateSerial(Text1.Text, Text2.Text, Text3.Text)
b = DateSerial(Text1.Text, 1, 1)
c = a - b + 1
MsgBox c