vb 时间操作控件

vb  时间操作控件

【要加时间控件“Timer”】【样子是闹钟】

Private Sub Form_Load()
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Me.Cls
Text1 = Now  ’【取的时间 赋值 到控件“Text1”】
End Sub

’=================================================================
’【计时 或 到计时】要增加时间控件【样子是闹钟】
Dim a As Integer '必须在前

Private Sub Command1_Click()
Timer1.Interval = 1000
a = 30                       '从30开始
Label1.Caption = a         
End Sub

Private Sub Timer1_Timer()   
a = a - 1                     ’【到计时】【"+"为正计时】
Label1.Caption = a           '到几时显示在Label1控件中
If a = 0 Then                 '停止时间为0
Timer1.Enabled = False         
End If

If a < 6 Then               '当时间只剩下5秒时
Label1.ForeColor = vbRed     '字体颜色为红色
End If
End Sub
’=================================================================

三、日期与时间函数
1、 Day(Now):返回当前的日期
2、 WeekDay(Now):返回当前的星期
3、 Month(Now):返回当前的月份
4、 Year(Now):返回当前的年份
5、 Hour(Now):返回小时(0~23)
6、 Minute(Now):返回分(0~59)
7、 Second(Now):返回秒 (0~59)

Now  :返回，如：01-9-13 16: 09: 42.
Date :返回，如：01-9-13
Time :返回，如：16: 09: 42


_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/