[Resolvido]Montar consulta para calculo de diferença entre datas

Estou com problema para montar a seguinte consulta:

Tenho os campos:
DtRegistro/DtAcolhim/DtEfetiva/DtSaida/Hoje:Data() (para o caso de não haver data de saida)

preciso adicionar os seguintes campos calculados:
diferença: DtRegistro X DtAcolhim
diferença: DtAcolhim X DtEfetiva
diferença: DtEfetiva X DtSaida
diferença: DtAcolhim X DtSaida

diante das seguintes possibilidades:
1. DtRegistro(ok)/DtAcolhim(ok)/DtEfetiva(ok)/DtSaida(ok)/Hoje(ok) = Saiu depois de efetivado
2. DtRegistro(ok)/DtAcolhim(ok)/DtEfetiva(ok)/DtSaida("")/Hoje(ok) = Em Atendimento
3. DtRegistro(ok)/DtAcolhim(ok)/DtEfetiva("")/DtSaida(ok)/Hoje(ok) = Saiu sem efetivação
4. DtRegistro(ok)/DtAcolhim(ok)/DtEfetiva("")/DtSaida("")/Hoje(ok) = Aguardando efetivação
5. DtRegistro(ok)/DtAcolhim("")/DtEfetiva("")/DtSaida(ok)/Hoje(ok) = Nem chegou a ser entrevistado
6. DtRegistro(ok)/DtAcolhim("")/DtEfetiva("")/DtSaida("")/Hoje(ok) = Aguardando entrevista

a função que estou usando para o calculo é:
Public Function CalculaPeriodo(Date1 As Date, Date2 As Date)
'Desenvolvido por João Rodrigues (JR)
'
'Data: Mai/1999


If Date1 > Date2 Then
MsgBox "Data Inicial não pode ser maior que Data Final!", vbExclamation, "Erro"
Exit Function
End If
Dim Anos, meses, dias
Dim iAnos As Double, iMeses As Double, Intervalo As Double

' O resultado da diferença está em Double.
Intervalo = Date2 - Date1

' Um ano tem exatamente 365,2425 dias, ou
' 365 dias, 5 horas, 49 minutos e 12 segundos.
' Ou aproximadamente 365,25 dias.
iAnos = Intervalo / 365.2425
Anos = Int(iAnos)
iMeses = (iAnos - Anos) * 12
meses = Int(iMeses)

dias = DateDiff("d", DateSerial(DatePart("yyyy", Date1) + Anos, DatePart("m", Date1) + meses, Day(Date1)), Date2)

Select Case dias
Case -1
dias = 30
meses = meses - 1
Case -2
dias = 29
meses = meses - 1
Case 30 Or 31
dias = 0
meses = meses + 1
End Select

If meses = 12 Then
meses = 0
Anos = Anos + 1
End If

Fim:
If Anos > 1 Then
Anos = Anos & " anos "
Else
Anos = Anos & " ano "
End If

If meses > 1 Then
meses = meses & " meses "
Else
meses = meses & " mês "
End If

If dias > 1 Then
dias = dias & " dias"
Else
dias = dias & " dia"
End If

CalculaPeriodo = Anos & meses & dias


End Function

Se alguem puder me dar um força na montagem, agradeço.

um abraço.

Se puder post parte do bd para que possamos visualizar melhor o que pretende..

Cumprimentos

Oi Harysohn. obrigado pelo post.

Não consegui anexar o arquivo, então segue link para o mesmo.

http://dl.dropbox.com/u/40966186/bd3.mdb

lembrando os calculos que precisam ser feitos:
diferença: DtRegistro X DtAcolhim
diferença: DtAcolhim X DtEfetiva
diferença: DtEfetiva X DtSaida
diferença: DtAcolhim X DtSaida


um abraço e obrigado.

Poderia explicar mais sobre isto:

diante das seguintes possibilidades:
1. DtRegistro(ok)/DtAcolhim(ok)/DtEfetiva(ok)/DtSaida(ok)/Hoje(ok) = Saiu depois de efetivado
2. DtRegistro(ok)/DtAcolhim(ok)/DtEfetiva(ok)/DtSaida("")/Hoje(ok) = Em Atendimento
3. DtRegistro(ok)/DtAcolhim(ok)/DtEfetiva("")/DtSaida(ok)/Hoje(ok) = Saiu sem efetivação
4. DtRegistro(ok)/DtAcolhim(ok)/DtEfetiva("")/DtSaida("")/Hoje(ok) = Aguardando efetivação
5. DtRegistro(ok)/DtAcolhim("")/DtEfetiva("")/DtSaida(ok)/Hoje(ok) = Nem chegou a ser entrevistado
6. DtRegistro(ok)/DtAcolhim("")/DtEfetiva("")/DtSaida("")/Hoje(ok) = Aguardando entrevista

Fiz para a primeira situação..
Abra a consulta e observe..

http://dl.dropbox.com/u/26441349/bd3.accdb

Qualquer coisa apite..

Cumprimentos

Olá Harysohn.
obrigado pelo retorno, mas quem me dera fosse simples assim.

SELECT Caso.CasoId, Caso.CodigoPre, Caso.CodEfetiva, Caso.DtRegistro, Caso.DtAcolhim, Caso.DtEfetiva, Caso.DtSaida, Date() AS DTAtual, CalculaPeriodo([DtRegistro],[DtAcolhim]) AS Dif_DtReg_DtaAcolhi
FROM Caso;

como voce deve ter visto na tabela, existem várias situações em que os campos DtAcolhim e/ou DtSaida são nulos.
então eu tenho que prever o seguinte:
1. DtRegistro(ok) DtAcolhim(ok) tudo redondo campo calculado com essas duas datas.
2. DtRegistro(ok) DtAcolhim("") DtSaida(ok) Uso DtSaida para o calculo, pois saiu sem passar pela fase anterior.
3. DtRegistro(ok) DtAcolhim("") DtSaida("") DTAtual(ok) Uso DTAtual, pois nunca vai ser NULO e vai ser crescente pois significa que aguarda a ocorrência de DtAcolhim ou DtSaida.

Espero ter esclarecido e continuo tentando por aqui a solução e aguardando auxilio.

Em Tempo, acho que ficaria melhor explicado assim:
SELECT Caso.CasoId, Caso.CodigoPre, Caso.CodEfetiva, Caso.DtRegistro, Caso.DtAcolhim, Caso.DtEfetiva, Caso.DtSaida, Date() AS DTAtual, CalculaPeriodo([DtRegistro],[DtAcolhim]) ---"mas se DtAcolhim for NULO e DtSaida não for, Calcule por ela e se DtAcolhim for NULO e DtSaida TAMBÉM, Calcule por DTAtual"--- AS Dif_DtReg_DtaAcolhi
FROM Caso;



obrigado

Olá Amigos

Este desafio do Alcides me fez lembrar dos bons tempos em que eu amava a eletrônica, aonde tinhamos qua analisar tabelas binárias dos processadores.

Veja se é isso então, meu amigo Alcides.

Baixe aqui o arquivo

Bom estudo

Olá Avelino.
Dando uma olhada rápida antes de sair para o trabalho(trânsito), parece que ficou ótimo.
só notei que ficou de fora a data atual, pois quando outras forem NULO vai ser ela usada para identificar que ainda está em andamento e contar o tempo decorrido até a presente data.

mas no trabalho vou dar uma olhada com calma.

muito obrigado.

uma pergunta: qual a relação entre o meu problema, eletrônica e os códigos binários. porque te fez lembrar ?

Isso , de uma olhadinha com calma e me mostre na prática os resultados que deveriam sair:

Não vejo a necessidade da data atual na consulta

No aguardo

Olá Avelino.
Realmente só tenho a agradecer, achei Fantástica a solução.
Em relação a data atual, ela é muito importante na medida em que é exatamente por ela que a coordenação vai se basear para cobrar das equipes os encaminhamentos.
"porque o caso "A" está à X tempo e ainda não foi entrevistado?. porque em X tempo ainda não foi efetivado?. porque está a tanto tempo?." e por aí vai.
Então "Talvez" a data atual seja a mais importante.

Posso e vou tentar entender o seu código para fazer a adequação, mas sinceramente e humildemente duvido ter sucesso.

É entendi. não fosse os numerais 2,3,4,5; seria puro binário na composição.

aguardo. obrigado.

Olá

Analise estas modificações se atende e depois discutiremos cada uma das situações, ou seja, qual das situações ainda não atende,

Baixe aqui o exemplo 2

Bom estudo

Ei grande.
Eu estava estava já colocando a alteração que fiz para suas considerações.
parece-me que voce fechou a questão. vou olhar com mais calma, muita calma; pois ví alteração no resultado, mas não vi alteração na estrutura (magica não é) então vou dar uma olhada com muita calma.

então. humildemente e um pouco de vergonha coloco o exemplo com as alterações que fiz:
http://dl.dropbox.com/u/40966186/AlcidesPeriodo.accdb

quero ainda depois comentar mais a solução.

um abraço. muito, muito, muito obrigado mesmo.

Ops.

Detectei um pequeno problema.
veja os Id.do Caso 57 ao 63.
tem preenchido DtRegistro, DtSaida e DataAtual
o calculo está sendo feito entre DtRegistro e DataAtual quando devería ser entre DtRegistro e DtSaida.
até porque se não considerar a DtSaida o periodo vai ficar crescendo indefinidamente.

estou matutando para decifrar o se código e achar uma saída.
aguardo mais essa ajuda.

Perfeito, irei corrigir.

Sem querer abusar, já abusando.
seria interessante se voce pudesse comentar um pouco mais o código.
é que estou tentando entender onde as coisas se encaixam e se desenvolvem, mas confesso que estou achando um pouco complicado.
As vezes acho que o numeral se refere aos campos, as vezes as condições do campo (on/off) e as vezes aos dois.

talvez uma comentada no código venha esclarecer, não gostaria de ter só o negócio funcionando.

abraços.

Segue as modificações. Tentei simplicar ao máximo

Baixe aqui o exemplo

Bom estudo!

Avelino.

Ficou muito bom. Ainda vou estudar para entender de fato o funcionamento.

fico por aqui com meu agradecimento por sua paciência e competência.

um abraço.