thomassske
Gebruiker
- Lid geworden
- 23 apr 2008
- Berichten
- 97
Hallo,
Ik moet het volgend schrikkeljaar vinden
wat is er fout aan volgende functie?
bij bv 1897 zou hij 1904 als schrikkeljaar moeten geven maar dit gebeurt niet.
[JS]Function volgendschrikkeljaar(jaar As Double) As Integer
Dim i As Integer
Dim schrikkeljaar As Variant
For i = 1 To 4
volgendjaar = jaar + i
If volgendjaar Mod 4 = 0 Then
schrikkeljaar = jaar + i
If volgendjaar Mod 100 = 0 Then
If volgendjaar Mod 400 = 0 Then
schrikkeljaar = jaar + i
End If
End If
End If
Next i
volgendschrikkeljaar = schrikkeljaar
End Function[/JS]
Ik moet het volgend schrikkeljaar vinden
wat is er fout aan volgende functie?
bij bv 1897 zou hij 1904 als schrikkeljaar moeten geven maar dit gebeurt niet.
[JS]Function volgendschrikkeljaar(jaar As Double) As Integer
Dim i As Integer
Dim schrikkeljaar As Variant
For i = 1 To 4
volgendjaar = jaar + i
If volgendjaar Mod 4 = 0 Then
schrikkeljaar = jaar + i
If volgendjaar Mod 100 = 0 Then
If volgendjaar Mod 400 = 0 Then
schrikkeljaar = jaar + i
End If
End If
End If
Next i
volgendschrikkeljaar = schrikkeljaar
End Function[/JS]
Laatst bewerkt: