|
alle öffnen alle schließen Nicht compiliert - . . geändert |
Nächster ArbeitstagNÄCHSTER ARBEITSTAGvon Rainer Becker Häufig arbeiten viele Menschen am Wochenende - viele Programmierer können davon ein Liedchen singen. Auf Rechnungen, Lieferscheinen und diversen offiziellen Ausdrucken, Listen und Formularen ist es aber dennoch unerwünscht, ein Wochenenddatum auszudrucken. Bei der Erfassung von Zahlungseingängen wiederum ist es völlig unmöglich, daß ein Geldeingang am Wochenende erfolgt. Von daher wird eine kleine Funktion zur Berechnung des nächsten Werktages sowohl in Masken als auch in Berichten häufig benötigt. Hier die einfache Version zum Einbau in eine Berichtsdatei: Function NxtWorkDay Parameters dDatum If Parameters()=0 m.dDatum = Date() Endif If Dow(m.dDatum) = 7 m.dDatum = m.dDatum + 2 Endif If Dow(m.dDatum) = 1 m.dDatum = m.dDatum + 1 Endif Return m.dDatum Wenn Sie zum Beispiel ein Feld Rechnungsdatum RECHNUNG.RECHDATUM haben, verändern Sie das Ausdruckfeld im Report in NXTWORKDAY(RECHNUNG.RECHDATUM). Die Funktion kann man noch erweitern mit einem Zugriff auf eine Feiertagsdatei. |
 |
||
