Thema: Delphi Eingabe von hh:min > 24h

Einzelnen Beitrag anzeigen

Benutzerbild von FAlter
FAlter

Registriert seit: 21. Jul 2004
Ort: Ostfildern
1.096 Beiträge
 
FreePascal / Lazarus
 
#4

Re: Eingabe von hh:min > 24h

  Alt 31. Jan 2009, 17:42
Hi,

Normales Edit nehmen und dann einfach per Hand umwandeln...

Ungefähr so

Delphi-Quellcode:
Str := TimeEdit.Text;
p := pos(':', Str);

if p > 0 then
  TheTime := StrToFloat(Copy(Str, 1, p-1)) / HoursPerDay +
    StrToFloat(Copy(Str, p+1, length(str)) / MinsPerDay
else
  TheTime := StrToFloat(Str) / HoursPerDay;
Mfg
FAlter
Felix Alter
  Mit Zitat antworten Zitat