............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Fechas de pagos quincenales

Ver el tema anterior Ver el tema siguiente Ir abajo

Fechas de pagos quincenales

Mensaje por samros el Sáb Jun 07, 2008 1:50 pm

Un amigo me pidio apoyo sobre como calcular los pagos de las quincenas tomando en cuenta que el pago se anticipa cuando este cae en fin de semana, osea que si cae en Sabado o Domingo este pasa a ser el viernes.

Aqui dejo el Modulo que hay que pegar en el editor de Visual Basic

Function PagoQuin(IntAño As Integer, IntMes As Integer, IntQuin As Byte)

Dim FSalida As Date
'Coloca el 1 para la primera quincena y 2 para la segunda
If IntQuin = 1 Then
FSalida = DateSerial(IntAño, IntMes, 1) + 14
ElseIf IntQuin = 2 Then
FSalida = DateSerial(IntAño, IntMes + 1, 1) - 1
ElseIf IntQuin > 2 Then
FSalida = "Solo hay 2 quincenas en el mes y te dara error"
End If

If Weekday(FSalida, vbMonday) = 6 Then
FSalida = FSalida - 1
ElseIf Weekday(FSalida, vbMonday) = 7 Then
FSalida = FSalida - 2
End If

PagoQuin = FSalida
End Function

Nota: No toma dias festivos que sería bueno anexarlos.

Lo llamas con =PagoQuin(Año,Mes,Quincena 1 o 2)

Ejemplo =PagoQuin(2008,6,1) te regresa 39612, solo hay que poner formato de fecha.
Ejemplo =PagoQuin(2008,6,2) te regresa 39629, solo hay que poner formato de fecha.

saludos desde Mexico.

samros

Masculino Cantidad de envíos : 115
Edad : 39
Ciudad - Pais : Guadalajara Jalisco Mexico
Version de Excel : 2003
Fecha de inscripción : 15/05/2008

http://accessam@mejorforo.net

Volver arriba Ir abajo

Re: Fechas de pagos quincenales

Mensaje por GalileoGali el Sáb Jun 07, 2008 5:42 pm

Muy Bueno tu aporte...
Aca va otra version acudiendo a formulas con funciones de Excel

Hoja1

 ABCDE
1     
2AñoMesQuincena Quincenas
3200861 12/06/2008
4200862 30/06/2008
5     
6  Feriados  
7  14/08/2008  
8  13/06/2008  
Spreadsheet Formulas
CellFormula
E3=DIA.LAB(FECHA(A3;SI(C3=1;B3;B3+1);SI(C3=1;15;0))+1;-1;Feriados)
E4=DIA.LAB(FECHA(A4;SI(C4=1;B4;B4+1);SI(C4=1;15;0))+1;-1;Feriados)
Names in Formulas
CellNameApplies to
E3Feriados=Hoja1!$C$7:$C$8
E4Feriados=Hoja1!$C$7:$C$8


Excel tables to the web >> [Tienes que estar registrado y conectado para ver este vínculo]

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional

GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.