Bei Datum Monat und Jahr ausgeben und den Wert vergleichen

[Binärbaum]

Zitat von Union:

Zitat von Binärbaum:

Ach ist das wieder umständlich.
Man kann ja auch DecodeDate verwenden. Da wird das eingegebene Datum vom Typ TDateTime in seine einzelnen Komponenten Tag, Monat und Jahr aufgeteilt.

MfG
Binärbaum

Ja klar, und dann musst Du erstmal 6 Varablen deklarieren weil DecodeDate eine Procedure ist

Und was ist daran jetzt so schlimm? Es ist immerhin eine sichere Variante, um zu überprüfen, ob bei zwei Daten Monat und/ oder Jahr übereinstimmen. Und wenn es dir nicht gefällt, dass es eine Prozedur und keine Funktion ist, kann man das ganze ja in eine Funktion kapseln:

Delphi-Quellcode:

function SameYear(d1,d2: TDateTime):Boolean;
var y1, y2, dummy: Word;
begin
  DecodeDate(d1, y1, dummy, dummy);
  DecodeDate(d2, y2, dummy, dummy);
  Result:= (y1 =y2);
end;
//oder halt für Jaghr und Monat
function SameYearAndMonth(d1,d2: TDateTime):Boolean;
var y1, m1, y2, m2 dummy: Word;
begin
  DecodeDate(d1, y1, m1, dummy);
  DecodeDate(d2, y2, m2, dummy);
  Result:= ((y1 =y2) and (m1=m2));
end;

MfG
Binärbaum