Anzahl Tage im Monat

[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

[Luckie]

Zitat von 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.

Das ist bei den meisten Tastaturen die Taste, die noch wie neu aussieht. SCNR

[IIIMADDINIII]

dann geht es ja noch leichter

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 isleapjear(date) then result := 29
  else result := 28;
end;
end;

[mkinzler]

@IIIMADDINIII: Du solltest dir die Antworten hier mal durchlesen!