如何把字符串转换成日期型

Question

不需要转换，直接就可以将字符串类型的值赋给日期型变量，如：
Private Sub Command1_Click()
  Dim d As Date
  Dim s As String
  Dim yy, mm, dd As Integer
  s = "1998-03-25"
  d = s
  yy = Year(d)
  mm = Month(d)
  dd = Day(d)
  Debug.Print yy, mm, dd  
End Sub
在立即窗口上显示：1998         3         25

Answer 1

用format(exp [,expS]) 函数
exp是被转换的值,expS是转换格式字符串。
expS参数有以下几种：
1."General Date"-----如果 exp 同时包含了日期和时间，则显示它们。如果 exp 只包含日期或只包含时间，则缺少的信息不显示。日期的显示取决于用户的系统设置。
2."Long Date"-------使用用户的系统设置所指定的 Long Date 格式。
3."Medium Date"------ 使用 dd-mmm-yy 格式（例如，03-Apr-93）。日期的显示取决于用户的系统设置。 
4."Short Date"------ 使用用户的系统设置所指定的 Short Date 格式。 
5."Long Time"----- 用用户系统的长时间格式显示时间，包括时、分、秒。 
6."Medium Time"------ 使用 hh:mm AM/PM 格式，显示小时、分钟和 AM 或 PM。 
7."Short Time"---------- 使用 hh:mm 格式，显示小时和分钟