USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Datas/Números/Strings)

Título da Dica:  Função para subtrair quantidade de anos de uma data
Postada em 17/12/2002 por Spidey            
Private Function SubtrairAnos(DataSolicitada As Date, Quant As Integer) As String
    
    Dim Cont As Integer, Ano As Integer, Soma As Single
    
    Ano = Val(Year(DataSolicitada))
    
    For Cont = 1 To Abs(Quant)
        Soma = IIf(IsDate("29/02/" & Ano) = True, Soma + 366, Soma + 365)
        Ano = Ano - 1
    Next
    
    SubtrairAnos = DataSolicitada - Soma

End Function


Private Sub Form_Load()

    'Para chamar:
    Label1.Caption = SubtrairAnos("16/12/2002", 10)

End Sub

'Agradecimentos: Salgadinho
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página