看到C#那边出了一个打印本月月历的题目，VB版也来玩下吧

[无·法]

要求就是打印出本月的月历，具体参考：
http://topic.csdn.net/u/20110630/19/743bdaf7-ed26-47c3-a02d-6ed9fa58f0f4.html

vb里没有什么linq，也不懂什么linq，所以就用纯字符串操作了

Private Sub Form_Load()
    Dim s$, i%, strDatePre$, d1 As Date
    strDatePre = DatePart("yyyy", Now) & "-" & DatePart("m", Now) & "-"
    s = "SU MO TU WE TH FR SA" & vbCrLf
    Do
        i = i + 1
        d1 = strDatePre & i
        If i = 1 Then s = s & Space((DatePart("w", d1) - 1) * 3)
        s = s & Space(2 - Len(CStr(i))) & i & " "
        If DatePart("w", d1) = 7 Then s = s & vbCrLf
        If DatePart("d", d1 + 1) = 1 Then Exit Do
    Loop
    MsgBox s
End Sub

输出结果：

SU MO TU WE TH FR SA
                1  2 
 3  4  5  6  7  8  9 
10 11 12 13 14 15 16 
17 18 19 20 21 22 23 
24 25 26 27 28 29 30 
31 

[jhone99]

[杀神者]

[无·法]

修改了下，打印全年的。

Private Sub Form_Load()
    Dim s$, i%, intMonth%, strDatePre$, d1 As Date
    For intMonth = 1 To 12
        strDatePre = DatePart("yyyy", Now) & "-" & intMonth & "-"
        s = "月份" & intMonth & vbCrLf & "SU MO TU WE TH FR SA" & vbCrLf
        i = 0
        Do
            i = i + 1
            d1 = strDatePre & i
            If i = 1 Then s = s & Space((DatePart("w", d1) - 1) * 3)
            s = s & Space(2 - Len(CStr(i))) & i & " "
            If DatePart("w", d1) = 7 Then s = s & vbCrLf
            If DatePart("d", d1 + 1) = 1 Then Exit Do
        Loop
        Debug.Print s & vbCrLf
    Next
End Sub

月份1
SU MO TU WE TH FR SA
                   1 
 2  3  4  5  6  7  8 
 9 10 11 12 13 14 15 
16 17 18 19 20 21 22 
23 24 25 26 27 28 29 
30 31 

月份2
SU MO TU WE TH FR SA
       1  2  3  4  5 
 6  7  8  9 10 11 12 
13 14 15 16 17 18 19 
20 21 22 23 24 25 26 
27 28 

月份3
SU MO TU WE TH FR SA
       1  2  3  4  5 
 6  7  8  9 10 11 12 
13 14 15 16 17 18 19 
20 21 22 23 24 25 26 
27 28 29 30 31 

月份4
SU MO TU WE TH FR SA
                1  2 
 3  4  5  6  7  8  9 
10 11 12 13 14 15 16 
17 18 19 20 21 22 23 
24 25 26 27 28 29 30 


月份5
SU MO TU WE TH FR SA
 1  2  3  4  5  6  7 
 8  9 10 11 12 13 14 
15 16 17 18 19 20 21 
22 23 24 25 26 27 28 
29 30 31 

月份6
SU MO TU WE TH FR SA
          1  2  3  4 
 5  6  7  8  9 10 11 
12 13 14 15 16 17 18 
19 20 21 22 23 24 25 
26 27 28 29 30 

月份7
SU MO TU WE TH FR SA
                1  2 
 3  4  5  6  7  8  9 
10 11 12 13 14 15 16 
17 18 19 20 21 22 23 
24 25 26 27 28 29 30 
31 

月份8
SU MO TU WE TH FR SA
    1  2  3  4  5  6 
 7  8  9 10 11 12 13 
14 15 16 17 18 19 20 
21 22 23 24 25 26 27 
28 29 30 31 

月份9
SU MO TU WE TH FR SA
             1  2  3 
 4  5  6  7  8  9 10 
11 12 13 14 15 16 17 
18 19 20 21 22 23 24 
25 26 27 28 29 30 

月份10
SU MO TU WE TH FR SA
                   1 
 2  3  4  5  6  7  8 
 9 10 11 12 13 14 15 
16 17 18 19 20 21 22 
23 24 25 26 27 28 29 
30 31 

月份11
SU MO TU WE TH FR SA
       1  2  3  4  5 
 6  7  8  9 10 11 12 
13 14 15 16 17 18 19 
20 21 22 23 24 25 26 
27 28 29 30 

月份12
SU MO TU WE TH FR SA
             1  2  3 
 4  5  6  7  8  9 10 
11 12 13 14 15 16 17 
18 19 20 21 22 23 24 
25 26 27 28 29 30 31 

[lxq19851204]

这个东西MS-SQL版早就玩过了，不过用程序相对好实现一些~~UP

[无·法]

[Quote=引用 2 楼 lxq19851204 的回复:]

这个东西MS-SQL版早就玩过了，不过用程序相对好实现一些~~UP
[/Quote]见过，好像是全年的推荐，c#版的才看到，都结贴了。。

[孤独剑_LPZ]

恩,楼上辛苦了

[咸清]

嗯