求助 时钟问题
Private Sub Form_Load()Dim x As Long
Dim yy, mm, dd As String
yy = Year(Date)
mm = Month(Date)
dd = Day(Date)
x = DateDiff("d", yy - mm - dd, "2011 - 2 - 2")
Label2.FontSize = 14
Label2.Caption = Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日"
Timer1.Enabled = True
Label4.Caption = "距离春节还有" & x & "天"
End Sub
Private Sub Timer1_Timer()
Text1.Text = Time
End Sub
得出的距离春节的时间不对,另外,请问怎么贴图片啊?