错误信息判断!!!!

Question

错误信息判断!!!!
在以下日期格式转换过程中:如果转换正确:AA = Format(CDate(AAA), "yyyy-mm-dd hh:mm:ss")
如出现错误:AA = Format(Now, "yyyy-mm-dd hh:mm:ss")
我的代码中问题是:无论是否有错误:AA = Format(Now, "yyyy-mm-dd hh:mm:ss"),请教该如何写代码,谢谢!!!
注:AAA = Trim(Mid(AAA, jh1 + 1, 22))有这句,应能正确转换
   AAA = Trim(Mid(AAA, jh1 + 1, 22))无这句,不能正确转换Private Sub Form_Load()
Dim AAA AS STRING
Dim AA 
AAA = "Date: Tue, 29 Jul 2003 13:34:54 "
    jh1 = InStr(AAA, ",")
    AAA = Trim(Mid(AAA, jh1 + 1, 22))
     On Error GoTo KK
     AA = Format(CDate(AAA), "yyyy-mm-dd hh:mm:ss")
KK:
  AA = Format(Now, "yyyy-mm-dd hh:mm:ss")
MsgBox AA
End Sub

Answer 1

Dim AA AS STRING 应为Dim AAA AS date
AA = Format(Now, "yyyy-mm-dd hh:mm:ss")        '写法正确。Private Sub Form_Load()
    Dim AAA AS STRING
    Dim AA as date
    AAA = "Date: Tue, 29 Jul 2003 13:34:54 "
    jh1 = InStr(AAA, ", ")
    AAA = Trim(Mid(AAA, jh1 + 1, 22))
    On Error GoTo KK
    AA = Format(CDate(AAA), "yyyy-mm-dd hh:mm:ss")
    MsgBox AA
    exit sub
KK:
    AA = Format(Now, "yyyy-mm-dd hh:mm:ss")
    MsgBox AA
End Sub

Answer 2

Dim AA AS STRING 应为Dim AAA AS date
AA = Format(Now, "yyyy-mm-dd hh:mm:ss")        '写法正确。Private Sub Form_Load()
    Dim AAA AS STRING
    Dim AA as date
    AAA = "Date: Tue, 29 Jul 2003 13:34:54 "
    jh1 = InStr(AAA, ", ")
    AAA = Trim(Mid(AAA, jh1 + 1, 22))
    On Error GoTo KK
    AA = Format(CDate(AAA), "yyyy-mm-dd hh:mm:ss")
    MsgBox AA
    exit sub
KK:
    AA = Format(Now, "yyyy-mm-dd hh:mm:ss")
    MsgBox AA
End Sub

Answer 3

应该是这样
Private Sub Form_Load()
Dim AAA As String
Dim AA
AAA = "Date: Tue, 29 Jul 2003 13:34:54 "
    jh1 = InStr(AAA, ",")
    AAA = Trim(Mid(AAA, jh1 + 1, 22))
     On Error GoTo KK
     AA = Format(CDate(AAA), "yyyy-mm-dd hh:mm:ss")
     Exit Sub
KK:
  AA = Format(Now, "yyyy-mm-dd hh:mm:ss")
MsgBox AA
End Sub
你漏了一句exit sub,导致你都会执行KK:错误处理程序