VB显示当前时间的程序

加入以下代码：

Private Sub Form_Load()

Text1.Text = Now

Timer1.Enabled = True

Timer1.Interval = 1000

End Sub

Private Sub Timer1_Timer()

Text1.Text = Now

End Sub

扩展资料：

VB获取系统当前时间并格式化输出

用到的函数：

Date函数：返回系统的日期

Now函数：返回系统的日期和时间

Format函数：根据格式表达式来格式化数据

实例：

Private Sub Form_Load()

'设置同步时间显示

Timer1.Interval = 1000

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

Label2.Caption = Format(Now, "hh:mm:ss")            '获取当前时间

Label4.Caption = Format(Now, "yyyy-mm-dd")          '获取当前日期

Label6.Caption = Format(Now, "yyyy-mm-dd hh:mm:ss") '日期和时间

End Sub

程序主要通过当前系统日历的struct tm结构体获得，主要代码如下，\x0d\x0a#include \x0d\x0a#include \x0d\x0a//程序功能输出当前时间在24H下的小时数 \x0d\x0aint main(int argc, char *argv[])\x0d\x0a{\x0d\x0astruct tm *ptr\x0d\x0atime_t lt\x0d\x0atime(&lt)//当前系统时间 \x0d\x0aptr=localtime(&lt)//获取本地日历时间指针 \x0d\x0aprintf("hour=%d（24H ）\n",ptr->tm_hour)//输出24H下的小时数 \x0d\x0areturn 0\x0d\x0a}\x0d\x0a\x0d\x0a结构体tm定义如下，\x0d\x0astruct tm {\x0d\x0aint tm_sec/* 秒_取值区间为[0,59] */\x0d\x0aint tm_min/* 分 - 取值区间为[0,59] */\x0d\x0aint tm_hour/* 时 - 取值区间为[0,23] */\x0d\x0aint tm_mday/* 一个月中的日期 - 取值区间为[1,31] */\x0d\x0aint tm_mon/* 月份（从一月开始，0代表一月） - 取值区间为[0,11] */\x0d\x0aint tm_year/* 年份，其值从1900开始 */\x0d\x0aint tm_wday/* 星期_取值区间为[0,6]，其中0代表星期天，1代表星期一，以此类推 */\x0d\x0aint tm_yday/* 从每年的1月1日开始的天数_取值区间为[0,365]，其中0代表1月1日，1代表1月2日，以此类推 */\x0d\x0aint tm_isdst/* 夏令时标识符，实行夏令时的时候，tm_isdst为正。不实行夏令时的进候，tm_isdst为0；不了解情况时，tm_isdst()为负。*/\x0d\x0along int tm_gmtoff/*指定了日期变更线东面时区中UTC东部时区正秒数或UTC西部时区的负秒数*/\x0d\x0aconst char *tm_zone/*当前时区的名字(与环境变量TZ有关)*/\x0d\x0a}

---