Format a database date

[sashi]

Format database date.

This snippet of code will allow you to take in a date parameter. It will check the date parameter to see if there is a valid time portion or not. It will then format the date in such a way as to be functional regardless of where or how it's used.

Public Function FormatDate(ByVal vdtDate As Date) As String
Dim dtNullDate As Date
FormatDate = "NULL"
 
  If vdtDate = dtNullDate Then Exit Function
  If DatePart("h", vdtDate) = 0 And DatePart("n", vdtDate) = 0 And     DatePart("s", vdtDate) = 0 Then
    FormatDate = "{d '" & Format$(vdtDate, "yyyy-mm-dd") & "'}"
  Else
    FormatDate = "{ts '" & Format$(vdtDate, "yyyy-mm-dd hh:nn:ss") & "'}"
  End If
End Function