工具/材料:Microsoft Office Excel2007版,Excel表格。
1、首先双击打开Excel表格。
2、其次在Microsoft Office Excel2007版界面上,选中底部工作表,右键点击“查看代码”。
3、接着在d出的VBA窗口中,输入日期格式转换的代码“Private Sub dateTra() Dim datetime datetime = "2020/2/13" MsgBox (Format(datetime, "YYYY-MM-DD")) End Sub
”。
4、其次在d出的VBA窗口中,点击工具栏里的三角形图标。
5、最后在Microsoft Office Excel2007版界面上,d出提示框,成功显示日期格式转换。
Private Sub Command1_Click()a = "20131024200000"
a = CDate(Format(a, "0000/00/00 00:00:00"))
MsgBox a
End Sub
'时间格式,请参考。
VB中日期的格式转为字符串显示出来与系统桌面右下角显示的系统时间格式一致。
Private Sub Command1_Click()Dim MyDate
MyDate = Date ' MyDate 的值为系统当前的日期。
MsgBox MyDate
End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)