以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  自动检测时间  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=129516)

--  作者：yangwenghd --  发布时间：2018/12/30 12:16:00 --  自动检测时间 老师，能问问可以让红色的部分为电脑时间年的最后一天吗？感谢 感谢， Dim d As Date = #12/31/2018# Dim t As TimeSpan = d - Date.Now e.Form.Controls("Label28").Text = t.Days & "天" & t.Hours & "小时" & t.Minutes & "分" & t.Seconds & "秒"  \'倒计时

--  作者：有点甜 --  发布时间：2018/12/30 12:57:00 --   Dim d As Date = new date(date.today.year, 12, 31)