如何在libreoffice或VBA中验证ISO格式（YYYY-MM-DD）日期验证。如果它不是YYYY-MM-DD，它应该给我一个错误信息

Question

必须在我的代码中检查日期格式验证

如果它是YYYY-MM-DD可以继续，否则退出循环

这样的事情

if date is not in YYYY-MM-DD format  
  Msgbox "please enter a valid format of YYYY-MM-DD  
exit     
else  
   all those calcualtions  
end if

Answer 1

Use this function:

如果您从非用户来源获得结果，这应该有效。如果数据来自用户，我会测试它是否为任何有效日期，然后转换为您需要的格式。

Function TestDate(D As String) As String
    Dim X As Date

    On Error GoTo inval

    If Len(D) = 10 Then
        X = CDate(D)
        TestDate = Format(X, "YYYY-MM-DD")
    Else
        TestDate = "Invalid"
    End If

    Exit Function

inval:
    TestDate = "Invalid"
End Function