可从Date变量中获取年月日分秒等 函数名和英语单词一样，比如Year就是年
dim dt as Data
dt=now()
然后
CStr(dt.Year()) & "年" & CStr(dt.Month()) & "月" & CStr(dt.Day()) & ..
Me.Caption = Format(Now(), "yyyy年mm月dd日hh时nn分ss秒")本回答被提问者采纳
dim mydatetime as datetime=datetime.now
textbox1.text=mydatetime.tostring
格式就是：××××年××月××时××分××秒
vb中怎么单独增加时间的小时、分钟、秒
可以从当前时间（Time）和系统当前日期和时间（Now）中获取 方法如下：Msgbox Hour(Now()) & "点" & Minute(Now()) & "分" & Second(Now()) & "秒"Msgbox Hour(Time()) & "点" & Minute(Time()) & "分" & Second(Time()) & "秒"Msgbox Format(Now(), "HH点MM分SS秒")Msgb...
vb显示时间
只要直接取Time$就可以了。例如：Label1.Caption = Time 如要动态显示系统时间，可以使用以下代码：Private Sub Form_Load()Label1.FontSize = 30 Label1.ForeColor = vbBlue Timer1.Interval = 1000 Label1.Caption = Time End Sub Private Sub Timer1_Timer()Label1.Caption = Time End Sub ...
VB编辑计时器显示当前时间的数字时钟(包括时:分:秒)代码
Private Sub Form_Load()Timer1.Enabled = True Timer1.Interval = 1000 Label1.Caption = Time '在Form_Load就要加上,否则你要等1秒后Label才会开始跑 End Sub Private Sub Timer1_Timer()Label1.Caption = Time End Sub
vb中时间显示设置
想要你的显示格式按你的要求用VB函数 format 如： label.caption = format(now,"hh:mm:ss")这样的结果就显示了 当前时间（20:30:45）你把"hh:mm:ss" 换成 "hh点mm分ss秒" 显示的格式就是上面的结果点数后都带单位了。
VB怎样显示日期和时间的?
VB中合法的日期型常量用数字符号 (#) 扩起来。月份在前，中间是日期，最后是年份。例如，#January 1, 1993# 。日期型变量或常量也可以用一个双精度浮点数表示，其中整数部分表示从1899-12-30到该时间的天数（1899-12-30以前的日期则用负数表示），小数部分则是从午夜起到该时间所经过的秒数占全天...
VB 如何在窗体内实时显示当前 年月日 星期 时间,谢谢!
方案一: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:...
用VB实现:输入以秒为单位表示的时间,编写程序,将其换算成几日几时几...
Print intDay intHour = (Num Mod 86400) \\ 3600 Debug.Print intHour intMinute = (Num Mod 86400 Mod 3600) \\ 60 Debug.Print intMinute intSecond = Num Mod 86400 Mod 3600 Mod 60 Debug.Print intSecond Label2.Caption = CStr(intDay) + "日" + CStr(intHour) + "时...
vb 显示日期时间
rtn=format(now,"h点m分s秒")用下面这个：Dim d As Date d = "1-2 1:2:3"'用的时候替换成你要的时间 Text1.Text = Format(d, "h点m分s秒")Text2.Text = Format(d, "m月d日")
VB程序求大神帮做。自定义的年月日时分秒的倒计时,用text输入自定义时间...
Private Sub Command1_Click()Dd = Format(Text1.Text, "yyyy\/mm\/dd hh:mm:ss")Timer1.Enabled = True End Sub Private Sub Form_Load()Timer1.Interval = 100 Timer1.Enabled = False Text1.Text = "请在此处按照2015 \/ 01 \/ 01 0:00:00的格式输入自定义的日期和时间"End Sub Privat...
VB显示当前时间的程序
Interval = 1000End SubPrivate Sub Timer1_Timer()Text1.Text = NowEnd Sub 如果你只想显示日期，则把Text1.Text = Now 改为：Text1.Text = date如果你只想显示时间，则把Text1.Text = Now 改为：Text1.Text = Hour(Time) & ":" & Minute(Time) & ":" & Second(Time)...
