Functie feestdag controle

[caffie]

ik ben aan het proberen of ik een functie voor de feestdag kan maken
maar dat wil nog niet zo goed lukken
wie kan me op weg helpen

vast bedankt



macro 1

Sub test()

Dim jaartal As Integer
Dim x As interger
Dim datum As Date
jaartal = 2023


datum = DateSerial(jaartal, 1, 1)
For x = 1 To 365
    If feestdag = datum Then
    MsgBox "oke"
    End If
datum = datum + 1
Next
End Sub

macro function

Function feestdag() As Date
Dim jaar As Integer

jaar = Year(dag)

a = DateSerial(jaar, 4, 1) / 7
If jaar Mod 19 = 0 Then b = 19
c = (jaar Mod 19 + b) * 19 - 7
d = (c Mod 30) * 14 / 100
Pasen = FormatNumber(a + d, 0) * 7 - 6

If datum = Format(Pasen - 2, "dddd d mmmm yyyy") Then  '' GoedeVrijdag
MsgBox "feestdag"
End If

If datum = Format(Pasen, "dddd d mmmm yyyy") Then '' Paasdag1
MsgBox "feestdag"
End If


If datum = Format(Pasen + 1, "dddd d mmmm yyyy") Then ''Paasdag2
MsgBox "feestdag"
End If

''enz.....
 
End Function

Het gaat me dus niet om de feestdagen maar om de functie waar ik mee aan het stoeien ben
Maar toch bedankt voor het mee denken

 

[edmoor]

Zelf heb ik daar wat functies voor die ik standaard gebruik.
Misschien dat je er wat aan hebt:

=AFRONDEN.BENEDEN(DAG(MINUUT(J3/38)/2+56)&"-05-"&J3;7)-36	Goede Vrijdag
=AFRONDEN.BENEDEN(DAG(MINUUT(J3/38)/2+56)&"-05-"&J3;7)-34	Eerste Paasdag
=AFRONDEN.BENEDEN(DAG(MINUUT(J3/38)/2+56)&"-05-"&J3;7)-33	Tweede Paasdag
=AFRONDEN.BENEDEN(DAG(MINUUT(J3/38)/2+56)&"-05-"&J3;7)+5	Hemelvaartsdag
=AFRONDEN.BENEDEN(DAG(MINUUT(J3/38)/2+56)&"-05-"&J3;7)+15	Eerste Pinksterdag
=AFRONDEN.BENEDEN(DAG(MINUUT(J3/38)/2+56)&"-05-"&J3;7)+16	Tweede Pinksterdag
=TEKST("31-12-" & J3; "dddd dd mmmm jjjj")	Oudejaarsdag
=TEKST("1-1-" & J3; "dddd d mmmm jjjj")	      Nieuwjaarsdag
	
=BEGINLETTERS(TEKST(DATUM(J3;12;25);"dddd"))	25-12 Eerste kerstdag
=BEGINLETTERS(TEKST(DATUM(J3;12;26);"dddd"))	26-12 Tweede kerstdag
=BEGINLETTERS(TEKST(DATUM(J3;4;27);"dddd"))	27-04 Koningsdag
=BEGINLETTERS(TEKST(DATUM(J3;5;5);"dddd"))	05-05 Bevrijdingsdag
	
=DATUM(J3;3;31)-(WEEKDAG(DATUM(J3;3;31))-1)+2/24	Ingang zomertijd
=DATUM(J3;10;31)-(WEEKDAG(DATUM(J3;10;31))-1)+3/24	Terug naar wintertijd

J3 is het jaar, dus nu 2022

 

[snb]

@Edm

In het Nederlands schrijven we weekdagnamen met een kleine letter, net zoals maandnamen.
So in this case: proper = improper, but lower is proper.

 

[emields]

Zijn godsdienst afhankelijke feestdagen niet meer met een hoofdletter?

 

[snb]

Bij mijn weten zijn maandag t/m zondag (weekdagnamen) geen joodse feestdagen, evenmin als januari t/m december (maandnamen) islamitische.

=TEKST(DATUM(J3;12;25);"dddd")

levert slechts maandag t/m zondag op.

 

[glda19]

Is 15 augustus geen feestdag in Nederland

 

[HSV]

Nee, de 28e augustus wel, alleen in de stad Groningen (Wikipedia - Bommen Berend).

 

[glda19]

Had pas gezien na het posten dat ik op Nederlands forum bezig was.