Jahrestage

Forumthread: Jahrestage

Jahrestage

03.06.2007 11:25:00

Stefan

Hallo zusammen,
ich brauche einen Code, der mit die Anzahl der Tage wiedergibt, die ein Jahr hat, unter Berücksichtigung der Schaltjahre.
Danke für Eure Hilfe
Gruß
Stefan

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Jahrestage

03.06.2007 11:37:11

Hajo_Zi
AW: Jahrestage

03.06.2007 13:09:00

Sigi
AW: Jahrestage

03.06.2007 21:00:40

Stefan

AW: Jahrestage

03.06.2007 11:37:11

Hajo_Zi

Hallo,
ziehe vom 31.12 den 1.1 ab

AW: Jahrestage

03.06.2007 13:09:00

Sigi

Hi Stefan,
wie folgt:


Function JahresTage(Jahr As Long) As Long
If (Jahr Mod 4 = 0 And Jahr Mod 100  0) Or (Jahr Mod 400 = 0) Then
JahresTage = 366
Else
JahresTage = 365
End If
End Function

Gruß
Sigi

AW: Jahrestage

03.06.2007 21:00:40

Stefan

Hallo,
Danke für Eure Hilfe.
Gruß
Stefan

Forumthread: Jahrestage

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread