加入如下代码
方案一:
Private Sub Timer1_Timer()
T.Text = Format(Now, "yyyy年mm月dd日 ddd hh:mm:ss")
End Sub
显示格式为:2007年06月27日 Wed 03:47:23
方案二:
Private Sub Timer1_Timer()
T.Text = Format(Now, "yyyy年mm月dd日 ") & WeekdayName(Weekday(Now)) & Format(Now, " hh:mm:ss")
End Sub
显示格式为:2007年06月27日 星期三 03:47:15
这会在程序启动1秒后显示时间
如果要启动后立刻显示,需要在加入代码
Private Sub Form_Load()
Timer1_Timer
End Sub本回答被提问者采纳
Text1 = Now'显示日期和时间
Text2 = Date$'显示日期
Text3 = Time$'显示时间
End Sub
VB 如何在窗体内实时显示当前 年月日 星期 时间,谢谢!
在窗体中加入Timer控件命名Timer1,Interval属性设为1000(1秒),TextBox控件命名T 加入如下代码 方案一:Private Sub Timer1_Timer()T.Text = Format(Now, "yyyy年mm月dd日 ddd hh:mm:ss")End Sub 显示格式为:2007年06月27日 Wed 03:47:23 方案二:Private Sub Timer1_Timer()T.Text = Format...
VB显示当前时间的程序
窗体里加入以下代码：Private Sub Form_Load()Text1.Text = NowTimer1.Enabled = TrueTimer1.Interval = 1000End SubPrivate Sub Timer1_Timer()Text1.Text = NowEnd Sub 如果你只想显示日期，则把Text1.Text = Now 改为：Text1.Text = date如果你只想显示时间，则把Text1.Text = Now 改为...
如何让vba用户窗体的文本框内自动显示出系统时间?
VBA中窗体出现时触发事件，使用UserForm_Initialize()，类似VB中的Form_load()VBA中的文本框是Textbox，而VB中的是text 日期都可以用Date函数来获得，默认是YYYY\/M\/D格式，如果一定要显示固定格式，可以format函数，例如Formt(Date,"yyyy-m-d")故下面代码可实现题目中的要求——（假设日期框是textbox...
vb怎么在窗体上做时间显示?
VB可使用Timer控件实现在窗体的标签控件中显示系统时间等信息。Timer 控件，通过引发 Timer 事件，Timer 控件可以有规律地隔一段时间执行一次代码。实现代码：Private Sub Form_Load() Timer1.Interval = 500End SubPrivate Sub Timer1_Timer() If lblTime.Caption <> CStr(Time) Then lblTim...
...怎么在一个标签框内使用计时器控件同时显示当前日期和时间?_百度...
Private Sub Form_Load()Timer1.Interval = 50 Timer1.Enabled = True End Sub Private Sub Timer1_Timer()Dim t_date As String Dim t_time As String t_date = Format(Date, "yyyy-mm-dd")t_time = Format(Time, "hh:mm:ss")Label1.Caption = t_date & " " & t_time End Sub...
如何使用vb获取时间和日期
我们在使用电脑的时候会发现在屏幕的右下角会有时间显示，其实我们也可以通过编写一段小程序来获取系统时间和日期，不信您看，现在本人就利用vb6书写一段代码来获取系统时间和日期，同时分享制作步骤和截图，希望对你有所帮助。启动visual basic6，执行文件-新建工程命令，在弹出的对话框中选择标准exe文件后...
vb 在窗体上放置五个标签,分别表示年月日星期和时间 怎么做
Private Sub Form_Load()Label1.AutoSize = True Label1.ForeColor = vbGreen Label1.BackColor = vbBlack Label1.FontSize = 32 timer1.interval=1000 End Sub private sub timer1_timer()Label1.Caption =Format(Now,"YYYY年MM月DD日 hh：nn：ss")end sub ...
Vb中在文本框输入年月,怎么在窗体中显示“该年该月有多少天”?_百度知 ...
Private Sub Command1_Click()y = CInt(Text1)m = CInt(Text2)mon = Array(0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)mon(2) = mon(2) - (y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 = 0)Print y; "年"; m; "月有"; mon(m); "天"End ...
VB中如何在窗体最顶上显示时间?
在窗体添加Timer控件，然后：Private Sub Form_Load()Timer1.Interval = 1000 Timer1.Enabled = True End Sub Private Sub Timer1_Timer()Form1.Caption = "XX " & CStr(Time$)End Sub 搞定！
Vb中print怎么用啊
在实际编程过程中，有时候我们需要将多个内容连续输出到同一行或换行显示。这时候，我们可以使用分号（;）来实现。例如：print Hello; print world! 这样两个输出内容就会连在一起显示在控制台上。在使用print命令时还有一些小技巧和注意事项需要注意。比如说，在输出数字时，我们可以使用格式化字符串来控制...
