Gestion de pagos quincenales

[lokoman]

Hola!!
Para estructurar mas la cosa, aqui está una funcion que calcula si es fin de semana... por si acaso los dias 15 ó 30 son sabado o domingo:

Código vb:

'Para usarlo
NombreDiaSemana = fDiaSemana(Date)
 
If NombreDiaSemana = "Sábado" Or NombreDiaSemana = "Domingo" Then 'Es un fin de semana
end if
 

Esta es la funcion:

Código vb:

Public Function fDiaSemana(pFecha As String)
    Select Case (Weekday(pFecha))
        Case 1: pFecha = "Domingo"
        Case 2: pFecha = "Lunes"
        Case 3: pFecha = "Martes"
        Case 4: pFecha = "Miércoles"
        Case 5: pFecha = "Jueves"
        Case 6: pFecha = "Viernes"
        Case 7: pFecha = "Sábado"
    End Select
    fDiaSemana = pFecha
End Function