[thelist] Access Date Trouble
Mike King
mike.king at redroom.co.uk
Tue Dec 18 09:40:32 CST 2001
OK here's the functions...
'==============================================================
Public Function DateToSQL(dteDate)
'-- Converts a date into a date string of format [YYYYMMDD-hh:mm:ss].
If NOT IsNull(dteDate) Then
DateToSQL = Year(dteDate) '-- Shoud always be 4 digit.
'-- Make sure day, month, hour, minute & seconds have 2 digits.
DateToSQL = DateToSQL & TwoCharNum(Month(dteDate))
'-- Days.
DateToSQL = DateToSQL & TwoCharNum(Day(dteDate))
'-- Hours.
DateToSQL = DateToSQL & "-" & TwoCharNum(Hour(dteDate))
'-- Minutes.
DateToSQL = DateToSQL & ":" & TwoCharNum(Minute(dteDate))
'-- Seconds.
DateToSQL = DateToSQL & ":" & TwoCharNum(Second(dteDate))
End If
End Function
'-----------------------------------------------------
Private Function NumString(ByVal vNumString)
If vNumString = "" Then
NumString = "NULL"
ElseIf IsNumeric(vNumString) Then
NumString = cStr(vNumString)
Else
NumString = "NULL"
End If
End Function
'-----------------------------------------------------
Private Function TwoCharNum(ByVal p_Number)
TwoCharNum = "00"
p_Number = cStr(p_Number)
If Len(p_Number) = 2 Then
TwoCharNum = p_Number
ElseIf Len(p_Number) = 1 Then
TwoCharNum = "0" & p_Number
End If
End function
'==============================================================
Cheers
mk
> I'd love your date functions
>Mike, yeh id be interested in your date functions.
More information about the thelist
mailing list