BATCH if deelbaar door 4 set sckrikkeljaar?

[gast0230]

Hey,

Ik heb wat hulp nodig XD Alweer...

Weet iemand hoe ik dit het beste zou kunnen doen:

Als %Jaar% deelbaar is door 4 goto schrikkeljaar

Alvastbedankt wessel!

 

[JoZ1]

If (J%%4=0) goto schrikkeljaar

Uit m'n hoofd zoiets.

 

[michaelvdnet]

Het valt me op dat je voor ieder stap in je programmatje een nieuwe topic aanmaakt, voor de moderators is het handiger als je alle problemen in een topic zet.

 

[krolik]

Dit zou inhouden dat 1700, 1800 en 1900 schrikkeljaren zouden zijn (deelbaar door 4). Dat is dus niet waar. Eeuwjaren alleen als die deelbaar zijn door 400, dus 1600 en 2000, etc. Het is een schrikkeljaar als het deelbaar is door 4 én niet door 100 of door 400.

 

[CaptainBri]

als het deelbaar is door 4 én niet door 100 of door 400.

Dan zou je alleen een conditie hoeven schrijven voor 100 en niet voor 400, omdat 400 deelbaar is door 100.
Zoiets:

If Jaar %% 4 = 0 If Not Jaar %% 100 = 0 goto JeFunctie

 

[krolik]

Dat is niet waar. De functie in VB:

Function IsLeapYear(Year As Integer) As Boolean
If ((Year Mod 4 = 0) And (Year Mod 100 <> 0) Or (Year Mod 400 = 0)) Then
IsLeapYear = True
Else
IsLeapYear = False
End If
End Function

Te vinden in Wikipedia:

"Elk jaar dat deelbaar is door 4, met uitzondering van eeuwjaren. Deze hebben enkel een schrikkeldag als ze deelbaar zijn door 400. Zo was 1600 een schrikkeljaar, 1900 geen schrikkeljaar en 2000 weer wel."