VB显示当前时间的程序

1. 加入计时器 timer1  和一个textbox

2. 窗体里加入以下代码：
   Private Sub Form_Load()
   Text1.Text = Now
   Timer1.Enabled = True
   Timer1.Interval = 1000
   End Sub
   
   Private Sub Timer1_Timer()
   Text1.Text = Now
   End Sub

3. 如果你只想显示日期，则把Text1.Text = Now 改为：Text1.Text = date
   如果你只想显示时间，则把Text1.Text = Now 改为：
   Text1.Text = Hour(Time) & ":" & Minute(Time) & ":" & Second(Time)

   

扩展资料：

Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。是一种可用于微软自家产品开发的语言。 

“Visual” 指的是开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。 “Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言，是一种在计算技术发展历史上应用得最为广泛的语言。

Visual Basic源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序  。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

参考资料：VB--百度百科

1、一条指令就完成 ，放在form_load事件里

msgbox Now()

作用是弹出一个对话框，显示当前的日期和时间

2、麻烦的方法：

Print Date; "日期" 

Print Time; "时间" 

Print Now; "日期和日间" 

Print Format(Now, "yyyy年mm月dd日 hh时mm分ss秒") 

Print Year(Now); "年" 

Print Month(Now); "月" 

Print Day(Now); "日" 

Print Hour(Now); "时" 

Print Minute(Now); "分" 

Print Second(Now); "秒"

private sub form_load()

text1.text=year(now)

text2.text=month(now)

text3.text=day(now)

text4.text=hour(now)

text5.text=minute(now)

text6.text=second(now)

end sub 

扩展资料：

Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。是一种可用于微软自家产品开发的语言。

“Visual” 指的是开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。 “Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言，是一种在计算技术发展历史上应用得最为广泛的语言。

参考资料：百度百科_Visual Basic

加入以下代码：

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

拉一个textbox和一个timer
双击timer输入下面代码：
Text1.Text = Hour(Time) & ":" & Minute(Time) & ":" & Second(Time)
我的代码是只显示时分秒的 如果年月日也要显示就用上面的
timer的Interval要设置为1000 小于1000也是可以的 不要小于1和必须是整数

Text1.Text = Hour(Time) & ":" & Minute(Time) & ":" & Second(Time)
上面程序的中文解释：文本框的文本=时和分隔号(也就是":")和分和分隔号和秒
你只需要拉出textbox和timer两个控件并双击timer控件输入上面代码就可以了

加入计时器 timer1 和一个textbox

窗体里加入以下代码：
Private Sub Form_Load()
Text1.Text = Now
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Text1.Text = Now
End Sub

经测试可用！
如果你只想显示日期，则把Text1.Text = Now 改为：Text1.Text = date
如果你只想显示时间，则把Text1.Text = Now 改为：
Text1.Text = Hour(Time) & ":" & Minute(Time) & ":" & Second(Time)