大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Sub gettime()
成都创新互联公司成都企业网站建设服务,提供成都做网站、网站建设、外贸营销网站建设网站开发,网站定制,建网站,网站搭建,网站设计,响应式网站,网页设计师打造企业风格网站,提供周到的售前咨询和贴心的售后服务。欢迎咨询做网站需要多少钱:18982081108
nowtime = Format(DateTime.Now, "yyyy/MM/dd hh:mm:ss")
MsgBox nowtime
End Sub
其中DateTime.Now为当前系统的时间
Format是设置时间格式
效果如下
now()可以返回当前时间,如果你要把它作文件名,那么需要先转换成string,可以使用
format函数
,比如format(now(),
用日期函数day()可获得当前日期,time()可获得当前系统时间.
dim CurDay as string
dim CurTime as string
curday=day()
curtime=time()
Label1.Caption = Date
就能在Label16显示当前日期
now 这个函数可以获得当前系统时间(包括年月日,小时分钟秒)
而
year()
month()
day()
等等则可以从now返回的值中分别提取年,月,日的信息
首先建立一个timer控件和一个label控件,之后把timer控件的interval属性改为1000
之后编写代码:
Private Sub Timer1_Timer()
a = Time$
Label1.Caption = "当前时间为:" a
End Sub
我想应该是,你试试看把……