Sub gettime()
网站建设哪家好,找创新互联!专注于网页设计、网站建设、微信开发、成都小程序开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了壶关免费建站欢迎大家使用!
nowtime = Format(DateTime.Now, "yyyy/MM/dd hh:mm:ss")
MsgBox nowtime
End Sub
其中DateTime.Now为当前系统的时间
Format是设置时间格式
效果如下
开发过程过程中我们通常对特定代码片运行所花的时间很感兴趣 当然有一些标准程序和代码工具可以查看到它 但是有经验的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
vb中获取系统当前的时间用函数 now() 就可以。另外还有相关的时间 date() time()\x0d\x0anow()获取系统当前日期和时间,如:2015-12-12 22:23:34\x0d\x0atime()获取系统的时间,如:22:23:34不显示当前日期\x0d\x0adate()获得系统的日期,如:2015-12-12\x0d\x0a\x0d\x0aPrivate Sub Command1_Click()\x0d\x0aMsgBox Now()\x0d\x0aMsgBox Time()\x0d\x0aMsgBox Date\x0d\x0aEnd Sub
1、时间可以直接比较大小,定义两个时间的变量,直接使用或者即可判断,跟数据大小判断是一样的
2、时间差值,可以使用DateDiff函数进行
3、比如取一个现在的时间now,使用Year、month、day、hour、min、sec函数可以取到now的年份、月、日、小时、分钟和秒