controleren hoevaak de feestdag nog voorkomt tussen 2 datums

[caffie]

Ik wil graag kijken hoevaak een feestdag tussen 2 datum voorkomt


bv 1-3-2020 en nu (waar 1-3-2020 varialble is)
ik ben tot zo ver gekomen maar nu verder
of ben ik de verkeerde weg in geslagen en kan het nog makkelijker


Sub Feestcontrole()
Dim Pasen As Date
Dim Controledag As String
Dim aantalfeestdag As Integer


Controledag = DateSerial(2019, 10, 12)
Jaar = 2016



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


Goede_Vrijdag = Format(Pasen - 2, "dddd d mmmm yyyy")
EerstePaasdag = Format(Pasen, "dddd d mmmm yyyy")
Tweedepaasdag = Format(Pasen + 1, "dddd d mmmm yyyy")
Hemelvaart = Format(Pasen + 39, "dddd d mmmm yyyy")
EerstePinksterdag = Format(Pasen + 49, "dddd d mmmm yyyy")
Tweedepinksterdag = Format(Pasen + 50, "dddd d mmmm yyyy")
EersteKerstdag = Format(DateSerial(Jaar, 12, 25), "dddd d mmmm yyyy")
Tweedekerstdag = Format(DateSerial(Jaar, 12, 26), "dddd d mmmm yyyy")

If Controledag = "" Then End

If Controledag >= Now Then End

If Controledag <= Now Then
aantal_feestdagen = Year(Controledag) - Year(Now)



End If





wie kan me verder helpen

vast bedankt

 

[Leotaxi]

als je nu eens een voorbeeldbestand plaatst waarin aangegeven wordt waar je begin- en einddatum invoert
en manueel plaatst hoe het resultaat er moet uitzien, dan komen er vast wat tips.


mvg
Leo

 

[caffie]

ik wilde de berekening uitvoeren en de waarde van de uitkomt weer oproepen dat
de begin dag is controledag en de tweede dag is vandaag


dus hoeveel feestdagen zitten er tussen de controledag en nu

controledag had ik al voorbeeld

DateSerial(2019, 10, 12)


vast bedankt voor de reacktie

 

[JeanPaul28]

Caffie, Leotaxi vraagt om een voorbeeld bestand, trouwens wil ik ook graag een voorbeeld bestand zien, indien je het toch blijft vertikken om een voorbeeld bestand te plaatsen zullen de tips maar weinig opdagen dit ter informatie.

 

[caffie]

Ik hoop dat het er dan nu duidelijke op wordt

hopelijk kan iemamd me helpen en ziet die door de bomen het bos nog

want de code ziet er nog al slorig uit


maar mijn kennis in Vb is nog niet zo groot


Toch vast bedankt

 

[sylvester-ponte]

misschien kun je hier iets mee:
ps tot is tm geworden

 

[caffie]

Bedankt Sylvester Ponten

kan je me ook een beetje uitleggen wat wat doet
Dan kan ik daar weer een stukje van leren
Anders is het echt alleen maar copie paste
wil ook graag snappen hoe het werkt
Je ben tenslotte nooit te oud om te leren

nogmaals bedankt

Deze code ziet er heel anders uit als die van mijn

ik moet dus nog veel leren

 

[sylvester-ponte]

kun je ook aangeven wat je niet snapt?

 

[caffie]

Als u mijn bijgesloten file inziet hoe mijn code er uitziet en die van u ziet u gelijk hoe goot het gat is

Ik vind het fantastisch hoe u het voor elkaar heeft gekregen met zo weinig code
Dus voor mijn is het allemaal allemaal onbegrijpelijk

ik zit nog in de fase
if dit dan dat
ben nu bezig met een userform maar ook dat loopt nog niet zo als het zo moeten
maar elke keer een stukje
is veel copieer en plak werk
en als het dan werk ben ik gelukkig

probeer veel te leren uit de youtube filmpje



vandaar de vraag net uitleg

nogmaals hartelijk bedankt

 

[sylvester-ponte]

om te beginnen:

als je in het werkblad in A1 het jaartal verandert veranderen de feestdagen ook.

de macro vult in A1 steeds een volgend jaartal in en kijkt dan of de feestdagen tussen Van en Tot zitten.

voor iedere keer dat dat klopt telt hij er een feestdag bij.


de functie Pasen:
de code heb ik van jouw voorbeeld overgenomen.
en hij wordt gebruikt in het werkblad om de datum van Pasen te bepalen.

er is zo weinig code nodig omdat steeds alle datums in het werkblad worden berekend, nadat de macro het jaartal in A1 heeft veranderd.

vraag gerust , als ik het antwoord niet weet zijn er zat cracks hier om je vragen te beantwoorden.