怎样用VB程序编写日历

哦 那你还是需要timer控件，一个是知道当前的日期，另外就是知道当前是星期几，然后和你的日期求天数差，至于求法应该不是很简单，呵呵 ，然后和mid 7 求余数，然后和日期比较，知道星期，思路如此，不过我感觉，求天数差很难！

Private Sub Command1_Click()
'w=y+[y/4]+[c/4]-2c+[26(m+1)/10]+d-1
Dim y As Integer, c As Integer, m As Integer, d As Integer
y = Text1.Text Mod 100
c = Text1.Text \ 100
m = Text2.Text
d = Text3.Text
If m = 1 Or m = 2 Then
m = m + 12
y = y - 1
If y < 0 Then
y = 99
c = c - 1
End If
End If
w = y + Int(y / 4) + Int(c / 4) - 2 * c + Int(26 * (m + 1) / 10) + d - 1
w = w Mod 7
Label1.Caption = Choose(w + 1, "星期日", "星期一", "星期二", "星期三", "星期四", "星期五", "星期六")
End Sub

Weekday 函数
返回代表一星期中某天的整数。

Weekday(date, [firstdayofweek])

参数
date

可以代表日期的任意表达式。如果 date 参数中包