vbnet运行时间的简单介绍

VB显示当前程序运行时间

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

vbnet中怎样把时间设为24时制

将时间转换为指定的字符串格式用：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平台上才能执行。

vb net获取系统时间

Sub gettime()

nowtime = Format(DateTime.Now, "yyyy/MM/dd hh:mm:ss")

MsgBox nowtime

End Sub

其中DateTime.Now为当前系统的时间

Format是设置时间格式

效果如下

vb.net过一段时间运行一个指令,又过一段时间运行另1个指令如何实现

//一部分指令……

int duration = 1000; //设定进程挂起时间，单位毫秒

System.Threading.Thread.Sleep(duration); 挂起当前进程

//另一部分指令……

如果你用控制台应用程序，这样就可以了。如果你用窗体应用程序且在窗体主线程下运行，则需要用到计时器或多线程等。

怎么在vb.net里用多线程缩短循环时间

多线程并不一定就可以缩短时间，具体要看你上面的“过程”是否调用数据库完成。如果调用了数据库，可以考虑用存储过程替代“过程”。另外看看“过程”里是否反复打开和关闭了数据库连接，如果是，这才是真正的耗时动作。如果没调用数据库，可以考虑使用Parallel类(.net4以后)里面的函数，使多个任务在多核CPU上并行运行，缩短时间。

怎么在VB.net中实时显示时间

定时器中处理

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