DUVIDAS AO MANIPULAR DATAS
Ola pessoal.
Aqui estou eu outra vez para tirar outra duvida.
Tenho três campos no meu form.
No primeiro tenho a data que foi cadastrada o produto.
No segundo tenho a data da venda.
Quando eu clicasse em algum botão e terceiro campo ganharia o resultado de quantos dias o produto fica parado no estoque.
Ex:
Data da Compra = 20/08/2007
Data da Venda = 28/08/2007
Dias em Estoque = 8
Txtdatacompra = 20/08/2007
Txtdatavenda= 28/08/2007
Txtestoque = txtdatacompra - txtdatavenda
O terceiro campo que é txtestoque ficaria com o valor = 8
Mas isso não esta ocorrendo porque as barras estão atrapalhando nos cálculos.
Aqui estou eu outra vez para tirar outra duvida.
Tenho três campos no meu form.
No primeiro tenho a data que foi cadastrada o produto.
No segundo tenho a data da venda.
Quando eu clicasse em algum botão e terceiro campo ganharia o resultado de quantos dias o produto fica parado no estoque.
Ex:
Data da Compra = 20/08/2007
Data da Venda = 28/08/2007
Dias em Estoque = 8
Txtdatacompra = 20/08/2007
Txtdatavenda= 28/08/2007
Txtestoque = txtdatacompra - txtdatavenda
O terceiro campo que é txtestoque ficaria com o valor = 8
Mas isso não esta ocorrendo porque as barras estão atrapalhando nos cálculos.
Dim QtdeDias as Integer
QtdeDias = DateDiff("d",CDate(Txtdatacompra),CDate(Txtdatavenda))
MsgBox QtdeDias
Tente da forma acima.
ow
Txtestoque.text = datediff("d", txtdatacompra.text, txtdatavenda.text)
Obs.: Lembrando que o post foi do MARCELOHF... o que eu coloquei foi apenas outra ordem para realizar a msm coisa...
Os méritos são dele
Txtestoque.text = datediff("d", txtdatacompra.text, txtdatavenda.text)
Obs.: Lembrando que o post foi do MARCELOHF... o que eu coloquei foi apenas outra ordem para realizar a msm coisa...
Os méritos são dele
Valeu galera os dois codigos estão funfando...
Obrigado...
Obrigado...
Tópico encerrado , respostas não são mais permitidas