felipe
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 25/11/2008 10:34 hs
BOm dia
eu sou novo em vb e eu tenho que fazer um trablho pra escola onde eu tenho q mostra a diferença entre uma data qu eu digito e a data q está no sitema.A data q esta no sistema eu consigo pega ela mas não consigo ela mostrar a diferença qdo eu digito a data que eu quero eu esou usando dessa forma:
Private Sub Command3_Click()
Dim x As Date
txtLocacao = x
txtDevolucao.Text = Date
txtLocacao.SetFocus
Dim qtDias As Byte
qtDias = txtDevolucao
lblDias.Caption = qtDias
End Sub
|
|
|
|
|
|
|
|
Postada em 25/11/2008 10:41 hs
Faz assim:
qtDias = DateDiff("d",txtDevolucao.text,DATE)
Sendo que se retornar negativo, quer dizer que a data digitada é anterior a data atual.
__________________
"It is the way of men to make monsters...and it is the nature of
monsters to destroy their makers."
-F.E.A.R. (First Encounter Assault Recon )
|
|
|
|
|
|
Postada em 25/11/2008 10:49 hs
Eu quero q mostre a diferença entre as datas por exemplo:
seu digitar 20/11/2008 e pegar a data que está no sistema que seria 25/11/2008 ele mostraria que a quantidade de dias foi 5.
e quando eu fiz do jeito que vc falou quando eu cliquei mostro que foram 0 dias e a data que eu digitei ficou assim 00:00:00
|
|
|
|
Ash Katchup
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 25/11/2008 11:25 hs
Para mim retornou "5"
Você usou DateDiff("d","20/11/2008","25/11/2008")?
|
|
|
|
|
|
Postada em 25/11/2008 11:51 hs
Private Sub Command3_Click()
Dim x As Date
txtLocacao = format(x, "dd/mm/yyyy")
txtDevolucao.Text = format(now, "dd/mm/yyyy")
txtLocacao.SetFocus
End Sub Private Sub Txt_Locacao_LostFocus() Dim qtDias As Byte
if isdate(txt_locacao.text) = false msgbox "Data inválida" txt_locacao.setfocus end if qtDias = datediff("d", txt_locacao.text, txt_devolucao.text)
lblDias.Caption = qtDias
End Sub |
|
|
|
Macaubal
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 25/11/2008 12:58 hs
Private Sub Command3_Click()
Dim x As Date
txtLocacao = x
txtDevolucao.Text = Date
txtLocacao.SetFocus
Dim qtDias As Byte
qtDias = DateDiff("d", x, txtDevolucao.text)
lblDias.Caption = qtDias
End Sub
|
|
|
|
