Fahrtenbuch muster.sxc - Akademie für Management und Technik ...

Akademie für Management und Technik GmbH http://www.amt-wiesbaden.de
dorthin, wo er nicht passend ist.
Gleiche Funktionen wie eben beschrieben existieren auch für das Feld Ankunftsdatum.
Sub DatPlusAnk und Sub DatMinusAnk.
Die Wiederholung der Funktionen liegt überwiegend an dem Umstand, dass den Feldern bei
Aktionen nur ein Makro direkt zugeordnet werden kann, ohne Möglichkeit einer
Parameterübergabe. Also müssen die jeweiligen Parameter (z.B. auf welches Feld überhaupt
zugegriffen werden soll) in der Funktion hinterlegt werden.
Es gäbe allerdings auch die Möglichkeit, entsprechende Flags oder Zustände der Buttons
abzufragen, im Ergebnis ist dies dann jedoch deutlich umständlicher als der hier gewählte und
offensichtlich redundante Weg nahezu gleicher Funktionen.
Function NeuDat()
Die Funktion „NeuDat()“ berechnet das neue Datum beim Betätigen der Spin-Buttons.
NeuDat() erwartet zwei Parameter. Syntax: NeuDat(nZahl as long, nTage as Integer)
nZahl ist dabei eine 8-stellige Datumszahl des Formates JJJJMMTT, nTage eine ganze Zahl
eventuell mit negativen Vorzeichen, das die Änderung des Datums in Tagen beschreibt.
Zeile 189: Die Funktion DateValue ermittelt aus einem übergebenen Datumsstring im einem
bekannten Format den entsprechenden Datumswert (fortlaufende Zahl). Zu diesem Datums wert
wird die gewünschte Differenz (ganze Zahl) in Tagen addiert (bzw. subtrahiert, wenn eine negative
Zahl übergeben wird).
Die Funktion DatWert() ermittelt dabei aus einer 8-stelligen Zahl einen Datums-Textstring. Siehe
-->function DatWert()
Zeile 190: Aus dem Datumswert wird wieder eine 8-Stellige Zahl (long) erzeugt. Dies erfolgt durch
Verkettung von Zahlen zu einem reinem Zahlenstring. Durch Zuweisung dieses Zahlenstrings an
eine numerische Variable (hier: long) wird aus dem String eine Zahl. Die Verkettung erfolgt durch
Auslesen der jeweiligen Daten mit den vordefinierten Funktionen „Year()“ - gibt das Jahr 4-stellig
zurück, „Month()“ - gibt den Monat ein- oder zweistellig zurück -, und „Day()“ - gibt den Tag einoder
zweistellig zurück - .Aus diesem Grund wird bei Tag und Monat zusätzlich noch die Funktion
„Format()“ genutzt, die die Zahlen entsprechend formatiert und somit auch führende Nullen
einträgt. Dadurch wird das 8-stellige Zahlenformat gewährleistet.
Zeile 191: Der Rückgabewert der Funktion wird zugewiesen.
© T. Krumbein, 2003 Seite 16 / 34