**************做一按钮,得到当时的时间,包括年月日 时分!代码啥写?

cosio 2004-08-27 09:14:33
如题!
...全文
138 点赞 收藏 17
写回复
17 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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
回复
33184777 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
回复
相关推荐
发帖

1188

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2004-08-27 09:14
社区公告
暂无公告