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

具体代码：

PrivateSubCommand1_Click()

Text1.Text=Date

Label1.Caption="当前日期为："

EndSub

PrivateSubCommand2_Click()

Text1.Text=Time

Label1.Caption="当前时间为："

EndSub

拓展资料

VisualBasic是一种由Microsoft公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱早袜动为机制的可视化程序设计语言。

从任何标准来说，VB都是世界上使用人数最多的语言——不管是盛赞VB的开发者还是抱模睁掘怨VB的开发者的数量。它源自于BASIC编程语言。

VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件旦核。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

主要优点：

1，简单易学。

2，开发速度快。

3，可读性很好。

---