Datum falsch ausgegebn
22.07.2005 00:11:44
Kay
und zwar wollt ich aus nem Dialogfenster ein Datum in eine Zelle in Excel einlesen Da kommt aber immer nur irgendwelcher nonsens wie z.B. "01.01.-8739" .. hab schon sämtliche Datumsformatierungen ausprobiert, aber der zeigt immer was falsches an ...
P.S.: bin nicht so der pro, also nicht zu kompliziert erklären ;)
achso .. hier mal mein quelltext dazu, vielleicht hilft das weiter ..
Hinweis: TB_Tag ist ein Datumsfeld
Quelltext:
Sub checkdia
const startline = 10
dim mysheet as object, mydoc as object
dim mycell as object, tempcell as object
dim boxbetrag as object, betrag as double
dim boxtag as object, tag as double
dim boxtext1 as object, text1 as string
dim anzahl as integer, nextfree as integer
mydoc = ThisComponent
mysheet = mydoc.sheets(0)
myCell = mysheet.getcellbyposition(1,4)
anzahl = mycell.value
nextfree = anzahl + Startline
boxtag = Dialog1.getcontrol("TB_Tag")
tag = boxtag.date
tempcell = mysheet.getcellbyposition (0, nextfree-1)
tempcell.value = tag
End Sub
MfG Kay