代码: Dim t4 As Date = Date.Now() e.Form.Controls("Label5").text = Format(t4, "G") Dim t1 as Date = #1/5/2010 0:00:00# Dim t2 As date= Date.now() Dim t As TimeSpan = t1 - t2 Dim lbl As WinForm.Label= e.Form.Controls("Label3") lbl.text=t.Days & "天" & t.Hours & "小时" & t.Minutes & "分" & t.Seconds & "秒"