Comment calculer automatiquement
JacquesLarochelle
Messages postés
2
Statut
Membre
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour,
Je veux faire une base de données (Champs: Nom, Prénom, Date d'entrée, Date de sortie). La date de sortie doit être 6 semaines plus tard. J'ai testé la fonction DateAdd(), mais le "calcul" ne se fait pas automatiquement. Je ne veux pas le calculé moi-même. Est-ce possible de le faire dans un formulaire? Si oui, comment je peux m'y prendre. SVP ne soyez pas avare d'exemples ou de détails... merci je suis un sous-novice.
Merci infiniment de votre aide,
Jacques Larochelle
Je veux faire une base de données (Champs: Nom, Prénom, Date d'entrée, Date de sortie). La date de sortie doit être 6 semaines plus tard. J'ai testé la fonction DateAdd(), mais le "calcul" ne se fait pas automatiquement. Je ne veux pas le calculé moi-même. Est-ce possible de le faire dans un formulaire? Si oui, comment je peux m'y prendre. SVP ne soyez pas avare d'exemples ou de détails... merci je suis un sous-novice.
Merci infiniment de votre aide,
Jacques Larochelle
A voir également:
- Comment calculer automatiquement
- Comment calculer la moyenne sur excel - Guide
- Automatiquement - Guide
- Barbara veut calculer automatiquement son budget dans un tableau ✓ - Forum finances
- Comment calculer une note sur 20 ✓ - Forum Bureautique
- Sauvegarder conversation snap automatiquement ✓ - Forum iPhone
2 réponses
Bonjour,
J'ignore avec quel logiciel ?
Valable pour VBA (Office) et Visual Basic
Ou en fonction...
A+
J'ignore avec quel logiciel ?
Valable pour VBA (Office) et Visual Basic
Sub AjouterJours()
'Ajoute 42 jour à la date du jour.
Dim D As Date, L As Long, J As Byte
J = 42 '6 semaines
L = DateSerial(Year(Date), Month(Date), Day(Date) + J)
D = L
End Sub
Ou en fonction...
Function AjouterJours() as Date
'Ajoute 42 jour à la date du jour.
Dim J As Byte
J = 42 '6 semaines
AjouterJours = DateSerial(Year(Date), Month(Date), Day(Date) + J)
End Function
A+
Comment faire passer le résultat du calcul à mon champ Date_Fin dans ma base de données?
Merci de votre aide.
Jacques Larochelle
Function AjouterJours(J as integer) as Date 'Ajoute 42 jour à la date du jour. AjouterJours = DateSerial(Year(Date), Month(Date), Day(Date) + J) End Functionet pour entrer la donnée
soit le nombre de jour en "dur"
Date_Fin = AjouterJours(45) 'pour 45 jours
ou si c'est une variable
Date_Fin = AjouterJours(MaVariable)
A+