Calcular trienios y quinquenios
Necesito desarrollar una fórmula mediante la cual poniendo en A1 la fecha de "hoy" y en A2 la antigüedad del trabajador me calculé la cantidad de trienios y quinquenios que posee en el puesto.
El cálculo para los trienios es hasta el 31-12-1996 y el de los quinquenios a partir del 1-1-1997 hasta la fecha.
Gracias a todos los que podáis ofrecer cualquier tipo de ayuda.
El cálculo para los trienios es hasta el 31-12-1996 y el de los quinquenios a partir del 1-1-1997 hasta la fecha.
Gracias a todos los que podáis ofrecer cualquier tipo de ayuda.
1 Respuesta
Respuesta de calvuch
1
¿En A2 la antigüedad del trabajador?
¿Ese dato es una fecha o un entero?
¿Ese dato es una fecha o un entero?
Es una fecha:
A1 sería por ejemplo 19/07/2011 (fecha actual)
A2 sería por ejemplo 12/04/1987 (fecha de alta)
Lo cual daría:
Trienios: 1990, 1993,1996
Quinquenios: 2001, 2006, 2011
En el caso de:
A1 sería por ejemplo 19/07/2011
A2 sería por ejemplo 12/04/1988
Sería:
Trienios: 1991, 1994
Quinquenios: 1999, 2004, 2009
A1 sería por ejemplo 19/07/2011 (fecha actual)
A2 sería por ejemplo 12/04/1987 (fecha de alta)
Lo cual daría:
Trienios: 1990, 1993,1996
Quinquenios: 2001, 2006, 2011
En el caso de:
A1 sería por ejemplo 19/07/2011
A2 sería por ejemplo 12/04/1988
Sería:
Trienios: 1991, 1994
Quinquenios: 1999, 2004, 2009
Me había imaginado algo diferente, pensé que querías "contar" los trienios y quinquenios, pero no que deseabas extraer los años como texto...
Así que lo único que puedo hacer es una función personalizada. Aquí tre va:
Primero abre el editor de Vba con ALT + F11
Luego inserta un modulo ( no modulo declase, solo modulo), dale doble click al modulo y en el editor pega esto:
Function tri(ByRef antiguedad As String, alta As String)
'trienios y quinquenios by calvuch
Dim a As Integer
Dim b As Integer
Dim cadena As String
cadena = ""
a = Mid(antiguedad, 7, 4)
b = Mid(alta, 7, 4)
b = (b + 3)
'trienios
Do Until b > 1996
cadena = cadena & Str(b) & " "
b = (b + 3)
Loop
cadena = "Trienios: " & cadena & "Quinquenios: "
b = (b - 3)
'quinquenios
Do Until b >= a
b = (b + 5)
If b > a Then Exit Do
cadena = cadena & Str(b) & " "
Loop
tri = cadena
End Function
Graba el libro
Ahora para utilizar esta función lo haces como si se tratase de cualquier función normal de excel tal como =suma().
En este caso la función se llama "tri" y la llamas así:
=tri(arg1,arg2)
En donde arg1 es la antigüedad y arg2 es la fecha de alta)
El formato de las fechas debe ser el que tu indicaste
Si te sirve CIERRA la pregunta, si tienes otras preguntas habré "otra pregunta"
Así que lo único que puedo hacer es una función personalizada. Aquí tre va:
Primero abre el editor de Vba con ALT + F11
Luego inserta un modulo ( no modulo declase, solo modulo), dale doble click al modulo y en el editor pega esto:
Function tri(ByRef antiguedad As String, alta As String)
'trienios y quinquenios by calvuch
Dim a As Integer
Dim b As Integer
Dim cadena As String
cadena = ""
a = Mid(antiguedad, 7, 4)
b = Mid(alta, 7, 4)
b = (b + 3)
'trienios
Do Until b > 1996
cadena = cadena & Str(b) & " "
b = (b + 3)
Loop
cadena = "Trienios: " & cadena & "Quinquenios: "
b = (b - 3)
'quinquenios
Do Until b >= a
b = (b + 5)
If b > a Then Exit Do
cadena = cadena & Str(b) & " "
Loop
tri = cadena
End Function
Graba el libro
Ahora para utilizar esta función lo haces como si se tratase de cualquier función normal de excel tal como =suma().
En este caso la función se llama "tri" y la llamas así:
=tri(arg1,arg2)
En donde arg1 es la antigüedad y arg2 es la fecha de alta)
El formato de las fechas debe ser el que tu indicaste
Si te sirve CIERRA la pregunta, si tienes otras preguntas habré "otra pregunta"
