AW: datum des nächsten {WTnr} ermitteln
16.03.2004 11:24:15
Uwe
Guten Tag, Jonathan!
Hier die Arbeitsmappe zur erläuterung einer möglichen Einbindung
https://www.herber.de/bbs/user/4344.xls
Eine Funktion ist im wesentlichen nichts anderes als eine Subroutin (Prozedur) mit dem einen Unterschied, dass sie im Programmcode im gültigkeitsbereich wie eine Variable genutzt werden kann (daher auch die Typen-Dekleration:
FUNCTION funktionsname([Übergabeparameterliste]) AS Datentyp)
Damit ist es möglich, den mit funktionsname vergebenen Namen, z.B. auf der rechten Seite von Anweisungen, auch mit mathematischen Verknüpfungen einzusetzen, da es eigentlich eine deklarierte Variable, die intern in dem Funktionkörper bereitgestellt wird, ist.
Beispiel:
FUNCTION MaxWert(INTEGER wert1, INTEGER wert2) as INTEGER
IF wert1 < wert2 THEN
MaxWert = wert2
ELSE
MaxWert = wert1
END FUNCTION
Bemerkenswert und Bedingung ist, dass im Körper der Funktion, dem Funktionnamen (hier MaxWert vom Typ Interger) ein Wert übergeben wird, der der dann der Rückgabewert sein ist.
Nach dieser Deklaration kann die Funktion MaxWert vielfältig, eben wie jede andere deklarierte Variable, eingesetz werden:
DIM a1 as integer, a2 as Integer, b as integer
a1=42
a2=53
FOR i=1 to MaxWert(a1, a2)
a1=a1+i
NEXT
b = 50+MaxWert(a1, 35)
IF a1=MaxWert(a1, a2) THEN ...
Hoffe mit dieser Kurzdarstellung einen ersten Hinweis auf den Einsatz von Funktion gegeben zu haben.
Für die Wochentagbestimmung ist der Funktionsaufruf:
NaechsterWochenTag(Datum0, NrWt)
zu nutzen. Im Beispiel wird der Wert für Datum0 und NrWt aus Zellen direkt gelesen und das Ergebnis wird einer Zelle zugewiesen:
Cells(5, 2) = Cells(NaechsterWochenTag(Cells(3, 2), Cells(3, 5))
Gruß,
Uwe