Monday, July 16, 2007 6:03 AM
Eric
function to format a date field in a sql server format
Private Function convertToSqlDate(ByVal TheDate As Date) As String
Dim str As String
With TheDate
str = (.Year.ToString.PadLeft(2, Convert.ToChar("0")) & "-" & .Month.ToString.PadLeft(2, Convert.ToChar("0")) & "-" & .Day.ToString.PadLeft(2, Convert.ToChar("0")) & " " & .Hour.ToString.PadLeft(2, Convert.ToChar("0")) & ":" & .Minute.ToString.PadLeft(2, Convert.ToChar("0")) & ":" & .Second.ToString.PadLeft(2, Convert.ToChar("0")) & ":" & .Millisecond.ToString.PadLeft(2, Convert.ToChar("0")))
End With
Return str
End Function