Results 1 to 3 of 3
  1. #1
    Join Date
    Mar 2003
    Posts
    69

    Unanswered: DB2 Inserting a Timestamp

    How do I insert a timestamp value from through my ATL COM+ application.
    The format which I am using is,
    '2004-03-12-00.00.00.000000'. Is there any other way whether we can try this option???


    Thanks,
    Anto. A.R.

  2. #2
    Join Date
    Feb 2004
    Posts
    9

    Re: DB2 Inserting a Timestamp

    May be this will give you an idea.

    Function fncFmtDate( _
    byVal strDate, _
    byRef strFormat _
    )
    ' Accepts strDate as a valid date/time,
    ' strFormat as the output template.
    ' The function finds each item in the
    ' template and replaces it with the
    ' relevant information extracted from strDate

    ' Template items (example)
    ' %m Month as a decimal (02)
    ' %B Full month name (February)
    ' %b Abbreviated month name (Feb )
    ' %d Day of the month (23)
    ' %O Ordinal of day of month (eg st or rd or nd)
    ' %j Day of the year (54)
    ' %Y Year with century (1998)
    ' %y Year without century (98)
    ' %w Weekday as integer (0 is Sunday)
    ' %a Abbreviated day name (Fri)
    ' %A Weekday Name (Friday)
    ' %H Hour in 24 hour format (24)
    ' %h Hour in 12 hour format (12)
    ' %N Minute as an integer (01)
    ' %n Minute as optional if minute <> 0
    ' %S Second as an integer (55)
    ' %P AM/PM Indicator (PM)

    Dim intPosItem
    Dim int12HourPart
    Dim str24HourPart
    Dim strMinutePart
    Dim strSecondPart
    Dim strAMPM

    ' Insert Month Numbers
    strFormat = Replace(strFormat, "%m", _
    DatePart("m", strDate), 1, -1, vbBinaryCompare)

    ' Insert non-Abbreviated Month Names
    strFormat = Replace(strFormat, "%B", _
    MonthName(DatePart("m", strDate), _
    False), 1, -1, vbBinaryCompare)

    ' Insert Abbreviated Month Names
    strFormat = Replace(strFormat, "%b", _
    MonthName(DatePart("m", strDate), _
    True), 1, -1, vbBinaryCompare)

    ' Insert Day Of Month
    strFormat = Replace(strFormat, "%d", _
    DatePart("d",strDate), 1, _
    -1, vbBinaryCompare)

    ' Insert Day of Month Ordinal (eg st, th, or rd)
    strFormat = Replace(strFormat, "%O", _
    fncGetDayOrdinal(Day(strDate)), _
    1, -1, vbBinaryCompare)

    ' Insert Day of Year
    strFormat = Replace(strFormat, "%j", _
    DatePart("y",strDate), 1, _
    -1, vbBinaryCompare)

    ' Insert Long Year (4 digit)
    strFormat = Replace(strFormat, "%Y", _
    DatePart("yyyy",strDate), 1, _
    -1, vbBinaryCompare)

    ' Insert Short Year (2 digit)
    strFormat = Replace(strFormat, "%y", _
    Right(DatePart("yyyy",strDate),2), _
    1, -1, vbBinaryCompare)

    ' Insert Weekday as Integer (eg 0 = Sunday)
    strFormat = Replace(strFormat, "%w", _
    DatePart("w",strDate,1), 1, _
    -1, vbBinaryCompare)

    ' Insert Abbreviated Weekday Name (eg Sun)
    strFormat = Replace(strFormat, "%a", _
    WeekDayName(DatePart("w",strDate,1),True), 1, _
    -1, vbBinaryCompare)

    ' Insert non-Abbreviated Weekday Name
    strFormat = Replace(strFormat, "%A", _
    WeekDayName(DatePart("w",strDate,1),False), 1, _
    -1, vbBinaryCompare)

    ' Insert Hour in 24hr format
    str24HourPart = DatePart("h",strDate)
    If Len(str24HourPart) < 2 then str24HourPart = "0" & _
    str24HourPart
    strFormat = Replace(strFormat, "%H", str24HourPart, 1, _
    -1, vbBinaryCompare)

    ' Insert Hour in 12hr format
    int12HourPart = DatePart("h",strDate) Mod 12
    If int12HourPart = 0 then int12HourPart = 12
    strFormat = Replace(strFormat, "%h", int12HourPart, 1, _
    -1, vbBinaryCompare)

    ' Insert Minutes
    strMinutePart = DatePart("n",strDate)
    If Len(strMinutePart) < 2 then _
    strMinutePart = "0" & strMinutePart
    strFormat = Replace(strFormat, "%N", strMinutePart, _
    1, -1, vbBinaryCompare)

    ' Insert Optional Minutes
    If CInt(strMinutePart) = 0 then
    strFormat = Replace(strFormat, "%n", "", 1, _
    -1, vbBinaryCompare)
    Else
    If CInt(strMinutePart) < 10 then _
    strMinutePart = "0" & strMinutePart
    strMinutePart = ":" & strMinutePart
    strFormat = Replace(strFormat, "%n", strMinutePart, _
    1, -1, vbBinaryCompare)
    End if

    ' Insert Seconds
    strSecondPart = DatePart("s",strDate)
    If Len(strSecondPart) < 2 then _
    strSecondPart = "0" & strSecondPart
    strFormat = Replace(strFormat, "%S", strSecondPart, 1, _
    -1, vbBinaryCompare)


    ' Insert Millseconds
    strMilliSecondPart = DatePart("M",strDate)
    If (Len(strMilliSecondPart) < 2) Then
    strMilliSecondPart = "00" & strMilliSecondPart
    elseIf (Len(strMilliSecondPart) < 3) then
    strMilliSecondPart = "0" & strMilliSecondPart
    end if
    strFormat = Replace(strFormat, "%M", strMilliSecondPart, 1, _
    -1, vbBinaryCompare)

    ' Insert AM/PM indicator
    If DatePart("h",strDate) >= 12 then
    strAMPM = "PM"
    Else
    strAMPM = "AM"
    End If

    strFormat = Replace(strFormat, "%P", strAMPM, 1, _
    -1, vbBinaryCompare)

    fncFmtDate = strFormat
    End Function ' fncFmtDate

    Originally posted by antodomnic
    How do I insert a timestamp value from through my ATL COM+ application.
    The format which I am using is,
    '2004-03-12-00.00.00.000000'. Is there any other way whether we can try this option???


    Thanks,
    Anto. A.R.

  3. #3
    Join Date
    Aug 2003
    Location
    Massachusetts, USA
    Posts
    106

    Re: DB2 Inserting a Timestamp

    Or INSERT INTO sometable (timestamp_column)
    VALUES (TIMESTAMP_ISO(date_value))


    Originally posted by antodomnic
    How do I insert a timestamp value from through my ATL COM+ application.
    The format which I am using is,
    '2004-03-12-00.00.00.000000'. Is there any other way whether we can try this option???


    Thanks,
    Anto. A.R.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •