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