Office: Schaltjahr

Huhu Leute :)

ich habe nochmal ein Problemchen und zwar mit dem Schaltjahr ^^

Wenn ein Schaltjahr ist soll folgendes sein:

for i = 2 to 30

else

for i = 2 to 29

(doofer Februar macht alles durcheinander xD)

Hoff das ist nich allzu schwer.. hab im google was gefunden aber versteh das leider nicht




PS: Das Jahr wird aus der Zelle F5 gelesen :) soll also nicht mit Year(now) funktionieren ^^

 

mh hab mal das gemacht:

Private Sub asfsad()
Dim schalj As Long

Cells(1, 1).Value = schaltj

If schaltj / 4 Then
MsgBox "Das ist ein Schaltjahr"
Else: schaltj = "Das ist kein Schaltjahr"

End If

End Sub


klappt aber nicht xD

 

falls es jemand braucht:

habs ;)

Private Sub Form_45Load()
Dim schaltj As Integer

schaltj = Range("B20").Value
If schaltj < 1582 Then
Call Februar
ElseIf schaltj Mod 4 = 0 Then
Call Schaltjahr
Else

Call Februar

End If

End Sub

 

Nur als Ergänzung (finetuning):
Wenn das Jahr durch 4 teilbar ist, dann ist es ein Schaltjahr, richtig.
Ist es durch 100 teilbar, ist es aber kein Schaltjahr.
Es sei denn, es ist es durch 400 teilbar, dann ist es doch wieder eins.
Und das ganze gilt nur für den gregorianischen Kalender ab 1583.

Gruß, Michael

 

ah danke - hatte ich nicht beachtet.. naja aber 2100 leb ich eh nicht mehr xD

trotzdem vielen dank :)