bycj.net
当前位置:首页 >> 怎样在VB编程中插入当前日期和时间? >>

怎样在VB编程中插入当前日期和时间?

先插入一个Timer控件,将其Interval属性设置为1000, 再插入一个Label控件,其属性你自己设置, Timer1的代码:Label1.Caption = Date & " " & Time

Private Sub Command1_Click() a = Array(0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31) y = CInt(InputBox("请输入年份")) m = CInt(InputBox("请输入月份")) d = CInt(InputBox("请输入几号")) s = "今天是" & y & "年" & m & "月" & d...

可以用Now(),不过只是获取当前时间, 如果要与系统时间同步,还需要用个定时器Timer()来执行获取系统时间: Print Date; "日期" Print Time; "时间" Print Now; "日期和日间" Print Format(Now, "yyyy年mm月dd日 hh时mm分ss秒") Print Year(Now); ...

'添加1个标签(Label),1个计时器(timer),把计时器的interval属性设置为1000 private sub timer1_timer() label1.caption = now end sub

Private Sub Command1_Click() a = Array(0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31) y = CInt(InputBox("请输入年份")) m = CInt(InputBox("请输入月份")) d = CInt(InputBox("请输入几号")) s = "输入是" & y & "年" & m & "月" & d...

Private Sub Command1_Click()MsgBox Val(Text1.Text) * 3600 + Val(Text2.Text) * 60 + Val(Text3.Text)End Sub

now函数、用法直接用示例:text1=now 或者用time控件将Interval的属性设为1000然后在代码窗口输入 text1=now

Private Sub Command1_Click() Dim i, j, iHour, iMinute, iSecond As Integer i = Val(Text1.Text) iSecond = i Mod 60 i = i \ 60 iMinute = i Mod 60 i = i \ 60 iHour = i Mod 60 Label1.Caption = Str(iHour) & "小时" & Str(iMinute) & "...

If IsDate(Text1.Text) Then MsgBox "正确的日期格式"Else MsgBox "错误的日期格式"End If要再高级点就是: If IsDate(Text1.Text) Then If Format(Text1.Text, "yyyy-m-d") = Text1.Text Then MsgBox "正确的日期格式" Else MsgBox "不是指定的...

这个问题挺麻烦的,超出了知道解释的范围,若确实有需要,并且有赞助的话,可以私信找我写。

网站首页 | 网站地图
All rights reserved Powered by www.bycj.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com