Convertir jours en semaines
julienNY57
-
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
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,
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,
A voir également:
- Convertir jours en semaines
- Compte facebook suspendu 180 jours - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Compte instagram suspendu 180 jours - Guide
- Convertir epub en kindle - Guide
- Nombre de jours entre deux dates excel - Guide
