Convertir jours en semaines

Bonjour,

Je souhaiterais passer du nombre de jours total a un affichage en semaines+jours
Pour cela,
Dans une form j'ai trois textbox :

le nombre de jours initial: text90
exemple 63

le nombre de semaines : txtweeks
exemple 3

le nombre de jours restant: txtdays
Exemple 4


Voici mon code, je precise que je suis en continousform, sous Acess2007

Private Form_Current()

Weeks = 0
Days = 0

If [Text90] > 7 Then
Weeks = Mid((([Text90]) / 7), 1, InStr(1, (([Text90].Value) / 7), "."))
Adays = Weeks - Int(Weeks)
Days = Int(Adays * 7) + 1
Else
If [Text90] = 7 Then
Weeks = 1
Else
If [Text90] < 7 And IsNull([Text90]) = False Then
Days = [Text90]
End If
End If
End If

txtweeks = Weeks
txtdays = Days

End Sub




Cependant, lorsque j'execute le code, il me met error typedismatch au niveau de
Adays = Weeks - Int(Weeks)

Merci de votre aide,