consulta dias corridos Access

[RodolfoIff 0]

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 179]

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

[RodolfoIff 0]

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 179]

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

 

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