VB制作日历

用DateDiff()函数

格式：DateDiff(“d",日期1,

日期2)

函数将返回“日期1”与“日期2”之间的天数。

Private

Sub

MonthView1_DateClick(ByVal

DateClicked

As

Date)

aa

=

MsgBox("选择的是

"

&

MonthView1.Value

&

Chr(10)

&

Chr(13)

&

"是

"

&

Year(MonthView1.Value)

&

"

年的第

"

&

DateDiff("d",

DateSerial(Year(MonthView1.Value),

1,

1),

MonthView1.Value)

+

1

&

"

天。",

vbOKOnly,

"日期计算")

End

Sub

装完OFFICE在部件里就会有这个的，名字叫Microsoft Calendar Control 11.0

如果装完OFFICE后没有，就在部件里面增加C:\Program Files\Microsoft Office\Office11\MSCAL.OCX，就可以了。

有的,添加方法: 部件--勾选 microsoft windows common control 2-6.0 ---确定之后,vb工具栏里有个mounthview 空间,双击它添加到窗体就行了!!

---