|
|
|
|
|
|
|
|
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
|
|
|
|
|
