vb 日期计算

照你上面所述的一样做的，代码如下：

Dim a, b, c As Integer
Dim x As String
Private Sub Command1_Click()
x = Text1.Text & "-" & Text2.Text & "-" & Text3.Text
a = DateDiff("yyyy", "2009-2-23", x)
b = DateDiff("m", "2009-2-23", x)
c = DateDiff("d", "2009-2-23", x)
Label2.ForeColor = &HFF&
Label2.Caption = "今天距新日期还有" & a & "年、" & b & "个月、" & c & "天"
End Sub
Private Sub Form_Load()
Label1.Caption = "今天是2009年2月23日" & vbCrLf & "现在是7点0分54秒" & vbCrLf & "请输入你的毕业日期"
Label2.Caption = ""
Command1.Caption = "计算"
Text1.Text = "2012"
Text2.Text = "7"
Text3.Text = "1"
Label3.Caption = "年"
Label4.Caption = "月"
Label5.Caption = "日"
End Sub

如有问题，加我的QQ:9986666@qq.tm 答案：110

如果满意，请采纳。。。。

效果如下：

datediff("d",date,#text1.text+text2.text+text3.text#)