Anzahl Tage im Monat

[IIIMADDINIII]

warum kann man nicht das mit dem schaltjahr so leicht herausfinden??

[mkinzler]

Zitat von IIIMADDINIII:

warum denn nicht??

Warum das Rad neu erfinden? Zudem ist der Algorithmus etwas komplizierter (Schaltjahre usw)
@Susanne: Gibt es vielleicht eine gleichnamige Funktion aus einer anderen Unit als DateUtils, welche vorher eingebunden wird?

[Luckie]

Keine Ahnung, was du falsch machst, aber bei mir funktioniert das:

Delphi-Quellcode:

uses
  DateUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
  days: Cardinal;
begin
  days := DaysInMonth(now);
  ShowMessage(IntToStr(days));
end;

[Susanne]

ok, man sollte den Wert vielleicht auch aus der Funktion wieder zurückgeben, sobald ich dies an result übergebe funktioniert es auch.

Trotzdem vielen Dank für eure Hilfe. Ich hab vermutet, es musste irgendeine "Kleinigkeit" sein.

[IIIMADDINIII]

sonst dieses script hätte auch funkitioniert

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

[Sunlight7]

Zitat von IIIMADDINIII:

sonst dieses script hätte auch funkitioniert

Nein, wie schon erwähnt ist nicht jedes 4 Jahr ein Schaltjahr

[IIIMADDINIII]

seit wann denn das