FORMATDATETIME

FORMATDATETIME(date [,namedformat])

Returns the expression formatted as a date or time (String).

date	The date to be formatted (Variant).
namedformat	(Optional) A vbDateTimeFormat constant that specifies the format (Integer): 0 = vbGeneralDate (default) 1 = vbLongDate 2 = vbShortDate 3 = vbLongTime 4 = vbShortTime

REMARKS

* If "namedformat" is left blank, then 0 is used.
* This function was added in VB 6.0 and is slightly faster than using FORMAT
* You can use the FORMAT function to return a text string of a date in a particular format.
* You can use the FORMATCURRENCY function to return an expression formatted as a currency value.
* You can use the FORMATNUMBER function to return an expression formatted as a number.
* You can use the FORMATPERCENT function to return an expression formatted as a percentage.
* The equivalent .NET function is [[Microsoft.VisualBasic.Strings.FormatDateTime]]
* For the Microsoft documentation refer to learn.microsoft.com

Debug.Print FormatDateTime(Date + TimeValue("04:30:00"), VbDateTimeFormat.vbGeneralDate) '= 18/02/2024 04:30:00  
Debug.Print FormatDateTime(Date + Time(), VbDateTimeFormat.vbLongDate)                   '= 18 February 2024  
Debug.Print FormatDateTime(Date, VbDateTimeFormat.vbLongDate)                            '= 18 February 2024  
Debug.Print FormatDateTime(Date, VbDateTimeFormat.vbShortDate)                           '= 18/02/2024  
Debug.Print FormatDateTime(Date + Time(), VbDateTimeFormat.vbLongTime)                   '= 09:24:53  
Debug.Print FormatDateTime(Time(), VbDateTimeFormat.vbLongTime)                          '= 09:24:53  
Debug.Print FormatDateTime(Time(), VbDateTimeFormat.vbShortTime)                         '= 09:24  

Dim dtDate As Date 
dtDate = #1/7/2024# 
Debug.Print FormatDateTime(dtDate, vbGeneralDate)     '= 07/01/2024  
Debug.Print FormatDateTime(dtDate, vbLongDate)        '= 07 January 2024  
Debug.Print FormatDateTime(dtDate, vbShortDate)       '= 07/01/2024  

dtDate = #1/7/2024 12:30:20 PM# 
Debug.Print FormatDateTime(dtDate, vbLongTime)        '= 12:30:20  
Debug.Print FormatDateTime(dtDate, vbShortTime)       '= 12:30