新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
获取系统时间用 now()
创新互联建站专业为企业提供汕头网站建设、汕头做网站、汕头网站设计、汕头网站制作等企业网站建设、网页设计与制作、汕头企业网站模板建站服务,十多年汕头做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
而后格式化字符串以精确到分钟
string.Format("{0:yyyyMMddHHmm}",now())
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
Sub gettime()
nowtime = Format(DateTime.Now, "yyyy/MM/dd hh:mm:ss")
MsgBox nowtime
End Sub
其中DateTime.Now为当前系统的时间
Format是设置时间格式
效果如下
两种方式自己选用
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim s As String
s = DateTime.Today.Year()
s = s DateTime.Today.Month()
s = s DateTime.Today.Day()
s = s DateTime.Now.Hour()
s = s DateTime.Now.Minute()
s = s DateTime.Now.Second()
MsgBox(s, vbDefaultButton1, Now())
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim s As String
s = Format(Now(), "yyyymmddhhmmss")
MsgBox(s, vbYes, Now())
End Sub