VBA 数据类型相互转换
CBool(expression)
CByte(expression)
CCur(expression)
CDate(expression)
CDbl(expression)
CDec(expression)
CInt(expression)
CLng(expression)
CSng(expression)
CStr(expression)
CVar(expression)
CStr(expression)
实例
Sub test()
Dim a As String
Dim da As Date
a = "65742"
da = CDate(a)
MsgBox da
End Sub
效果如图
