-
2 pièce(s) jointe(s)
Calculer avec les Dates
Saut les amis ,
je suis bloquer.
Voici mon petit soucis. Je veux faire des Calculs avec une date. Par exemple Date du jour = 12/04/2018 + 12 (12 jours de plus) = 24/04/2018.
Voici mon code VBA
Private Sub nbjrs_AfterUpdate()
Me.echeance = Format(Me.datereg, "mm/dd/yyyy") + Me.nbjrs
End Sub
quand je veux exécuter voici l'erreur :
Pièce jointe 409070Pièce jointe 409071
j'ai même utilisé cdbl(me.ndjrs) pour convertir mais sa ne passe pas.
-
Bonsoir,
DateSerial ( année, mois, jour )
Me.echeance = dateserial(year(Me.datereg),moth(Me.datereg),day(Me.datereg)+ Me.nbjrs)
-
bonsoir,
il y a aussi DateAdd(Interval, Nombre, Date)
Me.echeance = dateadd("d", Me.nbjrs, Me.datereg)
-
