[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