Thema: Delphi Eingabe von hh:min > 24h

Einzelnen Beitrag anzeigen

Benutzerbild von FAlter
FAlter

Registriert seit: 21. Jul 2004
Ort: Ostfildern
1.095 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#4

Re: Eingabe von hh:min > 24h

  Alt 31. Jan 2009, 16: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
Japanurlaub 2015
  Mit Zitat antworten Zitat