十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
Sub gettime()
创新互联公司专注于郧西网站建设服务及定制,我们拥有丰富的企业做网站经验。 热诚为您提供郧西营销型网站建设,郧西网站制作、郧西网页设计、郧西网站官网定制、小程序设计服务,打造郧西网络公司原创品牌,更为您提供郧西网站排名全网营销落地服务。
nowtime = Format(DateTime.Now, "yyyy/MM/dd hh:mm:ss")
MsgBox nowtime
End Sub
其中DateTime.Now为当前系统的时间
Format是设置时间格式
效果如下
用日期函数day()可获得当前日期,time()可获得当前系统时间.
dim CurDay as string
dim CurTime as string
curday=day()
curtime=time()
Label1.Caption = Date
就能在Label16显示当前日期
now 这个函数可以获得当前系统时间(包括年月日,小时分钟秒)
而
year()
month()
day()
等等则可以从now返回的值中分别提取年,月,日的信息
用TIMER控件调用NOW函数,可取得系统的日期和时间:
Private Sub Timer1_Timer()
Text1 = Now
End Sub
获取系统时间用 now()
而后格式化字符串以精确到分钟
string.Format("{0:yyyyMMddHHmm}",now())