Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
536to540
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
536to540
536to540
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Anzahl Tage des lfd. Jahres

Anzahl Tage des lfd. Jahres
29.12.2004 16:59:27
Matthias
Wie kann ich mit VBA errechnen, wieviel Tage das laufende Jahr hat ?
(365 oder Schaltjahr = 366)
Gruß aus Berlin,
Matthias

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

Betreff
Datum
Anwender
Anzeige
AW: Anzahl Tage des lfd. Jahres
Ramses
Hallo
Stimmt dein Level ?
Debug.Print datevalue("1.1.2005")-datevalue("1.1.2004")
Gruss Rainer
AW: Anzahl Tage des lfd. Jahres
Matthias
@Ramses :
sorry, das ist mir jetzt peinlich.
Mein Level stimmt schon, aber ich habe den Tag scheinbar einen Blackout gehabt.
Bin auf diese einfache Lösung nicht gekommen. Wahrscheinlich weil das Projekt für das ich diese Lösung (unter anderem) brauchte noch andere Probleme hat, an denen ich den halben Tag rumprogrammiert habe.
Danke euch beiden für die schnelle Antwort.
Gruß aus Berlin,
Matthias
AW: Anzahl Tage des lfd. Jahres
Sigi
Hallo Matthias,
unter VBA mit einer Funktion ...

Function AnzahlTage(Jahr As Long) As Long
'gem. gregorianischem Kalender
If Jahr > 1582 And Jahr < 2100 Then
If (Jahr Mod 4 = 0 And Jahr Mod 100 <> 0) Or (Jahr Mod 400 = 0) Then
AnzahlTage = 366
Else
AnzahlTage = 365
End If
End If
End Function

Gruß
Sigi
Anzeige

315 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige