用 datepart函数应该可以了Private Sub Form_Load()Let starttime = DatePart("m", Date) & "_" & DatePart("d", Date) & "_" & DatePart("yyyy", Date)MsgBox starttimeEnd Sub
正解