用日期函数day()可获得当前日期,time()可获得当前系统时间.
成都创新互联公司拥有十余年成都网站建设工作经验,为各大企业提供做网站、成都做网站服务,对于网页设计、PC网站建设(电脑版网站建设)、重庆App定制开发、wap网站建设(手机版网站建设)、程序开发、网站优化(SEO优化)、微网站、申请域名等,凭借多年来在互联网的打拼,我们在互联网网站建设行业积累了很多网站制作、网站设计、网络营销经验,集策划、开发、设计、营销、管理等网站化运作于一体,具备承接各种规模类型的网站建设项目的能力。
dim CurDay as string
dim CurTime as string
curday=day()
curtime=time()
Label1.Caption = Date
就能在Label16显示当前日期
now 这个函数可以获得当前系统时间(包括年月日,小时分钟秒)
而
year()
month()
day()
等等则可以从now返回的值中分别提取年,月,日的信息
vb.net 中没有了 time() 函数。
可以通过 Now().TimeOfDay 截取当前的系统时间。
Now()函数取当前的系统日期时间,TimeOfDay 方法取日期时间中的时间部分。如下:
Dim t As TimeSpan
Dim s As Integer
t = Now().TimeOfDay
s = t.Hours * 3600 + t.Minutes * 60 + t.Seconds
变量s 就是 从午夜到现在经过的秒数。
用TIMER控件调用NOW函数,可取得系统的日期和时间:
Private Sub Timer1_Timer()
Text1 = Now
End Sub
Sub gettime()
nowtime = Format(DateTime.Now, "yyyy/MM/dd hh:mm:ss")
MsgBox nowtime
End Sub
其中DateTime.Now为当前系统的时间
Format是设置时间格式
效果如下