MENSAGENS DATAS

TECLA 10/05/2010 20:10:24
#341454

Usando a função DATEDIFF você consegue saber a quantidade de dias restantes.

Veja mais detalhes no artigo abaixo:
Trabalhando com datas no Visual Basic

MICROSCHEME 10/05/2010 20:13:53
#341455

If DateDiff([Ô]d[Ô], Text1.Text, Text2.Text) = 3 Then
MsgBox [Ô]faltam 3 dias[Ô]
End If
If DateDiff([Ô]d[Ô], Text1.Text, Text2.Text) = 2 Then
MsgBox [Ô]faltam 2 dias[Ô]
End If
If DateDiff([Ô]d[Ô], Text1.Text, Text2.Text) = 1 Then
MsgBox [Ô]faltam 1 dias[Ô]
End If

Text1.Text menor que Text2.text, caso contrário inverta os objetos text nas instruções datediff

EDERMIR 11/05/2010 09:56:01
#341485

Wprazo = DateDiff([Ô]d[Ô], Text1.Text, Text2.Text)
if Wprazo <3 and Wprazo > 0 then
MsgBox [Ô]faltam [Ô] & Wprazo & [Ô] dias[Ô]
endif

MARCELOFAZAN 30/05/2010 20:07:31
#343274

Pessoal quem consegue mudar esse codigo para VB
obrigado as dicas testei


dt=tab.dt-date()
do case
case dt>0
wait wind [Ô]Faltam [Ô]+allt(str(dt))+[Ô] dias para o pagamento![Ô]
case dt=0
wait wind [Ô]Vencendo hoje![Ô]
otherwise
wait wind [Ô]Vencido a [Ô]+allt(str(abs(dt)))+[Ô] dias![Ô]
endcase

MARCELO.TREZE 30/05/2010 20:26:26
#343275 Resposta escolhida

Colega é simples

Dim DataVenc As Date
Dim DataAtual As Date

DataVenc = [Ô]10/05/2010[Ô]
DataAtual = [Ô]07/05/2010[Ô]

msgbox [Ô]Faltam [Ô] & Datediff([Ô]d[Ô], DataVenc, DataAtual) & [Ô] dias para o pagamento[Ô]


lógico se vc for buscar os dados de uma tabela então faça a alterações necessárias

MARCELOFAZAN 31/05/2010 14:29:06
#343402

Obrigado
Marcelo