Reginaldo,
a fun��o a seguir faz o c�lculo que voc� quer.
Fl�vio B�rrios
!!CB!! 134
Function: Gx_DateDiference ! __exported
Description: Faz a diferen�a entre duas datas. Retornando a diferen�a
em dias, horas,minutos e segundos.
Data Inicial deve ser menor que a final
Returns
Boolean:
Parameters
Date/Time: pdInicial
Date/Time: pdFinal
Receive Number: pnDias
Receive Number: pnHoras
Receive Number: pnMinutos
Receive Number: pnSegundos
Static Variables
Local variables
Number: lnFator
Number: lnTotalSegundos
Number: lnRestoSegundos
Actions
If pdInicial <= pdFinal
Set lnFator = 0.0000001157407407
Set lnTotalSegundos = SalNumberTruncate( (pdFinal -
pdInicial) / lnFator /100, 10, 0 )
Set pnDias = SalNumberTruncate( lnTotalSegundos / 86400 ,
10, 0 )
Set lnRestoSegundos = SalNumberMod( lnTotalSegundos, 86400 )
Set pnHoras = SalNumberTruncate( lnRestoSegundos / 3600 ,
10, 0 )
Set lnRestoSegundos = SalNumberMod( lnRestoSegundos, 3600 )
Set pnMinutos = SalNumberTruncate( lnRestoSegundos / 60 ,
10, 0 )
Set lnRestoSegundos = SalNumberMod( lnRestoSegundos, 60 )
Set pnSegundos = lnRestoSegundos
Return TRUE
Return FALSE
"Reginaldo Garcia" <[EMAIL PROTECTED]> on 13/07/2000 09:43:17
Please respond to [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
cc: (bcc: Flavio Barrios/Procenge)
Subject: [sqlwin] Calcular hora entre DataFields
Ola � todos...
Estou iniciando com o Centura e preciso de uma ajuda !
Como posso calcular a diferen�a de horas entre dois datafields, preciso do
resultado em horas, minutos e segundos em outro datafield.
Exemplo:
Set dfnDifenca=dfdHoraFinal - dfdHoraInicial
o resultado dessa opera��o � num�rico, certo ? � este o caminho ? como
poderia fazer ?
Obrigado!
F�bio
________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com
==============================================
Lista de Centura SQLWindows
Administrador : [EMAIL PROTECTED]
[ http://www.centuraexplorer.com ]
Para sair desta lista mande mensagem para:
[EMAIL PROTECTED] sem nada no Subject e
com o comando a seguir no corpo da msg:
"unsubscribe sqlwin" (sem as aspas)
==============================================
==============================================
Lista de Centura SQLWindows
Administrador : [EMAIL PROTECTED]
[ http://www.centuraexplorer.com ]
Para sair desta lista mande mensagem para:
[EMAIL PROTECTED] sem nada no Subject e
com o comando a seguir no corpo da msg:
"unsubscribe sqlwin" (sem as aspas)
==============================================
