Função para soma, subtração e contagem entre datas

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

Avatar do usuário
ANDRIL
Usuário Nível 5
Usuário Nível 5
Mensagens: 1297
Registrado em: 06 Jul 2004 00:44
Contato:

Função para soma, subtração e contagem entre datas

Mensagem por ANDRIL »

Pessoal criei estas funções e coloco aqui a disposição dos colegas:

HoraPeriodo() : retorna a contagem do tempo entre duas datas informadas.

Exemplo
HoraPeriodo("17:13:50","21:52:43","02/07/2012","03/07/2012")

Contagem de Tempo
Anos.: 0
Meses: 0
Dias.: 1
Horas: 4:8:53
Tempo total HH:MM:SS = 28:8:53
Outras funcoes:
HH2SS() : retorna o numero de segundos de uma hora

SS2HH() : retorna uma hora de acordo com os segundos informado

Exemplo

HH2SS("46:10:25") = 166225 segundos

SS2HH(166255) = 46:10:25

Exemplo de Calculo de Horas
a="46:10:25"
b="49:01:49"
Soma: ss2hh(hh2ss(a)+hh2ss(b)) = 95:12:14
Subtracao: ss2hh(hh2ss(b)-hh2ss(a)) = 2:51:24
Apos criar as funcoes acima eu comentei no codigo onde estava usando as funcoes da Catools, então não precisa da LIB para linkar.

Alterem a gosto!

Ate+
Anexos
teste19.prg
(7.02 KiB) Baixado 338 vezes
Clipper 5.2e / Blinker 5.1 / Harbour 3.2 / GTwvg
Responder