扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
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())
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网