| Pregunta: | 64551 - DIFERENCIA DE TIEMPO |
| Autor: | Rene Carrasco |
| Tengo una aplicación con Access y VB6 y estoy llenando un archivo en excel para la generación de estadísticas y uno de los campos es tiempo promedio de repuesta. Esto es de varios días necesito saber cuanto tiempo se tardo en atender una persona. El problema es que cuando saco la diferencia de los tiempos y esto corresponden a días diferentes me genera datos muy exagerados que no son reales Ejm. Inicio 06/03/2010 10:41:31 p.m. Fin 07/03/2010 06:33:13 a.m. después de leer 3 ó 4 registros con estas mismas características me dice que lleva como un mes de diferencia entre las fechas y al sacar el promedio también genera datos muy lejanos. | |
| Respuesta: | Fernando Fumero |
| Option Explicit ' Función DateDiff(intervalo, fecha1, fecha2) ' ' El Intervalo es string, puede ser: ' "yyyy"=Año ' "q" Trimestre ' "m" Mes ' "y" Día del año ' "d" Día ' "w" Día de la semana ' "ww" Semana ' "h" Hora ' "n" Minuto ' "s" Segundo ' ' la respuesta será numeral y será dada en el intervalo que se seleccionó ' Private Sub CMD_DIFERENCIA_FECHAS_Click() Dim OK As Boolean OK = True If Not IsDate(TXT_FECHA_INI) Then OK = False: MsgBox "- Fecha inicio está mal digitada.", vbCritical, "Fecha 1" If Not IsDate(TXT_FECHA_FIN) Then OK = False: MsgBox "- Fecha final está mal digitada.", vbCritical, "Fecha 2" If OK Then MsgBox "Diferencia en minutos...: " & DateDiff("n", TXT_FECHA_INI, TXT_FECHA_FIN), vbInformation, "Diferencia" End Sub ' En el caso específico de tu pregunta, la respuesta son 472 minutos. Cortesía de FUMERO CORP. - [email protected] - | |