发布于 2009-12-18 11:19:25
2楼
Dim DTP_Date
Dim strDate
Set DTP_Date = ScreenItems("DTPicker_Date")
strDate = CStr(Year(DTP_Date.Value))
strDate = strDate & "-" & Right("00" & CStr(Month(DTP_Date.Value)),2)
strDate = strDate & "-" & Right("00" & CStr(Day(DTP_Date.Value)),2)
得到的日期字符串格式为:2009-12-08
无论成与败,无论甜与苦,我还是我。