Einzelnen Beitrag anzeigen

johny

Registriert seit: 12. Aug 2003
Ort: Koblenz
32 Beiträge
 
#4

Re: Datum in Numerischen Wert umwandeln

  Alt 12. Feb 2004, 13:39
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.
  Mit Zitat antworten Zitat