December 4th, 2006, 09:53 AM
|
 | Expert | | Join Date: Jun 2006 Location: Seremban, Malaysia
Posts: 1,630
| |
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
-
Last edited by RedSon; November 21st, 2007 at 07:05 PM.
|
