高校问答央行降准的影响:关于vb写程序的问题
来源：百度文库 编辑：高校问答 时间：2024/05/10 19:55:44
Private Sub Form_Click()
x = #1/1/2005#
a = x - Date
b = Weekday(x)
c = Year(Date)
d = Month(Date)
e = Hour(Time)
f = Minute(Time)
Print "现在距离2005年元旦还有："; a; "天"
Print "2005年元旦是：星期"; b - 1
Print "本月份是："; c; "年"; d; "月"
Print "现在是："; e; "时"; f; "分"
End Sub
Print "2005年元旦是：星期"; b - 1 就是这句 为什么计算星期几要用b减一下一呢 答案是星期6 这是如何计算出来的 谢谢
x = #1/1/2005#
a = x - Date
b = Weekday(x)
c = Year(Date)
d = Month(Date)
e = Hour(Time)
f = Minute(Time)
Print "现在距离2005年元旦还有："; a; "天"
Print "2005年元旦是：星期"; b - 1
Print "本月份是："; c; "年"; d; "月"
Print "现在是："; e; "时"; f; "分"
End Sub
Print "2005年元旦是：星期"; b - 1 就是这句 为什么计算星期几要用b减一下一呢 答案是星期6 这是如何计算出来的 谢谢
不能用减法的，如果这一天是周日那到一减就成了“周0”啦
我的方法是这样的，要改一下才行
Private Sub Form_Click()
x = #1/9/2005#
a = x - Date
Select Case Weekday(x)
Case 1: b = "日": Case 2: b = "一": Case 3: b = "二": Case 4: b = "三"
Case 5: b = "四": Case 6: b = "五": Case 7: b = "六"
End Select
'b = Weekday(x) 这一行不要了
c = Year(Date)
d = Month(Date)
e = Hour(Time)
f = Minute(Time)
Print "现在距离2005年元旦还有："; a; "天"
Print "2005年元旦是：星期"; b '这里-1去掉就可以了
Print "本月份是："; c; "年"; d; "月"
Print "现在是："; e; "时"; f; "分"
End Sub
因为VB（不单只是VB，还有许多西方国家）把星期天当作一个星期的第一天。因此星期天是0星期六当然是7了，所以要减1。