Bei Datum Monat und Jahr ausgeben und den Wert vergleichen

[bundy]

Ich hab da mal was zusammengebastelt.

Bitte um Optimierungsvorschläge

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
DatenbankMonat,DatenbankJahr,LocalMonat,LocalJahr:integer;
DatenbankDatum,Localdatum:tdate;
begin
DatenbankDatum:=date;
Localdatum:=date;

DatenbankMonat:=MonthOfTheYear(DatenbankDatum);
DatenbankJahr:=YearOf(DatenbankDatum);
LocalMonat:=MonthOfTheYear(Localdatum);
LocalJahr:=YearOf(Localdatum);

if (DatenbankMonat = LocalMonat) and (DatenbankJahr = LocalJahr) then  ShowMessage('Gleiches Jahr und Monat');
if (DatenbankMonat = LocalMonat) and (DatenbankJahr <> LocalJahr) then  ShowMessage('Gleiches Monat anders Jahr');
if (DatenbankMonat <> LocalMonat) and (DatenbankJahr = LocalJahr) then  ShowMessage('Gleiches Jahr anderes Monat');
if (DatenbankMonat <> LocalMonat) and (DatenbankJahr <> LocalJahr) then  ShowMessage('anderes Jahr anderes Monat');



end;