XE2 Build Nr to Date - Solved

[FatPap]

Hab wohl gerade eine Denkblockade. XE2 bietet ja die Möglichkeit "Build-Nummer automatisch erzeugen" in den Projektoptionen.

Die Dateiversion sieht dann so ähnlich aus:

1.0.5245.55019

1 = Hauptversion
0 = Nebenversion
5245 = Tage seit 1.1.2000
55019 = Sekunden seit Mitternacht

Also ich würde gerne "5248.55019" wieder zu einem TDateTime Wert umwandeln. Vielleicht hat jemand eine gute Idee dazu?

Soweit bin ich schon :

Code:

var TageSeitErzeugenUndHeute: Integer;
begin
  TageSeitErzeugenUndHeute := DaysBetween(Today, StrToDate('31.12.1999')) - 5245;
end;

Man kann sagen ich weiss wieviele Tage vergangen sind zwischen erzeugen und heute. Aber wie bekomm ich dass nun in einen TDate Wert umgewandelt?

[Uwe Raabe]

EncodeDate(2000,1,1) + 5245 + 55019/SecsPerDay;

[himitsu]

Zitat von Uwe Raabe:

EncodeDate(2000,1,1) + 5245 + 55019/SecsPerDay;

Oder über die entsprechenden Funktionen
IncSecond(IncDay(EncodeDate(2000,1,1), 5245), 55019)

[FatPap]

Vielen Dank euch beiden, ging ja einfach. Kannte leider die Encode-Funktionen nicht.

[himitsu]

Es gibt auch StrToDateTime uvm., aber da muß man auf das FormatSetting aufpassen,
oder man nimmt direkt den nummerischen Wert des Datums als Konstante.

[bcvs]

Auch wenn dein Problem schon gelöst ist, hier ein Alternativvorschlag:

Ich nehme an, du willst irgenwo im Programm Build-Datum und -Uhrzeit anzeigen.

Ich rufe dazu in den Pre-Build-Befehlen ein kleines Programm auf, das mir diesen Unit-Quellcode erzeugt:

Delphi-Quellcode:

unit VersionInfo;
interface
const
  VersionDate='15.05.2014';
  VersionTime='08:52:18';
implementation
end.