Erstmal: Toll dass es das Forum gibt.
Ich arbeite an einem kleinen Projekt mit Base (Mietverträge erfassen). Dabei verwende ich ein Formular um die Daten einzugeben. In diesem Formular werden einige Datenfelder berechnet: zB aus StartDatum und Dauer berechne ich das EndDatum, das funktioniert alles perfekt (korrekter Wert im richtigen Feld). Diese Berechnung geschieht mit einem Makro das in der Formulardatei (Writerdokument mit BaseAssistenten erstellt) gespeichert ist. Der Code sieht so aus:
Code: Alles auswählen
sub DateAddWeeks
DIM d1 as Double
DIM d2 as Double
DIM d as Double
DIM dd as Double
odoc=thisComponent
odrawpage=odoc.drawpage
oform=odrawpage.getForms.GetByName("MainForm")
d1=CDateFromIso(oform.GetByName("datmv_beginn").date)
d2=oform.GetByName("mv_dauer").value * 7
d=d1+d2
dd=CDateToIso(d)
oform.GetByName("datmv_ende").date = dd
end sub
Vielen Dank schon im voraus für eure Antworten
cheerS