VB2008 历遍日期

[a9909330643]

新手又问问题了
表里面要求将cells(i,1)的填上day
cells(i,2)的填上day所对应的星期
然后将星期六和日删掉

问题：
weekname(weekday(date))
我如何将date在当月历遍一次
刚开始我很单纯地用
for i= 1 to datetime.daysofmonth(now.year,now.month)
但后来发现....你们懂的
所以求帮忙...

[wuyq11]

计算工作日
http://topic.csdn.net/u/20100806/23/9c6c49e0-af35-41e3-9dc2-f218582b4bd2.html

[a9909330643]

我研究研究

[hellotoluck]

看一下啊

[a9909330643]

      Dim daylast As Date
        daylast = DateAdd("d", -1, DateAdd("m", +1, Today))
        For Me.i = 0 To DateTime.DaysInMonth(Today.Year, Today.Month + 1) - 1
            daylast = DateAdd("d", 1, daylast)
            num(i) = daylast
            ListBox2.Items.Add(num(i))
        Next

OK了~~~~

[a9909330643]

今天起来测试了一会，又有问题了~~~~
再搞搞，一会再发代码..

[蓝海]

        Dim dFirst As Date
        Dim dLast As Date
        Dim dToday As Date

        Dim yToday As Integer
        Dim mToday As Integer
        Dim i As Long
        Dim iCount As Long
        Dim iTotal As Long

        yToday = Today.Year
        mToday = Today.Month

        dFirst = DateSerial(yToday, mToday, 1)              '本月的第一天
        dLast = DateAdd(DateInterval.Month, 1, dFirst)      '下月的第一天
        dLast = DateAdd(DateInterval.Day, -1, dLast)        '下月的第一天减一天，为本月最后一天；

        iCount = DateDiff(DateInterval.Day, dFirst, dLast)    '本月总天数
        iTotal = 0
        For i = 1 To iCount
            dToday = DateAdd(DateInterval.Day, i - 1, dFirst)
            If Not (dToday.DayOfWeek = DayOfWeek.Saturday Or dToday.DayOfWeek = DayOfWeek.Sunday) Then
                iTotal = iTotal + 1
            End If
        Next
        MsgBox(iTotal)

[a9909330643]

[Quote=引用 6 楼 msailsoft 的回复:]
VB.NET code
Dim dFirst As Date
Dim dLast As Date
Dim dToday As Date

Dim yToday As Integer
Dim mToday As Integer
Dim i As Long
Dim iCoun……
[/Quote]

绝对正解，马上送分
之前因为我是在1号这天搞
所以错误认为dateadd("m",1,today)是可以返回下个月的一号
看了你的代码，学到了很多，马上送分