VB显示当前时间的程序

加入计时器 timer1  和一个textbox

窗体里加入以下代码：

Private Sub Form_Load()

Text1Text = Now

Timer1Enabled = True

Timer1Interval = 1000

End Sub

Private Sub Timer1_Timer()

Text1Text = Now

End Sub

如果你只想显示日期，则把Text1Text = Now 改为：Text1Text = date

如果你只想显示时间，则把Text1Text = Now 改为：

Text1Text = 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提供的组件快速建立一个应用程序。

参考资料：

Private Sub Form_Load()

MeCaption = Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日 星期" & GetWD(Weekday(Date)) & " 系统时间" & Format$(Time, "hh:mm:ss")

Timer1Interval = 500

End Sub

'xx年xx月xx日 星期几 系统时间hh:mm:ss

Private Sub Timer1_Timer()

MeCaption = Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日 星期" & GetWD(Weekday(Date)) & " 系统时间" & Format$(Time, "hh:mm:ss")

'"xx年xx月xx日 星期几 系统时间hh:mm:ss"

End Sub

Function GetWD(ByVal Week As Integer) As String

Select Case Week

Case 1

GetWD = "日"

Case 2

GetWD = "一"

Case 3

GetWD = "二"

Case 4

GetWD = "三"

Case 5

GetWD = "四"

Case 6

GetWD = "五"

Case 7

GetWD = "六"

End Select

End Function

'

窗体上放一个Timer控件

Dim vHour%, vState$

Private Sub Form_Load()

Timer1Interval = 10

End Sub

Private Sub Timer1_Timer()

vHour = Hour(Time)

If vHour > 7 And vHour < 12 Then vState = "上午"

If vHour > 11 And vHour < 13 Then vState = "中午"

If vHour > 12 And vHour < 17 Then vState = "下午"

If vHour > 16 And vHour < 24 Then vState = "晚上"

If vHour > -1 And vHour < 6 Then vState = "凌晨"

If vHour > 4 And vHour < 8 Then vState = "早上"

Label1Caption = vState & "好,现在时间是: " & IIf(Hour(Time) > 12, Hour(Time) Mod 12, Hour(Time)) & ":" & Minute(Time) & ":" & Second(Time)

End Subss

Private

Sub

Timer1_Timer()

text1

=

format(now(),"yyyy-mm-dd

tttt")

End

Sub

format是格式化输出日期和时间格式函数,yyyy-mm-dd是完整显示年月日，tttt是显示时分秒。

timer1interval的值大于0而小于等于1000之间的任意一个整数。

以上就是关于VB显示当前时间的程序全部的内容，包括:VB显示当前时间的程序、vb 自动取得系统时间、在VB里用什么函数获取系统的当前时间等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！