Datum in Numerischen Wert umwandeln

[johny]

Ich weiß nicht so genau, was du vor hast, aber ich habe mal eine Programm geschrieben, in dem die Systemzeit ausgelesen und als String and die Funktion GenerateFileName übergeben wird. Diese entfernt Trennzeichen wie '.' und ':' aus dem String und liefert einen String zurück. Die übrig gebliebenen Zahlen, können als Integer gespeichert werden.

Delphi-Quellcode:

function GenerateFileName(s:string):string;
var
 iPosition : integer;
 sString : string;
begin
 iPosition := 1;
 while iPosition <= length(s) do
 begin
  case s[iPosition] of
   '.',':':
   iPosition := iPosition+1;
   else
   sString := sString + s[iPosition];
   iPosition := iPosition + 1;
  end;
 end;
 Result := sString;
end;

Damit könnte man dann rechnen.