Jahr ein Schaltjahr

Antwort erstellen

Smilies
:D :) :( :o :shock: :? 8-) :lol: :x :P :razz: :oops: :cry: :evil: :twisted: :roll: :wink: :!: :?: :idea: :arrow: :| :mrgreen: :badgrin: :doubt:
BBCode ist eingeschaltet
[img] ist eingeschaltet
[flash] ist ausgeschaltet
[url] ist eingeschaltet
Smilies sind eingeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Jahr ein Schaltjahr

Re: Jahr ein Schaltjahr

Beitrag von Gast » 15. Mai 2021, 20:41

Hallo,
danke euch, das läuft.
VG Petra

Re: Jahr ein Schaltjahr

Beitrag von knobbi38 » 15. Mai 2021, 17:11

oder so:
Code: Alles auswählen
Public Function IsLeapYear(ByVal AnyYear As Integer) As Boolean
  IsLeapYear = IsDate(AnyYear & "-02-29")
End Function


Gruß Ulrich

Re: Jahr ein Schaltjahr

Beitrag von Gast » 15. Mai 2021, 16:53

Z.B. so:
Code: Alles auswählen
Public Function IsLeapYear(ByVal AnyYear As Long) As Boolean
    If DatePart("y", DateSerial(AnyYear, 12, 31)) = 366 Then IsLeapYear = True
End Function

Re: Jahr ein Schaltjahr

Beitrag von Gast » 15. Mai 2021, 16:37

Edit:
wieviel Tage der April eines Jahres hat?

meinte natürlich den Februar
VG Petra

Jahr ein Schaltjahr

Beitrag von Gast » 15. Mai 2021, 16:27

Hallo,
wie kann man prüfen, ob ein Jahr ein Schaltjahr ist bzw. wieviel Tage der April eines Jahres hat?
Kann den Code von VB.Net nicht in VBA übertragen Bleibt da nur DateDiff oder gibt es zielführendere Funktionen?
Code: Alles auswählen
' Anzahl der Tage im Jahr
Dim MaxDays As Integer = IIf(DateTime.IsLeapYear(iYear), 366, 365)

https://www.vbarchiv.net/tipps/tipp_1912-anzahl-der-tage-eines-monats-eines-jahres-ermitteln.html
VG Petra

Nach oben

cron