Datumsvergleich im Quelltext vereinfachen

[BerndS]

Hallo,
ab und an kommt es vor, dass bestimmte Funktionen erst später aktiviert werden sollen.
Als Beispiel das SEPA Format 3.7.
Was natürlich geht aber nicht optimal ist:

Delphi-Quellcode:

 if  (Date > StrToDate('17.3.2024')) then
  ...

Solche Strings möchte ich aber im Quelltext nicht haben und ich lasse mir mit einem Miniprogramm das umrechnen.

Schöner wäre es, wenn man im Editor die Möglichkeit hätte, diesen String bereits in einen TDate zu wandeln.
Ich habe MMX, GExpert und cnPack installiert, hier aber keine Option dafür gefunden.

Als Lösung könnte ich mir vorstellen, dass ich den string markiere und dann eine Erweiterung diese Markierung in den TDate konvertiert.

'17.3.2024' -> 45368 {17.3.2024}

Vieleicht sucht ja ein Expertenentwickler noch nach neuen Features.

[hotrs02]

Wäre die Verwendung von EncodeDate eine Alternative?

  if Date > EncodeDate(2024, 03, 17) then

[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.

[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;

[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.