topic-21768

Posts: 364

Joined: Tue Oct 25, 2005 07:06 PM

restar dos horas diferentes
Posted: Fri Jun 17, 2011 11:08 AM

saludos amigos, alguien tendra o habra una funcion que me de la diferencia en minutos entre 2 horas devueltas con time()

de antemano gracias

Software especializado para oficinas contables con grandes volumenes de Informacion
Impresion de todos los formularios del Seniat, Dian

alex_patino74@hotmail.com
whatsapp 57+3214777217

Willi Quintana

Posts: 1054

Joined: Sun Oct 09, 2005 10:41 PM

Re: restar dos horas diferentes
Posted: Sun Jun 19, 2011 04:19 AM

Aqui va.. espero te sirva. (tomado de un antiguo libro de librerias para clipper.....)
Salu2,,,

SET DATE ITALIAN
? DifTiempo(CTOD("01/08/91"), , CTOD("31/08/91"), "23:59" )
---> 44639

Code (fw): Select all Collapse

Function DifTiempo(dFecha1, cHora1, dFecha2, cHora2)
local nDias, nHorasp, nMinutp, nHorasa, nMinuta, nHoras, nMinuto

If cHora1 = NIL .OR. EMPTY(cHora1)
  cHora1 := "00:00"
EndIf

If dFecha2 = NIL .OR. EMPTY(dFecha2)
  dFecha2 := DATE()
EndIf

If Hora2 = NIL .OR. EMPTY(cHora2)
  cHora2 := SUBSTR(TIME(),1,5)
EndIf

IF VALTYPE(dFecha1) != "D" .OR. VALTYPE(dFecha2) != "D" .OR. VALTYPE(cHora1) != "C" .OR. VALTYPE(cHora2) != "C" .OR. EMPTY(dFecha1)
  Return(0)
EndIf

// dif de dias
nDias := dFecha2 - dFecha1
// se extraen las horas y minutos de cada fraccion horaria
nHorasp := VAL(SUBSTR(cHora2,1,2))
nMinutp := VAL(SUBSTR(cHora2,4,2))

nHorasa := VAL(SUBSTR(cHora1,1,2))
nMinuta := VAL(SUBSTR(cHora1,4,2))

//dif de horas
nHoras := nHorasp - nHorasa
// si la dif horaria es menor que 0
If nHoras < 0
  --nDias
  nHoras += 24
EndIf

// dif de minutos
nMinuto := nMinutp - nMinuta
// si la dif de minutos es menor que 0
If nMinuto < 0
  --nHoras
  nMinuto += 60
EndIf

Return nMinuto + (nHoras * 60) + ((nDias* 24 ) * 60 )

Manuel Valdenebro

Posts: 711