Buscar por:

RETORNA EM TIME A QUANTIDADE DE MINUTOS

Código

{

* Autor: Marcos Calixto

* Data: 10/11/2010

* Responsavel por converter a quantidade de minutos em um TimeStamp no formato Hora:Minutos

}

FUNCTION ConvertMinutoDateTime(min   :     integer):String;

var

      cal1,cal2   :     integer;

begin

      if min > 0 then

      begin

            if min > 60 then

            begin

                  cal1        :=    min div 60;// total de Horas

                  cal2        :=    min mod 60;// total de Minutos

                  if cal2 < 10 then

                  begin

                        result      :=    inttostr(cal1)+':0'+inttostr(cal2)+':00';

                  end else

                        begin

                              result      :=    inttostr(cal1)+':'+inttostr(cal2)+':00';

                        end;

            end else

                  begin

                        result := '00:'+inttostr(min)+':00';

                  end;

      end else

            begin

                  result      :=    'É necessario um valor maior que zero(0)';

            end;

end;