domingo, 1 de dezembro de 2013

Funções usadas para converter Hora 100 em Hora 60



Function hora_decimal(hora_entrada: real): real ;
Begin
   hora_decimal := (((hora_entrada - int(hora_entrada)) * 100) / 60) + int(hora_entrada) ;
End ;

Function hora_HHMM(hora: real): real ;
Begin
   hora_HHMM := ((hora - int(hora)) * 0.60) + int(hora) ;
End ;

Nenhum comentário:

Postar um comentário