none
FUNÇÃO TERCEIRA SEGUNDA-FEIRA DO MÊS? RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    PRECISO DE UMA FUNÇÃO QUE RECEBA UM MÊS E UM ANO E RETORNE EM QUE DIA CAI A TERCEIRA SEGUNDA-FEIRA DAQUELE MÊS.

    PUBLIC FUNCTION VENCIMENTO (DIA AS INTEGER, MES AS INTEGER) AS INTEGER

DIM DIAVENCIMENTO AS INTEGER







VENCIMENTO = DIAVENCIMENTO

END FUNCTION

    segunda-feira, 25 de maio de 2015 00:29
    |

Respostas

  • Question
    Entrar para Votar
    1
    Entrar para Votar

    Anderson,

    favor não usar maiúscula em todo o texto.

    Sobre a UDF:

    Function Vencimento(Mes As Integer, Ano As Integer) As Integer

    Dim Data as String
    Dim Segunda1 as Integer, Dias as Integer
Data = 1 & "/" & Mes & "/" & Ano

Dias = WorksheetFunction.Weekday(CDate(Data))

If Dias > 2 Then
    Segunda1 = 7 - (Dias - 1) + 2
Else
    Segunda1 = 0 - (Dias - 1) + 2
End If

Vencimento = Segunda1 + 14

End Function
    Abraço.


    Filipe Magno


    • Editado FilipeMagno segunda-feira, 25 de maio de 2015 02:42
    • Marcado como Resposta Anderson F. Diniz segunda-feira, 25 de maio de 2015 03:02
    segunda-feira, 25 de maio de 2015 02:42
    |