缺了双引号Private Sub Form_Load() Dim a As Integer m = DateDiff("d", "2007 - 5 - 7", Date)‘今天是9号 Text1.Text = m Print End Sub
2007 - 5 - 7=1995
