Jahr ein Schaltjahr

Moderator: ModerationP

Jahr ein Schaltjahr

Beitragvon 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
Gast
 

Re: Jahr ein Schaltjahr

Beitragvon Gast » 15. Mai 2021, 16:37

Edit:
wieviel Tage der April eines Jahres hat?

meinte natürlich den Februar
VG Petra
Gast
 

Re: Jahr ein Schaltjahr

Beitragvon 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
Gast
 

Re: Jahr ein Schaltjahr

Beitragvon 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
knobbi38
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 3330
Registriert: 02. Jul 2015, 14:23

Re: Jahr ein Schaltjahr

Beitragvon Gast » 15. Mai 2021, 20:41

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


Zurück zu Access Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: Stj68 und 9 Gäste