Ich habe mir heute morgen einen kleinen Schalter eingebaut.
Delphi-Quellcode:
NewDateTime := now;
{$IFDEF DEBUG}
NewDateTime := IncYear(NewDateTime, -1);
{$ENDIF}
Da wir eh keine Debug-Versionen an Endkunden herausgeben, kann man damit weiter mit der Swissbit-TSE herumtesten, und eine enorme Denkleistung war das jetzt nicht.