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

Question

如题！

Answer 1

年月日 时分:
msgbox Date

Answer 2

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

Answer 3

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

Answer 4

更正一下啊！text1.text=date & time

Answer 5

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

Answer 6

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

Answer 7

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

Answer 8

'添加Timer控件Private Sub Command1_Click()
Me.Timer1.Enabled = True
Call Timer1_Timer
End SubPrivate Sub Form_Load()
Me.Timer1.Interval = 1000
Me.Timer1.Enabled = False
End SubPrivate Sub Timer1_Timer()   '添加Timer控件
Me.MaskEdBox1.Text = Format(Now, "yyyy年mm月dd日  hh时mm分ss秒 ")
End Sub

Answer 9

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

Answer 10

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