老师，请教一下：我想把今日的倒计时、本月的倒计时、本年的倒计时分别显示在label2、label3、label4中，于是在窗口的timertick事件中写下如下代码：
Dim d As Date = Date.Today '获取今日的日期
Dim dt As Date = #d 24:00:00# '获取今日24时整的日期与时间
Dim t As TimeSpan = dt - Date.Now '计算现在离今天的24时整还差多少时间
e.Form.Controls("Label3").Text = "剩余" & t.Days & "天" & t.Hours & "小时" & t.Minutes & "分" & t.Seconds & "秒"
'上述代码是计算离今天结束还剩多少时间
Dim y1 As Integer = Date.Today.Year
Dim m1 As Integer = Date.Today.Month
Dim d1 As New Date(y1, m1, Date.DaysInMonth(y1, m1)) '获取本月的最后一天
Dim dt1 As Date = #d1 24:00:00# '获取今日24时整的日期与时间
Dim t1 As TimeSpan = dt1 - Date.Now '计算现在离本月最后一天的24时整还差多少时间
e.Form.Controls("Label3").Text = "剩余" & t1.Days & "天" & t1.Hours & "小时" & t1.Minutes & "分" & t1.Seconds & "秒"
'上述代码是计算离本月结束还剩多少时间
Dim d2 As New Date(y1, 12, 31) '获取今年的最后一天
Dim dt2 As Date = #d2 24:00:00# '获取今日24时整的日期与时间
Dim t2 As TimeSpan = dt2 - Date.Now '计算现在离今年的最后一天的24时整还差多少时间
e.Form.Controls("Label3").Text = "剩余" & t1.Days & "天" & t1.Hours & "小时" & t1.Minutes & "分" & t1.Seconds & "秒"
'上述代码是计算离今年结束还剩多少时间
红色的这几句错了，不知道怎么写，望指点
加好友 
发短信
Post By：2020/9/5 11:08:00 [显示全部帖子]
