Buscar

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;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Data e hora
Adicionada dia: 10/11/10
Por: Marcos Naves Calixto
Visualizada: 2017 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009