[RodolfoIff]

Bom dia,

Sou muito limitado em termos de access preciso fazer aqui para empresa um banco de dados para cadastrar inventarios criei o banco a estrutura agora não estou conseguindo criar consultas que mostrem o tempo entre a data em que comprei o equipamento e a data do dia corrente.


desde já agradeço a Ajuda de Todos.

[Mário Monteiro]

use a funcao DATEDIFF e faça os devidos calculos depois

[RodolfoIff]

Mário Monteiro, em 31/05/2009 - 14:32, disse:

use a funcao DATEDIFF e faça os devidos calculos depois

Amigo Mario Monteiro, agradeço por ter respondido meu apelo,
mas como comentei sou muito cru e fiquei na mesma, dei uma pesquisada sobre essa função, porem não encontrei nada que pudesse me ajudar.

Se eu ainda não enxi a sua paciencia você se encomodaria de me dar algum detalhe como por exemplo onde posso colocar esses calculos do datediff



Alguem poderia me passar um passo a passo ou algo perecido!!

Obrigado.

[Mário Monteiro]

Olha eu fiz mas tente entender e não apenas usar

Qualquer duvida sobre o funcionamento pergunte para você aprender de verdade

Abaixo tem uma sub que imprime na tela o resultado

A sub é chamada no load do form e nela você poe a data para testar

acho que é só Copiar e colar e depois entender

Quote

Option Compare Database

Sub Tempo(Valor)

Data = CDate(Valor)

Anos = DateDiff("yyyy", Data, Now)
If Date < CDate(Day(Data) & "/" & Month(Data) & "/" & Year(Now)) Then
Anos = Anos - 1
End If
Meses = DateDiff("m", Data, Now)
If Date >= CDate("1/" & Month(Now) & "/" & Year(Now)) And Date < CDate(Day(Data) & "/" & Month(Now) & "/" & Year(Now)) Then
Meses = Meses - 1
End If
While Meses >= 12
Meses = Meses - 12
Wend

Dias = Day(Now) - Day(Data)
If Dias < 0 Then
Dias = Dias + Day(DateAdd("d", -1, "01/" & Month(Now) & "/" & Year(Now)))
End If

TEXTO = ""

If Anos > 0 Then
TEXTO = TEXTO & Anos & "A"
End If

If Anos > 0 And (Meses > 0 Or Dias > 0) Then
TEXTO = TEXTO & " e "
End If

If Meses > 0 Then
TEXTO = TEXTO & Meses & "M"
End If

If (Anos > 0 Or Meses > 0) And Dias > 0 Then
TEXTO = TEXTO & " e "
End If

If Dias > 0 Then
TEXTO = TEXTO & Dias & "D"
End If

MsgBox(TEXTO)

End Sub

Private Sub Form_Load()
Tempo ("4/8/2007")
End Sub