Private Sub Command2_Click()
Dim m_date As Date
m_date = Now
Text1.Text = Trim(Format(m_date, "hh:mm:ss"))
DTPicker1.Value = Text1.Text
End Sub
Dim m_date As Date
m_date = Now
Text1.Text = Trim(Format(m_date, "hh:mm:ss"))
DTPicker1.Value = Text1.Text
End Sub
解决方案 »
- 我有几个简单的vb编程问题,望走过的路过的都进来瞧瞧!^_^
- 简单但高分哦:listbox
- 谁有英文简历样例?求
- 救命啊 WINSOCK问题 为什么不允许多个用户同时登陆 运行时间一长就报360错误
- 谁有FTP程序的源代码,重谢!!!
- 怎么把字符串转化为integer long datatime ?
- 关于VB6.0读取XML节点数据问题
- 高分求助,VB高手请帮忙,关于DATAGRID控件的加入数据的问题!!!!
- 用什么方法向组件传递批量数据比较好?
- 有谁知道vb中adodc与mshflexgrid控件的绑定的速度问题
- 判断文件是否上传(FTP)
- 想分别提取一个时间型变量中的小时,分钟,秒 应该怎么做?
如果要指定时间用dtpicker.value=format(时间,"hh:mm:ss")