Optionale Rückgabewert bei Funktionen
26.11.2018 11:44:06
Markus
Ich hab eine Funktion aus dem Netz die Feiertage ausgibt und ich würde sie gerne so anpassen das sie Optional entweder den Feiertag als Text zurück gibt oder einen Wahrheitswert ob es ein Feiertag ist (um ihn in einer bedingten Formatierung nutzen zu könne).
Ich probiere schon seit Tagen und es klappt nicht, könntet ihr mir da vielleicht weiterhelfen.
Public Function Feiertag(Datum As Date) As String
Dim Jahr As Integer
Jahr = Year(Datum)
If (Jahr > 1904) And (Jahr
Public Function OsterSonntag(Jahr As Long) As Date
Dim A As Long, K As Long, M As Long, D As Long, S As Long
Dim R As Long, OG As Long, SZ As Long, OE As Long, OS As Long
'' 1. die Säkularzahl
K = Jahr \ 100
'' 2. die säkulare Mondschaltung
M = 15 + (3 * K + 3) \ 4 - (8 * K + 13) \ 25
'' 3. die säkulare Sonnenschaltung
S = 2 - (3 * K + 3) \ 4
'' 4. den Mondparameter
A = Jahr Mod 19
'' 5. den Keim für den ersten Vollmond im Frühling
D = (19 * A + M) Mod 30
'' 6. die kalendarische Korrekturgröße
R = D \ 29 + (D \ 28 - D \ 29) * (A \ 11)
'' 7. die Ostergrenze
OG = 21 + D - R
'' 8. den ersten Sonntag im März
SZ = 7 - (Jahr + Jahr \ 4 + S) Mod 7
'' 9. die Entfernung des Ostersonntags von der Ostergrenze (Osterentfernung In Tagen)
OE = 7 - (OG - SZ) Mod 7
''10. das Datum des Ostersonntags als Märzdatum (32. März = 1. April usw.)
OS = OG + OE
OsterSonntag = DateSerial(Jahr, 3, OS)
End Function
Beste Grüße
Markus