Blöderweise hat das Datumsfeld keinen eigenen Namen über den man darauf zugreifen
kann.
Es geht aber über eine Schleife über alle Felder.
Das Datum ist dann in dem Sruct DateTimeValue abgelegt.
Aus diesem Struct muß man sich dann wieder das Datum für die Datenbank zusammen
setzen.
sub zeigedatum
oDoc = thiscomponent
oTxtFelder = oDoc.getTextFields().createEnumeration()
do while oTxtFelder.hasmoreElements()
oFeld = oTxtFelder.nextElement
if ofeld.IsDate=true then
msgbox ofeld.DateTimeValue.day
msgbox ofeld.DateTimeValue.Hours
msgbox ofeld.DateTimeValue.HundredthSeconds
msgbox ofeld.DateTimeValue.Minutes
msgbox ofeld.DateTimeValue.Month
msgbox ofeld.DateTimeValue.Seconds
msgbox ofeld.DateTimeValue.Year
mydatumstr=ofeld.DateTimeValue.day+"."+ofeld.DateTimeValue.Month+"."+ofeld.DateTimeValue.Year
end if
loop
end sub
mfg
Michael
