Question

vb修改系统时间

一个TEXTBOX
当运行时把日期截取到TEXT1.text里面
当按下按钮一时 又会把text1.text里的日期改为系统现在的日期
Private Sub Form_Load()
txt1.Text = "#" & Day(Date) & "/" & Month(Date) & "/" & Year(Date) & "#"
Date = #8/22/1985#
Private Sub Command1_Click()
Date = txt1.text
End Sub
可是老出现不匹配 怎么办???

Answer 1

txt1.text=后面不要加什么#啦
顶多需要在data=时加个cdate转一下
date=cdate(txt1)

=================

Private Sub Form_Load()
Text1 = Date
Date = #9/9/1999#
End Sub

Private Sub Command1_Click()
Date = Text1
End Sub

小心你的防火墙。。。。。

Answer 2

你这样可以修改系统时间么？

Answer 3

time="8:48"
date="2008-2-26"
这样就可以了