'添加一个label标签名字label1 用来显示时间
“真诚服务，让网络创造价值”是我们的服务理念，创新互联建站团队十年如一日始终坚持在网站建设领域,为客户提供优质服。不管你处于什么行业，助你轻松跨入“互联网+”时代，PC网站+手机网站+公众号+小程序定制开发。
'再添加一个timer控件 名字timer1 interval属性=1000 用来计时
'窗体添加代码
Dim t As Date '用来记录时间
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Timer1.Tick
t = t.AddSeconds(1)
Label1.Text = "登录时间:" t.TimeOfDay.ToString
End Sub
Dim tCount As Integer '用来计数
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
tCount = 10
Timer1.Interval = 1000 '每秒执行一次
Timer1.Enabled = True
End
Sub
Private Sub
Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
tCount -= 1
If tCount = 0 Then
MessageBox.Show("时间到")
Timer1.Enabled = False
End If
End
Sub
将时间转换为指定的字符串格式用：Now.ToString("yyyyMMddHHmmss")就Ok了。
例如：年份用小写yyyy(大写不识别)，大写MM识别为月份，小写mm识别为分钟，日期天为大写DD(小写不识别)，
小时大写HH识别为24小时制，小写hh识别为12小时制，秒用小写ss(大写不识别)
补充：Visual Basic.NET是基于微软.NET Framework之上的面向对象的编程语言。
其在调试时是以解释型语言方式运作,而输出为EXE程序是是以编译型语言方式运作。
可以看作是Visual Basic在.Net Framework平台上的升级版本，增强了对面向对象的支持。大多的VB.Net程序员使用Visual Studio .Net作为IDE（integrated development environment).SharpDevelop是另一种可用的开源的IDE。
VB.Net需要在.Net Framework平台上才能执行。
加个timer，两个label，以下是代码:
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Label1.Text = Format(Now(), "yyyy-MM-dd HH:mm:ss")
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label2.Text = Format(Now(), "yyyy-MM-dd HH:mm:ss")
If DateDiff(DateInterval.Hour, DateTime.Parse(Label1.Text), DateTime.Parse(Label2.Text)) = 3 Then
MsgBox("超过3小时了！", , "信息提示")
Timer1.Enabled = False 'timer终止，不然会一直谈对话框！
End If
End Sub
开发过程过程中我们通常对特定代码片运行所花的时间很感兴趣 当然有一些标准程序和代码工具可以查看到它 但是有经验的Visual Basic 开发者有更快的办法 仅仅捕捉开始时间（使用Now关键字）和终止时间（再次使用Now关键字） 两种相减 就能知道结果了
如果使用Visual Basic NET编写 首先尝试的代码可能是这样的
Dim StartTime As DateTime = Now {code to check for timing goes here} Dim EndTime As DateTime = Now Console WriteLine((StartTime EndTime) ToString)
但是这段代码的最后一行有语法错误 错误消息是 日期类型没有定义 － 操作符 这意味着我们不能执行减法 日期数据类型不支持减法操作 那么我们怎么得到两次时间的差别呢？
答案就是使用TimeSpan类 它是用于保持时间段的 上面的代码看起来与 NET框架组件中的相似
Dim StartTime As DateTime = Now {code to check for timing goes here} Dim EndTime As DateTime = Now Dim RunLength As System TimeSpan RunLength = EndTime Subtract(StartTime) Console WriteLine(RunLength ToString)
计算使用的是类Date的Subtract方法 最后一行将输出时间的跨度 格式化成小时 分钟和秒（包括秒的小数位） 典型的输出是这样的
该时间跨度是 秒半 尽管显示了 位小数 但是只能相信两位 但是已经足够了
结论
lishixinzhi/Article/program/net/201311/11820
