Página 1 de 1

somar horas

Enviado: 28 Ago 2019 11:56
por 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

somar horas

Enviado: 28 Ago 2019 12:30
por 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.
Nascimento escreveu:que a soma dos dois
Obs2: não seria o total de segundos entre a horainicial e a horafinal?

somar horas

Enviado: 28 Ago 2019 12:55
por Fernando queiroz

somar horas

Enviado: 28 Ago 2019 12:58
por 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

somar horas

Enviado: 28 Ago 2019 18:28
por 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 ) )

somar horas

Enviado: 04 Set 2019 17:48
por 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.