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?