[Resolvido]Intervalo entre datas

Senhores;


Como fazer com que a função DataDif, retorne dias, meses e anos em consultas separadas.

Para melhor entendimento:

DtInicial: 15/02/2015
DtFinal : 29/03/2016

Assim temos: 1 ano, 1 mês e 14 dias

sendo que pretendo um campo para o ano, outro para o mês e outro para os dias.

Veja a Mensagem Nº 05 veja o exemplo que postei la...
https://www.maximoaccess.com/t25469-resolvidocalcular-idade-com-data-final-distinta-do-sistema


No seu Caso tera que Juntar as datas, ja que tem separadas... Faça assim:
No evento apos atualizar da data final, faça assim:
Me.txtIdade.Value = AnoMesDia(Me.txtdia & "/" & Me.txtmes & "/" & Me.txtano, Me.txtDataFinal) aqui eu juntei apenas o dia/mes/ano, que juntos faram o papel da data INICIAL. Faça o Mesmo para a Data Final caso ela também seja separada.

Agora se você quer informar apenas uma Data (a Inicial) e que seja feito o Calculo pela Data atual, substitua o Conteúdo do Modulo por este:

Código:


Option Compare Database

Public Function AnoMesDia(dtData1 As Date) As String
On Error GoTo AnoMesDia_Err

  Dim sTmp As String
  Dim nDMA As Long
  Dim NewDate As Date
  Dim sSngPlural As String
  Dim dtData2 As Date
  
'Aqui ele assume a Data atual como sendo a Segunda Data.
  dtData2 = Now
  
  ' Bloco Ano ---------------------
  ' Calcula número inteiro de anos
  nDMA = DateDiff("yyyy", dtData1, dtData2)
  ' Se Data1+nDMA>Data2, subtrai 1 ano
  If DateAdd("yyyy", nDMA, dtData1) > dtData2 Then
    nDMA = nDMA - 1
  End If
  sSngPlural = " ano, "
  If nDMA > 1 Then sSngPlural = " anos, "
  sTmp = nDMA & sSngPlural
  
  ' Bloco Mês ---------------------
  ' Nova data de referência
  NewDate = DateAdd("yyyy", nDMA, dtData1)
  nDMA = DateDiff("m", NewDate, dtData2)
  ' Se Data1+nDMA>Data2, subtrai 1 mês
  If DateAdd("m", nDMA, NewDate) > dtData2 Then
    nDMA = nDMA - 1
  End If
  sSngPlural = " mês e "
  If nDMA > 1 Then sSngPlural = " meses e "
  sTmp = sTmp & nDMA & sSngPlural
  
  ' Bloco Dia ---------------------
  NewDate = DateAdd("m", nDMA, NewDate)
  nDMA = DateDiff("d", NewDate, dtData2)
  sSngPlural = " dia"
  If nDMA > 1 Then sSngPlural = " dias"
  sTmp = sTmp & nDMA & sSngPlural
  
  ' Valor final da função
  AnoMesDia = sTmp
  
AnoMesDia_Fim:
  Exit Function
AnoMesDia_Err:
  MsgBox Err.Description
  Resume AnoMesDia_Fim
End Function


Fabio, fico muito agradecido. Mas, acho que não me fiz entender corretamente.

Na verdade eu gostaria de ter essa mesma resposta em campos separados, ou seja um campo em que retorne apenas os anos (25), em outro campo apenas os meses (10) e noutro campo os dias (17).

Muito agradecido.

Meu amigo, infelizmente não tenho muito conhecimento em VBA a ponto de alterar esse Modulo... Vamos aguardar e ver se Alguem tem algo do tipo!

Porém Da pra desmembrar os dados com uma Função muito boa criada pelo JPaulo... Veja se dessa forma da pro seu Uso!

Perfeito. Resolve tudo.

Grato.

Bacana, ate a próxima!