Datumsvergleich im Quelltext vereinfachen

[BerndS]

Das ist eine Alternative, die aber auch zusätzlichen Code erzeugt, den ich möglichst vermeiden wollte.

[dummzeuch]

StrToDate und auch EncodeDate kann man auch im Evaluate / Modify Fenster beim Debugging aufrufen. Vielleicht reicht das ja schon? Ansonsten ist ein passendes Programm dafür in 2 Minuten geschrieben.

[BerndS]

Das Programm hab ich ja bereits, aber wenn es direkt in Editor per z.B. rechter Maustaste ginge, wäre es komfortabler.

[dummzeuch]

Zitat von BerndS:

Das Programm hab ich ja bereits, aber wenn es direkt in Editor per z.B. rechter Maustaste ginge, wäre es komfortabler.

Dann kann ich Dich nur einladen, die entsprechende Funktion in GExperts zu implementieren. Ich bin gerne bereit, sie als Patch zu integrieren. Ist ja kein Hexenwerk.

[BerndS]

Zitat:

Dann kann ich Dich nur einladen, die entsprechende Funktion in GExperts zu implementieren. Ich bin gerne bereit, sie als Patch zu integrieren. Ist ja kein Hexenwerk.

Ok, dass könnte ich mal versuchen.

[hoika]

Hallo,
wie wäre es, wenn Du diese Variablen in eine Konfig-Datei auslagerst?

[jaenicke]

Ich finde es nicht sinnvoll, wenn man im Code nicht direkt sehen und prüfen kann, was passiert. Der Kommentar schützt davor nicht, denn der kann ja auch falsch sein.

Deshalb würde ich immer die korrekten menschenlesbaren Werte verwenden und mit dem schon genannten EncodeDate regionsunabhängig (deshalb kein String) umwandeln.

[Uwe Raabe]

Zitat von BerndS:

Das ist eine Alternative, die aber auch zusätzlichen Code erzeugt, den ich möglichst vermeiden wollte.

Den zusätzlichen Code kann man ja vermeiden

Delphi-Quellcode:

const
  day = 17;
  month = 3;
  year = 2024;

{$REGION 'calculate _date'}
  _monthdays = Ord((month > 1))*31 +
               Ord((month > 2))*(28 + ord(year mod 4 = 0)) +
               Ord((month > 3))*31 +
               Ord((month > 4))*30 +
               Ord((month > 5))*31 +
               Ord((month > 6))*30 +
               Ord((month > 7))*31 +
               Ord((month > 8))*31 +
               Ord((month > 9))*30 +
               Ord((month > 10))*31 +
               Ord((month > 11))*30;
  _year = year - 1;
  _date = _year * 365 + _year div 4 - _year div 100 + _year div 400 + _monthdays + Day - DateDelta;
{$ENDREGION}

  TheSpecialDate = _date;