OK is ist ein TIMESTAMP.
Dim basic_Date as Date
basic_Date = Now()
REM Konvertierung nach css.util.Date
Dim uno_Stamp as new com.sun.star.util.DateTime
uno_Stamp.Day = Day(basic_Date)
uno_Stamp.Month = Month(basic_Date)
uno_Stamp.Year = Year(basic_Date)
uno_Stamp.Hours = Hour(basic_Date)
uno_Stamp.Minutes = Minute(basic_Date)
uno_Stamp.Seconds = Second(basic_Date)
objDatumsSpalte.updateDate(uno_Date)
REM Konvertierung nach ISO-String
strDate = Year(basic_Date)& "-" \
& Month(basic_Date) &"-"&
& Day(basic_Date) &" "& \
& Hour(basic_Date)& ":" \
& Minute(basic_Date) &":" \
& Second(basic_Date)
objDatumsSpalte.updateString(strDate)
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
