杭州交通信息网长江腻子喷涂机:关于vb写程序问题
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/24 21:58:49
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 这是如何计算出来的 谢谢
关键在于weekday的引用格式为:
weekday(Date,FirstDayofweek as vbDayOfWeek=vbSunday)
意思是:默认引用的一周的第一天是星期天
这与我们的一周的定义不一样，我们一周是星期一为第一天，所以要b-1才是对的
其实可以改一下语句就不用b-1了
b = Weekday(x,vbmonday)