How about
Code:
'---------------------------------------------------------------------------------------
' Method : fcnGetDelimDate
' Author : davegri & moke123
' Date : 01/02/24
' Purpose: Returns delimited(#) date as string
' arg can be such as
' "2/2/22"
' "2/2/2022"
' dateadd("m",1,"2/2/22")
' "41234"
' 41234
' Date()
'
' arg cannot be
' 2/2/22 or 2/2/2022 ( resolves as #12/30/1899# after the division arithmetic completes )
'---------------------------------------------------------------------------------------
Public Function fcnGetDelimDate(arg As String) As String
Dim JetDte As String: JetDte = "\#mm\/dd\/yyyy\#"
Dim JetDte2 As String: JetDte2 = "\#mm\/dd\/yyyy hh\:nn\:ss\#"
If InStr(arg, ":") = 0 Then
fcnGetDelimDate = Format(arg, JetDte)
Else
fcnGetDelimDate = Format(arg, JetDte2)
End If
End Function