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
Actualizado

Tiempo transcurrido entre dos fechasgráfica de visualizaciones


FoxPro/Visual FoxPro

Actualizado el 17 de Marzo del 2023 por Eduardo Marquez (5 códigos) (Publicado el 3 de Marzo del 2023)
340 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
214 visualizaciones desde el 3 de Marzo del 2023
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

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
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()
*      Para llamar a la funcion, le pasas los dos parámetros con las fechas y esta te devuelve una cadena de texto con el tiempo transcurrido entre ambas, así:
*     lcTiempo = TiempoTransc(ldFecha1, ldFecha2)
 
	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
 
	* Inicializar variables:
	lcTranscurrido = ''
 
	lnDias   = TTOD(ldFecha2) - TTOD(ldFecha1)
	lnMeses  = lnDias / 30
	lnAños   = lnDias / 365.25
 
	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)
	* Convertir a Horas:
	lnHoras = INT(lnEnMinutos / 60)
	* Restar horas para que queden minutos:
	lnMinutos = lnEnMinutos - (lnHoras * 60)
	* Diferencia de segundos:
	lnSegundos = ABS(lnSegundo2 - lnSegundo1)
 
	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.0 (0)


No hay comentarios
 

Comentar la versión: 1.0

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

1.1

Publicado el 17 de Marzo del 2023gráfica de visualizaciones de la versión: 1.1
126 visualizaciones desde el 17 de Marzo del 2023
http://lwp-l.com/s7341