CALCULAR DATAS
Oi pessoal boa tarde !!!
Estou precizando de um programa onde estarei fazendo assim:
1. Local para colocar a data Atual.
2. Botão de Calcular
3. Local onde irá aparecer a data final.
Como funcionara,irei colocar a data que quero no numero 1, ai qando apertar o botao calcular , ira aparecer no numero 3 o resultado da data 1 acrecentado a 120 dias.
Exemplo:
Se eu coloca no numero 1: 1/1/2000 e apertar calcular devera aparecer no numero 3 a data 29/04/2000 , que seria 120 dias após a data inicial.
Que códigos usos nos botões e que butões uso para fazer isso.
Estou enviando uma mensagem de como poderia ser.
Desde já grato.
Estou precizando de um programa onde estarei fazendo assim:
1. Local para colocar a data Atual.
2. Botão de Calcular
3. Local onde irá aparecer a data final.
Como funcionara,irei colocar a data que quero no numero 1, ai qando apertar o botao calcular , ira aparecer no numero 3 o resultado da data 1 acrecentado a 120 dias.
Exemplo:
Se eu coloca no numero 1: 1/1/2000 e apertar calcular devera aparecer no numero 3 a data 29/04/2000 , que seria 120 dias após a data inicial.
Que códigos usos nos botões e que butões uso para fazer isso.
Estou enviando uma mensagem de como poderia ser.
Desde já grato.
Há lebrando uqe no campo de colocar a primeira data não necesáriamente seria a data atual,mais sim qualquer data.
dateadd([Ô]d[Ô],120,txtData)
Ok , mais em que lugar adiciono este código ?
Att
Att
No botão
Private Sub Command_Click()
txtResultado.text = dateadd([Ô]d[Ô],120,txtDataDigitada) [ô]Por Exemplo
End Sub
Private Sub Command_Click()
txtResultado.text = dateadd([Ô]d[Ô],120,txtDataDigitada) [ô]Por Exemplo
End Sub
Tópico encerrado , respostas não são mais permitidas