Sub gettime()
成都创新互联,是成都地区的互联网解决方案提供商,用心服务为企业提供网站建设、成都app软件开发、微信小程序、系统按需开发网站和微信代运营服务。经过数10年的沉淀与积累,沉淀的是技术和服务,让客户少走弯路,踏实做事,诚实做人,用情服务,致力做一个负责任、受尊敬的企业。对客户负责,就是对自己负责,对企业负责。
nowtime = Format(DateTime.Now, "yyyy/MM/dd hh:mm:ss")
MsgBox nowtime
End Sub
其中DateTime.Now为当前系统的时间
Format是设置时间格式
效果如下
定时器中处理
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 10 '10毫秒刷新一次
Timer1.Start() '开启定时器
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = Now
End Sub
vb中获取系统当前的时间用函数 now() 就可以。另外还有相关的时间 date() time()
now()获取系统当前日期和时间,如:2015-12-12 22:23:34
time()获取系统的时间,如:22:23:34不显示当前日期
date()获得系统的日期,如:2015-12-12
Private Sub Command1_Click()
MsgBox Now()
MsgBox Time()
MsgBox Date
End Sub
设计界面双击那个按钮(自动跳到代码里)
然后输入 要显示时间的那个Label.Text = DateTime.Now.ToString()
1、时间可以直接比较大小,定义两个时间的变量,直接使用或者即可判断,跟数据大小判断是一样的
2、时间差值,可以使用DateDiff函数进行
3、比如取一个现在的时间now,使用Year、month、day、hour、min、sec函数可以取到now的年份、月、日、小时、分钟和秒
用大写的H可以显示24小时制:
(Format(DateTime.Now, "yyyyMMddHHmmss")).ToString