DIGITAR DATA E SOMAR DIAS

USUARIO.EXCLUIDOS 01/08/2007 11:39:00
#228762
Pessoal, estou como uma dúvida aqui, tenho três Texts, no primeiro coloco uma data, no segundo, um número que corresponde ao tanto de dias as ser somado, e no terceiro tenho a data somada da Primeira data do Primeiro Text com um Número Qualquer do Segundo Text, tem como fazer isso????.......Eu ja tentei e tentei e está muito difícil, por isso peço a ajuda de vocês......

Muito Obrigado!
USUARIO.EXCLUIDOS 01/08/2007 11:45:19
#228767
Tente...

Text3.Text = DateAdd("m",val(Text2.Text),Text1.Text)
USUARIO.EXCLUIDOS 01/08/2007 11:49:21
#228769
Dim vdatainicial As Date
vdatainicial = CDate(Text1.Text)
Text3.Text = CDate(vdatainicial + Text2.Text)
USUARIO.EXCLUIDOS 01/08/2007 17:54:36
#228899
Tanto um, como o outro funcionaram Perfeitamente, Obrigadíssimo pelas dicas, vocês desse Site são realmente BONS

Muito Grato!
USUARIO.EXCLUIDOS 01/08/2007 18:01:40
#228903
Ae Alexandre..

Nesse fórum..só tem a ELITE da Programação

(ae pessoal, n forcei muito né? ahuahuhahahua)
USUARIO.EXCLUIDOS 01/08/2007 20:03:57
#228924


prefiro desse jeito e + simpels para mim 

  

[c]Private Sub Command1_Click()
Dim Data As Long
Data = CLng(CDate(Text1.Text))
Text3 = CDate(Data + (CInt(Text2)))
End Sub


[/c]
USUARIO.EXCLUIDOS 01/08/2007 21:46:48
#228942
Valeu MESMO vocês são fodas

Muitíssimo Obrigado
Tópico encerrado , respostas não são mais permitidas
Voltar