[求助]奇怪,我求上月的星期天數怎麼會出錯的?

lzx-shmily

       a12 = DateAdd("m", -1, "1/" & Format(a11, "yyyy/mmm"))    '上月第一天日期
        a13 = DateValue("1/" & Format(a11, "yyyy/mmm")) - 1       '上月最後一天日期
        a14 = DateDiff("ww", a12, a13)                                           '上月星期天數

這樣算出來怎麼上月星期天數是4的,明明是5嘛?

請各位高手幫幫忙,謝謝!特急啊,在線等!

=DateDiff("ww",#2007/4/1#,#2007/4/30#) 這樣也還是4,怎麼辦呀,大家幫我想想辦法吧


七月份也是這樣,只要開始的第一天是星期天都會出錯

難道還要增加一條判斷語句,如果第一天是星期天就多加一天,這樣應該可以吧

        a11 = Date                                                '當前日期
        a12 = DateAdd("m", -1, "1/" & Format(a11, "yyyy/mmm"))    '上月第一天日期
        a13 = DateValue("1/" & Format(a11, "yyyy/mmm")) - 1       '上月最後一天日期
        If Weekday(a12) = 1 Then
           a14 = DateDiff("ww", a12, a13) + 1                           

      Else
          a14 = DateDiff("ww", a12, a13)
        End If

[此贴子已经被作者于2007-5-10 20:12:23编辑过]

一点通

看一下时间函数及例子

http://www.office-cn.net/forum.php?mod=viewthread&tid=33813&replyID=&skin=1

lzx-shmily

时间函数及例子早已看过，不明白错在哪里，该怎么写？请指教，谢谢！

wanshan

已更正：

[此贴子已经被作者于2007-5-11 15:36:04编辑过]

lzx-shmily

不明白楼上的例子是何意。

wanshan

不好意思，刚才传错了！

lzx-shmily

谢谢！不过好像跟我的差不多呵

[此贴子已经被作者于2007-5-11 15:41:55编辑过]

haileng

weekdaynum = CInt(((Me![結束時間] - Me![開始時間]) + Weekday(Me![開始時間], 2)) \ 7)