Fórum Campo float (horas extras) #267390

 procedure T_horas.BitBtn2Click(Sender: TObject);
var ini,final:TDateTime;
begin
if MessageBox(_horas.Handle,´Deseja gravar as informações acima?´,´Aviso do Sistema´,mb_yesno+mb_iconquestion)=6 then
    begin
        ini:=strtotime(inicio.Text);
        final:=strtotime(fim.Text);
        dm.qhoras.Insert;
        dm.qhorasmes.Value:=FormatDateTime(´mmmm´,data.Date);
        dm.qhorasnome.Value:=funcionario.Text;
        dm.qhorasdata.Value:={strtodate(FormatDateTime(´yyyy/mm/dd´,}data.date;
        dm.qhorasdia.Value:=formatDatetime(´dddd´,data.Date);
        dm.qhorasinicio.Value:=FormatDateTime(´hh:mm´,strtotime(inicio.Text));
        dm.qhorasfim.Value:=FormatDateTime(´hh:mm´,strtotime(fim.Text));
        If (Ini > Final) then
           dm.qhorashoras.value:=strtofloat(FormatDateTime(´hh.mm´,((StrTotime(´23:59´)-ini)+final+strtotime(´00:01´))))
        else
           dm.qhorashoras.value:=strtofloat(FormatDateTime(´hh.mm´,((final-ini))));
        dm.qhorasmotivo.Value:=motivo.Text;
        dm.qhoras.Post;
        if ponto.Checked=true then
           begin
              dm.qhoras.Active:=false;
                dm.qhoras.SQL.Clear;
                dm.qhoras.sql.Add(´Select * from horas where nome like ´+char(39)+funcionario.Text+´¬´+char(39)+´ and ponto=0 order by data, ordem´);
                dm.qhoras.active:=true;
           end
        else
           begin
                dm.qhoras.Active:=false;
                dm.qhoras.SQL.Clear;
                dm.qhoras.sql.Add(´Select * from horas where nome like ´+char(39)+funcionario.Text+´¬´+char(39)+´ order by data, ordem´);
                dm.qhoras.active:=true;
           end;
        inicio.Text:=´´;
        fim.Text:=´´;
        motivo.Text:=´´;
        funcionario.SetFocus;
    end;
end;