Converter horas para decimal S-2245

[Lucas Luis Baruffi]

Boa tarde pessoal,

Gostaria de saber se alguém está trabalhando no evento S-2245 - Treinamentos, o campo durTreiCap é um decimal 6,2. Temos que realizar a conversão de horas e minutos para decimal? Exemplo: 5h30min = 5.5 no XML?

[Daniel Simoes]

Tente com essa função...

function TimeToDecimal(const ATime: TDateTime): Double;
var
  H, N, S, MS: word;
  MDec: Double;
begin
  DecodeTime(ATime, H,N,S,MS);

  MDec := N/60;
  Result := H + MDec;
end;

 

[Lucas Luis Baruffi]

Obrigado pela ajuda.

[Daniel Simoes]

Enviei para o SVN, rev: 18050

Citar

-- pcnAuxiliar --
[+] Adicionando o método:
    function TimeToDecimal(const ATime: TDateTime): Double;
    (por: DSA)