Format a database date

sashi · 07:05 PM

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.

Expand|Select|Wrap|Line Numbers

 
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

Format a database date

Similar Visual Basic 4 / 5 / 6 bytes

/bytes/development

/bytes/it

/bytes/other

/bytes/about