Andreas Saeger wrote:
Hast Du auch überprüft, ob wirklich das korrekte Datum in die Datenbank eingetragen wird? Bei der Konvertierung zwischen Double und Datum verwenden Datenbanken den 1900-01-01 als Tag Null, während die Basic-Sprache aus bestimmten Gründen immer den 1899-12-30 als Tag Null zugrundelegt.
Wusstichs doch! Heute ist der 25. Sub Snippet() oDrawPage = ThisComponent.DrawPage oForms = oDrawPage.getForms() oObj1 = oForms.getByIndex( 0 ) oColumns = oObj1.getColumns() oObj2 = oColumns.getByName( "STAMP" ) oObj2.updateDouble(Now()) print oObj2.TimeStamp.Day
REM 27
basic_Date = Now() 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) oObj2.updateTimeStamp(uno_Stamp) print oObj2.TimeStamp.Day
REM 25
End Sub --------------------------------------------------------------------- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
