Datumsfilter - Daten(Datums) verrechen

[Highttower]

Hallo zusammen,

ich knabber jetzt schon ewig an einem kleinen blöden Problem:

Ich will einen Datumsfilter einrichten. Eigendlich bin ich der Meinung das ich das kann ...

Mein erster Versuch:

Delphi-Quellcode:

type

TmyTypeProtokollFilter = (myType24Hour, myType48Hour, myType7Day, myType1Month, myTypeAll);
....

implementation

...

procedure foo;
var filter : String
const
    DAY_IN_MS = 86400000;
begin 
    if choise = myType24Hour then begin
        filter := 'Datum <= '+ FormatDateTime('yyyy-mm-dd hh:mm',(now - DAY_IN_MS));
    end;
end;

Ergebnis um 13:23 Uhr(Systenzeit): 10:37 00.00.0000

Mein zweiter Versuch:

Delphi-Quellcode:

type

TmyTypeProtokollFilter = (myType24Hour, myType48Hour, myType7Day, myType1Month, myTypeAll);
....

implementation

...

procedure foo;
var filter : String;
const
    DAY_IN_MS = 86400000;
begin 
    if choise = myType24Hour then begin
        filter := 'Datum <= ' + FormatDateTime('yyyy-mm-dd hh:mm',(now -StrToDateTime('31.12.1899')));
    end;
end;

Das funktioniert so auch, hat allerdings einen unschönen beigeschmack: String -> DateTime -> String.

Deshalb die Frage geht das auch in schön?

Vielen Dank,

Tobi