建一个Command1，Text1。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
Text1.Text = FormatDateTime(Text1.Text, vbShortDate)
End Sub
replace函数
format(date,"yyyy-mm-dd")
timer是计时器，不返回日期吧？
这样就可以了:
Private Sub Form_Load()
Me.Print Format("8/28/2008", "yyyy-mm-dd")
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除!
QQ：24596024