Como fazer operações com Datas dentro de um campo (text, label, etc.)

[Guest Orlando Fernades M. Jr.]

Aeee pessoal, estou postando aqui como fazer a subtração, soma multiplicação com datas!

<_<

Private Sub Botão_Click()

Text1.Text = Format(Text1.Text, "yyyy")

Text2.Text = Format(Text2.Text, "yyyy")

resposta.Caption = Text1.Text - Text2.Text

End Sub

:D

'onde text1 é a primeira data

'onde text2 é a segunda data

'onde resposta é um label onde vou exibir a resposta

'subtrair sempre o maior menos o menor!

:unsure:

'na sintaxe do format (Text.text,"yyyy") ond y é o ano, podendo ser substituido por "dd" = Dia. e "mm" = mês ou mesmo "yy"= que é os dois últimos digitos do ano.

utilizando Masks, vai dar no mesmo, desde de que você faça uma validação pra não ficar os "_".

If IsDate(mskData.Text) = False Then msgbox "data inválida"

:lol:

vlw ahe pelo espaço para essa postagem!!!!