加好友 发短信
等级:婴狐
帖子:54
积分:569
威望:0
精华:1
注册:2009/4/19 21:29:00
|
我学时段了 ,做了一个时段案例 Post By:2009/5/29 16:35:00 [显示全部帖子]
我学时段了 ,做了一个时段案例此主题相关图片如下:倒计时.gif 代码: 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 & "秒"附件:
|
|