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

  • Pergunta

  • 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

  • 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