如何将日期型数据转换为字符串?

Dim dat As Date
Dim sDate As String
dat = Date
sDate = CStr(dat)
Print sDate

dim str as String
str=Date$