神马品牌网上海浦东税务局电话:vb先辈帮小弟解释一下
来源：百度文库 编辑：神马品牌网 时间：2024/04/27 19:17:09
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 这是如何计算出来的 谢谢
-----------------------------------------------------------------
因为VB（不单只是VB，还有许多西方国家）把星期天当作一个星期的第一天。因此星期天是0星期六当然是7了，所以要减1。
-------------------------------------------------------上面是我得到的答案 看不懂
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 这是如何计算出来的 谢谢
-----------------------------------------------------------------
因为VB（不单只是VB，还有许多西方国家）把星期天当作一个星期的第一天。因此星期天是0星期六当然是7了，所以要减1。
-------------------------------------------------------上面是我得到的答案 看不懂
我也是初学vb，你提出的问题，我看了一下，我曾做过这样一道考公务员的问题，题是这么说的，今天是星期六，问250天后是星期几，解题思路是这样的，用（250+1）/7，它给出的解释是，得从今天开始算起，而你给出的问题正好是根它相反，所以要减去一天，
你的答案已经说的很明白了，如果是星期六，weekday函数返回的值是7，如果是星期五，该函数返回值是6，可见，你得减一才能输出该结果。不过我认为你还得改进一下：若是周日，该函数返回值是1，再减一就变成星期0了，不好看，所以你要加一个判断，若b-1=0，就替换输出为：星期日。就好看了!