时间格式转换问题

Question

如何将一个时间.转换成FLOAT格式.
如"06:30"  就转为 6.5   
以小时为单位.有这样的函数吗?

Answer 1

uses DateUtils;procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption := FloatToStr(MinuteOfTheDay(StrToTime('06:30')) / 60);
end;

Answer 2

function Transition(vTime: String): String;
var
   vHous,vMinute:String;
begin
  vHous:=copy(vTime,1,pos(':',vTime)-1);
  if vHous[1]='0' then
    delete(vHous,1,1);
  vMinute:=copy(vTime,pos(':',vTime)+1,Length(vTime)-pos(':',vTime));
  vMinute:=format('%.2f',[strtofloat(vMinute)/60]);
  Result:=vHous+'.'+copy(vMinute,3,2);

Answer 3

var
  s:string;s:=FloatToStr(MinuteOfTheDay(StrToTime('06:30')) / 60);