189 8069 5689
VB显示当前程序运行的时间长短，需要添加一个Timer控件来实现，代码如下：
创新互联公司服务项目包括肥东网站建设、肥东网站制作、肥东网页制作以及肥东网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，肥东网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到肥东省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
Dim Tim As String, B As Long, H As Integer, M As Integer, S As Long
//窗体加载时候方法
Private Sub Form_Load()
Label1.Caption = ""
Tim = Time
Timer1.Interval = 100
End Sub
//Timer控件方法
Private Sub Timer1_Timer()
s = DateDiff("s", Tim, Time)
If s 60 Then
B = s
M = B \ 60
s = B Mod 60
If M 60 Then
B = M
H = B \ 60
M = B Mod 60
End If
End If
If H = 0 Then
If M = 0 Then
Label1.Caption = "已经运行了 " s " 秒 "
Else
Label1.Caption = "已经运行了 " M " 分 " s " 秒 "
End If
Else
Label1.Caption = "已经运行了 " H " 小时 " M " 分 " s " 秒 "
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平台上才能执行。
Sub gettime()
nowtime = Format(DateTime.Now, "yyyy/MM/dd hh:mm:ss")
MsgBox nowtime
End Sub
其中DateTime.Now为当前系统的时间
Format是设置时间格式
效果如下
//一部分指令……
int duration = 1000; //设定进程挂起时间，单位毫秒
System.Threading.Thread.Sleep(duration); 挂起当前进程
//另一部分指令……
如果你用控制台应用程序，这样就可以了。如果你用窗体应用程序且在窗体主线程下运行，则需要用到计时器或多线程等。
多线程并不一定就可以缩短时间，具体要看你上面的“过程”是否调用数据库完成。如果调用了数据库，可以考虑用存储过程替代“过程”。另外看看“过程”里是否反复打开和关闭了数据库连接，如果是，这才是真正的耗时动作。如果没调用数据库，可以考虑使用Parallel类(.net4以后)里面的函数，使多个任务在多核CPU上并行运行，缩短时间。
定时器中处理
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 10 '10毫秒刷新一次
Timer1.Start() '开启定时器
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = Now
End Sub