Replanteando la ayuda sobre las fechas... - VB-MUNDO

luisgilabzueta · #1 (**permalink**) 19-04-2007, 07:13:43

hola... necesito hacer un calculo para nomina con una formula que dice que la deduccion del seguro social se calcula asi

D=SM x 12/52 x 4% x (cantidad de lunes del mes).

es decir: deduccion = sueldo mensual x 12 meses / 52 semanas (esto me da el sueldo semanal) multiplicado por el 4% de la deduccion y multiplicado por el numero de lunes de cada mes...

me podrian explicar como validar las fechas (de los lunes) para asi poder hacer una aplicacion que calcule de forma automatica cual es la cantidad de lunes de cada mes?

gracias...

J.M.Movilla · #2 (**permalink**) 19-04-2007, 08:52:56

Creo que debieras tener unas variables para pasarle a la función Deduccion los siguientes parámetros:

Código:

Dim nSM As Single, nAnno as integer, nMes as integer, nDed As Single

Te creas una Function que reciba esos valores

Código:

Private Function Deduccion( SM As Single, Anno As Integer, Mes As integer) as Single
    Dim PrimDiaMes as Date
    Dim UltDiaMes As Date
    Dim nLunes as Integer

    PrimDiaMes = = CDate("01/" & Trim(Str(Mes)) & "/" & Str(Anno))
    UltDiaMes = DateSerial(Year(PrimDiaMes), Month(PrimDiaMes) + 1, 0)
    nLunes = 0
    While PrimDiaMes <= UltDiaMes
        If Weekday(PrimDiaMes) = vbMonday then nLunes = nLunes + 1
        PrimDiaMes = PrimDiaMes + 1
    Wend
    Deduccion=SM * 12 / 52 * 4 / 100 * nLunes
End Function

Asignas valor a las variables precisas:

Código:

nSM = 3256.45
nAnno = 2007
nMes = 4

Y obtienes la dedicción llamando a la función

Código:

nDed = Deduccion(nSM, nAnno, nMes)

Por supuesto, no tengo que decirte que te pongo el código en lenguaje de VB 6.0; espero que lo importante es la idea, y que ha de serte útil...

luisgilabzueta · #3 (**permalink**) 19-04-2007, 09:59:41

voy a tratar de montar la funcion en VB 6 y despues le digo al .net que la convierta, de todas formas para cualquiera de los 2 lenguajes esta muy bien explicada... gracias