Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.071 Beiträge
 
Delphi 12 Athens
 
#2

AW: DaysInaMonth problem

  Alt 5. Jun 2014, 04:40
Du weißt aber, daß dein GetDaysInMonth nicht ganz richtig rechnet? (vorallem für die Jahre 1800, 1900, 2100, 2200 uvm.)
Aber wie man das Schaltjahr wichtig berechnet .... dafür gibt es Wiki und massit Tutorials.

Zitat:
bedeutet der aktuelle monat wird ausgelesen und wenn er 31 tage hat wird eine andere berechnung durchgeführt als wenn er 30 hat.
Wäre es nicht besser, wenn du die Monatslänge "dynamisch" in die Formel einbaust,
oder willst du noch zwei weitere Berechnungen für 29 und 28 Tage baseln?


Einige hilfreiche Funktionen:
Delphi-Quellcode:
function IsLeapYear(Year: Word): Boolean;
function DaysInMonth(const AValue: TDateTime): Word;
function DaysInAMonth(const AYear, AMonth: Word): Word;
function DaysInMonth(const AValue: TDateTime): Word;
function DaysInAMonth(const AYear, AMonth: Word): Word;
Delphi-Referenz durchsuchenIsLeapYear Delphi-Referenz durchsuchenDaysInMonth Delphi-Referenz durchsuchenDaysInAMonth ...


PS: Ich würde dir empfehlen besser Result zu verwenden, anstatt den Funktionsnamen.
Das macht IMHO den Code besser lesbar und fehlerunanfälliger.
Delphi-Quellcode:
function GetDaysInMonth(Month,Year:Integer):integer;
begin
  Result:=0;
  case Month of
    1: Result:=31;
    2: if Year mod 4=0 then Result:=29 else Result:=28;
    3: Result:=31;
    ...
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.

Geändert von himitsu ( 5. Jun 2014 um 04:53 Uhr)
  Mit Zitat antworten Zitat