Anzahl Tage im Monat

[Luckie]

Noch mal, es reicht nicht zu überprüfen ob ein Jahr durch vier Teilbar ist, um herauszufiden, ob es sich ume ine Schaltjahr handelt:

Zitat:

Die vorherige julianische Schalttagsregelung wurde gleichzeitig dahingehend modifiziert, dass in alle Jahre, die nach Division durch vier eine natürliche Zahl ergeben, der 29. Februar als Schalttag eingefügt wird. Ausgenommen von dieser Schaltjahresregelung sind volle Jahrhunderte, die nicht glatt durch 400 teilbar sind.

Zitat von IIIMADDINIII:

seit wann denn das

Seit wir vom Julianischen Kalender zum Gregorianischen umgestellt haben. Und das war nicht erst gestern.

[IIIMADDINIII]

dann fügt man das einfach mit hinzu

Delphi-Quellcode:

function TForm1.getdaysinmonth(date: TDATETIME): integer;
const
   monthday: array[1..12] of integer = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
begin
if strtoint(formatdatetime('m', date)) <> 2 then
begin
  result := monthday[strtoint(formatdatetime('m', date))];
end
else
begin
  if  (round(strtoint(formatdatetime('yyyy', date)) / 4) = strtoint(formatdatetime('yyyy', date)) / 4) and not(round(strtoint(formatdatetime('yyyy', date)) / 400) = strtoint(formatdatetime('yyyy', date)) / 400) then result := 29
  else result := 28;
end;
end;

wo ist das problem??

[mkinzler]

@IIIMADDINIIIein Code hat mehrere Probleme:
1. Parametername Date: Ist auche ien Funktion. Es ist nicht sichergestellt, das der richtige Wert verwendet wird.
2. Ablage der Werte in einem array ist überflüssig.
3. Wandlung DateTime->String->Integer ist aufwendig besser gleich in einen Integer wandeln (DecodeDate())
4. Der Algorithmus ist komplexer:
Wenn durch 4 teilbar aber nicht durch 100 (nur wenn durch 400 teilbar sind)
1900 war kein Schaltjahr aber 2000.

[DeddyH]

Dafür gibt es IsLeapYear, da wird das berücksichtigt.

[IIIMADDINIII]

was macht denn dieses isleapptyear?

[mkinzler]

Zitat von IIIMADDINIII:

was macht denn dieses isleapptyear?

Gibt zurück ob das jahr ein Schaltjahr (leap year) ist

[Luckie]

Aus der SysUtils.pas vom BSD2006:

Delphi-Quellcode:

function IsLeapYear(Year: Word): Boolean;
begin
  Result := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0));
end;

[DeddyH]

Das sagt Dir, ob es sich um ein Schaltjahr handelt. F1 ist übrigens eine sehr nützliche Taste, die darf man gerne mal benutzen.

[OldGrumpy]

Zitat von IIIMADDINIII:

wo ist das problem??

Das sitzt vor Deinem Rechner

Sicherlich ist das Thema "Tage im aktuellen Monat" nur eine Kleinigkeit. Ich empfehle Dir trotzdem mal, über folgende Punkte nachzudenken:

- Warum das Rad neu erfinden?
- Warum selber Code schreiben (Zeitaufwand) für ein Problem das längst gelöst ist?
- Warum selber Code schreiben wenn gut getesteter Code bereits mitgeliefert wird?

Wenn Du Englisch kannst oder zumindest ein englisch-deutsches Wörterbuch bedienen kannst, dann schau Dir mal eine meiner Lieblingswebsites an

[mkinzler]

Nur wenn man diese Funktion verwendet, bindet man ja DateUtils ein, dann kann man gleich DayInMonth() verwenden