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

1、启动visual basic6，执行文件-新建工程命令，在d出的对话框中选择标准exe文件后点击确定。

2、拖拽窗体周围的小正方形调节窗体的大小，修改borderstyle属性值为0-none，startupposition属性值为屏幕中心。

3、选择工具箱里标签工具，在窗体上创建两个标签控件，一个label1一个label2，修改两个标签控件的caption属性值为空。

4、分别选择工具箱里触发器和按钮控件，在窗体上创建commmand1和timer1对象。并修改commmand1的caption属性值为退出。

5、双击窗体进入代码区域，输入代码

Timer1Interval = 1000

Timer1Enabled = True

6、接着双击timer1控件，进入触发器代码区域输入代码：

Label2Caption = "今天是：" & Date

Label1Caption = "现在是：" & Format(Now, "AMPM(hh:mm:ss)")

7、接着双击commmand1控件进入代码区域输入代码为end，即为退出程序。

8、点击工具栏里的启动按钮，进行代码调试，根据错误提示修改代码直至无误为止。接着保存即可。

Sub gettime()

   nowtime = Format(DateTimeNow, "yyyy/MM/dd hh:mm:ss")

   MsgBox nowtime

End Sub

其中DateTimeNow为当前系统的时间

Format是设置时间格式

效果如下

以上就是关于vb 自动取得系统时间全部的内容，包括:vb 自动取得系统时间、vb中的Date类型如何取到日期、vb net获取系统时间等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！