Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Código Fuente » FoxPro/Visual FoxPro » Código de FoxPro/Visual FoxPro - Tiempo transcurrido entre dos fechas

Código de FoxPro/Visual FoxPro - Tiempo transcurrido entre dos fechas

Volver
Agregar Código Fuente
<<>>
Imágen de perfil

Tiempo transcurrido entre dos fechasgráfica de visualizaciones


FoxPro/Visual FoxPro

Actualizado el 9 de Mayo del 2023 por Eduardo Marquez (5 códigos) (Publicado el 3 de Marzo del 2023)
1.557 visualizaciones desde el 3 de Marzo del 2023
Dada dos fechas diferentes; en formato DateTime, esta función devuelve el tiempo transcurrido entre ambas en una sola cadena de texto. Indicando, años, meses, semanas, días, horas, minutos y segundos.
Observa que se toma en cuenta el singular del plural en las cantidades mayores a 1.

Saludos y comenten!

Requerimientos

Ninguno, solo llamas a la funcion así:

lcTiempo = TiempoTransc(ldFecha1, ldFecha2)

Ambos parámetros deben estar en formato DateTime.
Si quieres ver el resultado devuelto, quita la marca de "*" de la linea con el MESSAGEBOX() al final de la función.

1.0

Publicado el 3 de Marzo del 2023gráfica de visualizaciones de la versión: 1.0
308 visualizaciones desde el 3 de Marzo del 2023

1.1

Publicado el 17 de Marzo del 2023gráfica de visualizaciones de la versión: 1.1
438 visualizaciones desde el 17 de Marzo del 2023

1.2

Publicado el 9 de Mayo del 2023gráfica de visualizaciones de la versión: 1.2
812 visualizaciones desde el 9 de Mayo del 2023
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

Se corrigio un problema ya que al hacer los calculos los dias no se iban restando de lo calculado los años y meses.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
PROCEDURE TiempoTransc
	PARAMETERS ldFecha1, ldFecha2
 
*  Recibe como parámetro dos fechas (en formato DateTime, devuelve el tiempo transcurrido en formato: Años, Meses, Semanas, Dias, Horas, Minutos, Segundos.
*	ldFecha1 = {23/02/2023 07:55:50 AM}
*	ldFecha2 = DATETIME()
 
	IF VARTYPE(ldFecha1) != 'T' OR VARTYPE(ldFecha2) != 'T'
		MESSAGEBOX('Los parámetros de ambas fechas deben ser del Tipo DATETIME', 0+16, 'Datos no válidos')
		RETURN ''
	ENDIF
 
	IF ldFecha1 = ldFecha2
		RETURN '0 seg.'
	ENDIF
 
	* Inicializar variables:
	lcTranscurrido = ''
	lnDias   = TTOD(ldFecha2) - TTOD(ldFecha1)
 
	lnAños   = INT(lnDias / 365.25)
	lnDias = lnDias - (lnAños * 365.25)
 
	lnMeses  = INT(lnDias / 30)
	lnDias = lnDias - (lnMeses * 30)
 
	lnHora1    = HOUR(ldFecha1)
	lnMinuto1  = MINUTE(ldFecha1)
	lnSegundo1 = SEC(ldFecha1)
 
	lnHora2    = HOUR(ldFecha2)
	lnMinuto2  = MINUTE(ldFecha2)
	lnSegundo2 = SEC(ldFecha2)
 
	* Obtener diferencia en minutos:
	lnEnMinutos = ((lnHora2 * 60) + lnMinuto2) - ((lnHora1 * 60) + lnMinuto1)
	lnEnMinutos = ABS(lnEnMinutos)
	* Convertir a Horas:
	lnHoras = ABS(INT(lnEnMinutos / 60))
	* Restar horas para que queden minutos:
	lnMinutos = ABS(lnEnMinutos - (lnHoras * 60))
	* Diferencia de segundos:
	lnSegundos = ABS(lnSegundo2 - lnSegundo1)
 
*	MESSAGEBOX('Variables: ' + CHR(13) + CHR(13) + ;
	'Hora1: ' + STR(lnHora1) + CHR(13) + ;
	'Hora2: ' + STR(lnHora2) + CHR(13) + ;
	'Minuto1: ' + STR(lnMinuto1) + CHR(13) + ;
	'Minuto2: ' + STR(lnMinuto2) + CHR(13) + ;
	'Horas: ' + STR(lnHoras) + CHR(13) + ;
	'Minutos: ' + STR(lnMinutos), 0+64, 'Mensaje')
 
	IF lnAños >= 1
		IF lnAños = 1
			lcTranscurrido = lcTranscurrido + ALLTRIM(STR(lnAños)) + ' año '
		ELSE
			lcTranscurrido = lcTranscurrido + ALLTRIM(STR(lnAños)) + ' años '
		ENDIF
	ENDIF
	IF lnMeses >= 1
		IF lnMeses = 1
			lcTranscurrido = lcTranscurrido + ALLTRIM(STR(lnMeses)) + ' mes '
		ELSE
			lcTranscurrido = lcTranscurrido + ALLTRIM(STR(lnMeses)) + ' meses '
		ENDIF
	ENDIF
	IF lnDias > 0
		IF lnDias >= 7
			IF INT(lnDias / 7) = 1
				lcTranscurrido = lcTranscurrido + ALLTRIM(STR(INT(lnDias / 7))) + ' semana '
			ELSE
				lcTranscurrido = lcTranscurrido + ALLTRIM(STR(INT(lnDias / 7))) + ' semanas '
			ENDIF
			IF MOD(lnDias, 7) = 1
				lcTranscurrido = lcTranscurrido + ALLTRIM(STR(MOD(lnDias, 7))) + ' día '
			ELSE
				lcTranscurrido = lcTranscurrido + ALLTRIM(STR(MOD(lnDias, 7))) + ' días '
			ENDIF
		ELSE
			IF lnDias = 1
				lcTranscurrido = lcTranscurrido + ALLTRIM(STR(lnDias)) + ' día '
			ELSE
				lcTranscurrido = lcTranscurrido + ALLTRIM(STR(lnDias)) + ' días '
			ENDIF
		ENDIF
	ENDIF
 
	IF lnHoras > 0
		IF lnHoras = 1
			lcTranscurrido = lcTranscurrido + ALLTRIM(STR(lnHoras)) + ' hora '
		ELSE
			lcTranscurrido = lcTranscurrido + ALLTRIM(STR(lnHoras)) + ' horas '
		ENDIF
	ENDIF
	IF lnMinutos > 0
		IF lnMinutos = 1
			lcTranscurrido = lcTranscurrido + ALLTRIM(STR(lnMinutos)) + ' minuto '
		ELSE
			lcTranscurrido = lcTranscurrido + ALLTRIM(STR(lnMinutos)) + ' minutos '
		ENDIF
	ENDIF
	IF lnSegundos > 0
		lcTranscurrido = lcTranscurrido + ALLTRIM(STR(lnSegundos)) + ' segundos'
	ENDIF
 
	MESSAGEBOX('El tiempo transcurrido entre: ' + CHR(13) + CHR(13) + TTOC(ldFecha1) + ' y ' + TTOC(ldFecha2) + ' es:' + CHR(13) + CHR(13) + ;
		lcTranscurrido, 0+64, 'Mensaje')
 
	RETURN lcTranscurrido
ENDPROC



Comentarios sobre la versión: 1.2 (0)


No hay comentarios
 

Comentar la versión: 1.2

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad
Acepto las políticas de privacidad

http://lwp-l.com/s7341