Datumsfilter - Daten(Datums) verrechen

[DeddyH]

Du könntest auf die DateUtils-Routinen zugreifen.

[Gollum]

Hallo,

das Problem, dass bei Deinem Beispiel falsche Werte herauskommen liegt daran:

Delphi-Quellcode:

const
 DAY_IN_MS = 86400000;

Die Funktion Now liefert Dir einen Wert zurück, der die Tage seit dem 30.12.1899 angibt (Der Nachkommaanteil ist die Zeit, wobei 1 Std=1/24 enstpricht). Für Heute enstspricht der Now-Wert 40490. Wenn Du jetzt davon die Konstante DAY_IN_MS abziehst, bist Du irgendwo im Jahre -250.000.

Für Dein Beispiel genügt es, dass Du 1 Tag abziehst. Dies machst Du ja indirekt mit Deinem 2. Beispiel, da der 31.12.1899 den Wert 1 hat (ausserdem hast Du dir die Stringumwandlung gespart).

Delphi-Quellcode:

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

[himitsu]

Für Monat (myType1Month) kann es keine Konstante geben, da die Monate unterschiedlich lang sind.
(es sei denn zu nimmst immer z.B. 30 oder 31 Tage und ignorierst den Fall, daß es eben nicht genau dem aktuellen/vorherigen Monat entspricht)

Zitat:

DAY_IN_MS

PS: Delphi kennt schon einige Konstanten für sowas
> HoursPerDay, MinsPerHour, SecsPerMin, MSecsPerSec, MinsPerDay, SecsPerDay, SecsPerHour, MSecsPerDay usw.

noch kurz was zur Namensgebung:
myType24Hours, myType48Hours, myType7Days, myType1Month, myTypeAll
=
myTypeDay, myType2Days, myTypeWeek, myTypeMonth, myTypeAll

[Highttower]

Hallo zusammen,

vielen Dank für die Anworten:

Zitat von DeddyH:

Du könntest auf die DateUtils-Routinen zugreifen.

Meinst du:

Delphi-Quellcode:

DecodeTime();
// und
DecodeDate();

?

@Gollum
Vielen Dank, nach den Constanten habe ich gesucht, mir fällt nur grad auf ein ShowMessage(FloatToStr(StrToDateTime('31.12.1899'))); hätte es vermutlich auch getan. Noch mals danke .

@himitsu
Danke für den Hinweis nur das mit der Namensgebenung verstehe ich nicht ganz soll ich:
Allen ein Typen ein 's' anhängen? Oder statt 24Hour Day usw. benutzen?

Die Namen kommen daher weil man über ein Popup Menü diese Filter einstellen kann "24h", "48h", "7 Tage", "1 Monat" und "Alle".

Vielen Dank und viele Grüße,

Tobi

post scriptum:
Ich sah grad meine Delphi Version wir immer noch falsch dargestellt: RAD 2010!