[Resolvido]Intervalo de semanas e dias

Já pesquisei exaustivamente nos foruns de access e não consegui nenhuma funcão ou expressão DateDiff para calcular o intervalo entre datas que me retorne em semanas e dias.ex (20 semanas e 3 dias).
Sei que esse tema já foi bastente abordado,mas não consigo resolver,alguem pode me ajudar ?
Obrigado !!!

Olá amigo Carlos

Isso é bem fácil! veja, 20 semanas e 3 dias totalizam 143 dias

faz o calculo em dias, usando datediff()

TotalDias = datediff(x,y)
Semana(s) = int(totalDias/7)
Dia(s) = TotalDias MOD 7

Sucesso!

Avelino, obrigado pelo pronto atendimento,como sempre !!!

AInda não está dando certo ,pode avaliar o que pode estar errado ,conforme abaixo:

Private Function calculaPeriodo(data1 as Date, data2 as date)

Dim Semanas,Dias
Dim iSemanas as Double, idias as Double,intervalo as double

intervalo = data2 - data1

semana = int(totaldias/7)
dia = totaldiasmod7

=datediff(data1,data2)

calculaPeriodo = Semanas & Dias
end function


Obrigado

Segue modifições

Código:

Public Function CalculaPeriodo(data1 As Date, data2 As Date) As String
Dim Semanas, Dias, TotaDias
If data1 >= data2 Then
    MsgBox "Data inicial não pode ser maior ou igual que data final"
    Exit Function
End If
totaldias = DateDiff("d", data1, data2)
Semanas = Int(totaldias / 7)
Dias = totaldias Mod 7
If Semanas = 0 Then
    CalculaPeriodo = Dias & IIf(Dias > 1, " dias", " dia")
ElseIf Dias = 0 Then
    CalculaPeriodo = Semanas & IIf(Semanas > 1, " semanas", " semana")
Else
    CalculaPeriodo = Semanas & IIf(Semanas > 1, " semanas ", " semana ") & Dias & IIf(Dias > 1, " dias", " dia")
End If
End Function

Grande Avelino !!!


Deu certo ,e ainda aprendi a classificar os plurais de semana e dias ,

excelente !!!

Valeu

CarlosSp,
Quando o assunto estiver resolvido, deve marcar no botão próprio.
Este faço-o eu.

Desculpe ,não mais se repetirá

Obrigado!!!