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

[cosio]

如题！

[helanshan]

'添加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

[haiz_2001]

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

[kmzs]

结贴。。。

[haohaohappy]

now

[guxizhw]

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

[饮水需思源]

msgbox now()

[cso]

年月日 时分:
msgbox Date

[cosio]

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

[laviewpbt]

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

[cso]

Text1.Text = Date

[gpyrbn]

text1.text=date and time

[gpyrbn]

更正一下啊！

text1.text=date & time

[hpygzhx520]

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

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

[zyg0]

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

[hn123]

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

[cosio]

JiText(0).Text ？

[cosio]

我用的是MaskEdBox ！