**************做一按钮，得到当时的时间，包括年月日时分！代码啥写？

cosio 2004-08-27 09:14:33

如题！

...全文

183 17 打赏收藏转发到动态举报

写回复

用AI写文章

17 条回复

切换为时间正序

请发表友善的回复…

发表回复

cosio 2004-08-27

打赏
举报

我用的是MaskEdBox ！

cosio 2004-08-27

打赏
举报

JiText(0).Text ？

hn123 2004-08-27

打赏
举报

Private Sub Command1_Click()
Text1.Text = Date & Time
End Sub

zyg0 2004-08-27

打赏
举报

now函数当前时间
day(now)天
year(new)年
......

hpygzhx520 2004-08-27

打赏
举报

Private Sub Command1_Click()
Label1.Caption = Now
End Sub

动态的：
Private Sub Timer1_Timer()
Label1.Caption = Now
End Sub

gpyrbn 2004-08-27

打赏
举报

更正一下啊！

text1.text=date & time

gpyrbn 2004-08-27

打赏
举报

text1.text=date and time

cso 2004-08-27

打赏
举报

Text1.Text = Date

laviewpbt 2004-08-27

打赏
举报

Private Sub Command1_Click()
Text1.Text = Now
End Sub

cosio 2004-08-27

打赏
举报

确定完以后，还要填入Lrtext中！

cso 2004-08-27

打赏
举报

年月日时分:
msgbox Date

饮水需思源 2004-08-27

打赏
举报

msgbox now()

guxizhw 2004-08-27

打赏
举报

先把msktext设置成____-__-__
msktext1.text=format(now ,"yyyy-mm-dd")

haohaohappy 2004-08-27

打赏
举报

now

kmzs 2004-08-27

打赏
举报

结贴。。。

haiz_2001 2004-08-27

打赏
举报

Format(Now, "yyyy年mm月dd日 hh时mm分ss秒 ")

helanshan 2004-08-27

打赏
举报

'添加Timer控件

Private Sub Command1_Click()
Me.Timer1.Enabled = True
Call Timer1_Timer
End Sub

Private Sub Form_Load()
Me.Timer1.Interval = 1000
Me.Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer() '添加Timer控件
Me.MaskEdBox1.Text = Format(Now, "yyyy年mm月dd日 hh时mm分ss秒 ")
End Sub