somar horas

[Nascimento]

amigos estou batendo cabeça com uma simples função
preciso mais ou menos isso

horainicial := "10:00"
horafinal := "11:00"

precisaria que a soma dos dois o resultados sairiam em segundos valor inteiro
? Funcão (horainicial,horafinal) > 120 segundos

[Toledo]

Segue um exemplo:

Código: Selecionar todos

Function Main()

horainicial := "10:00"
horafinal := "11:00"

nSeg_:=TimeToSec(horafinal)-TimeToSec(horainicial)

@ 10,10 say Str(nSeg_,5,0)

Return Nil

Obs.: o resultado em segundos será 3600 segundos.

que a soma dos dois

Obs2: não seria o total de segundos entre a horainicial e a horafinal?

[Fernando queiroz]

https://youtu.be/mEB1ySoLdQ0
:% :% :%

[Nascimento]

opa mestre , errei na verdade é em minutos
na hora de escrever falei segundos

hora ini "10:00"
hora fin "11:00"

saida 60 minutos

peguei sua função e dividi por 60 deu certo

Function Main()

horainicial := "10:00"
horafinal := "11:00"

nSeg_:=TimeToSec(horafinal)-TimeToSec(horainicial)

@ 10,10 say Str(nSeg_/60,5,0)

Return Nil

[JoséQuintas]

E sempre tem a opção de criar o próprio fonte... converte tudo pra minutos e depois desconverte, se precisar.

Código: Selecionar todos

cHoraIni := "10:00"
cHoraFim := "11:00"

? MInutos( cHoraFim ) - Minutos( cHoraIni )

FUNCTION MInutos( cTime )

   RETURN Val( Substr( cTime, 1, 2 ) ) * 60 + Val( Substr( cTime, 4, 2 ) )

[Itamar M. Lins Jr.]

Ola!

Código: Selecionar todos

***************************   SOMA DUAS HORAS
Static FUNCTION HADH(H1,H2)
***************************   Ex: Soma 12:34:25 + 02:45:00 = 15:19:25
*
*
RETURN TSTRING(SECS(H1)+SECS(H2))

Saudações,
Itamar M. Lins Jr.