[VBA] Calculer la différence entre deux dates

bonjour

j'ai un peu de mal a coder sur visual basic et la syntaxe m'est un peu inconnu
voila mon problème. je souhaite créer une fonction qui fasse la difference une date présent dans un formulaire et la date d'aujourd'hui!!!!
c'est surement un jeu d'enfant pour vous!!!!!!
comment ecrire cela sous visual basic


ps: je travaille en access 97

ben... disons que la fonction existe déjà dans Access, sans avoir à la coder.

DateDiff !
(ou DiffDate en suivant que tu es en français ou en US)

oui et je la place ou?
excuse moi mais ce matin, "j'ai rien dans le sac"

:cry: :cry:

merci

Dans la source de ton controle par exemple :roll:

Citation:

---

Envoyé par T'chab

oui et je la place ou?

---

:marteau: ben ... là où t'en as besoin !
Comment veux-tu que je te réponde à une question pareille ?
Tu ne dis pas ce que tu veux faire, pourquoi, comment, etc..
:marteau:

ok
je dispose d'un formulaire qui represente des fiches véhicules
pour chaque véhicule, il y a une date de controle technique

a l'ouverture de l'application, un msg box doit apparaitre pour prevenir l'utilisateur de la date de controle qui arrive à echance.
en fait il faut que je passe par une condition "si"

si diff_date_écheance<=7 then
msgbox:"attantion: le véhicule "0000 gg 75 doit passer au controle avant le "00/00/2006"
fin si

bouèf !

Si jamais tu as plusieurs véhicules simultanément en retard ?
Tu fais autant de msgbox ?
Franchement ...


Tu devrais plutôt faire une requête qui liste ces véhicules (avec un critère tout simple, c'est facile)
Faire un état basé sur cette requête
Dans ton formulaire d'accueil, une simple fonction CompteDom qui te dis combien de rappels il y a, et un petit bouton à côté pour ouvrir l'état.

C'est plsu simple non ?

ok j'ai essayé ta tchnique voici mon code en sql

Code:

---

1 2 3 4 5 6 7 8 9

SELECT [CATALOGUE VEHICULE].Id_véhicule, [CATALOGUE VEHICULE].Immatriculation, [CATALOGUE VEHICULE].Parc, [CATALOGUE VEHICULE].[Contrôle technique (mines)], Date() AS [Date du jour], [Contrôle technique (mines)]-[date du jour] AS [Jours restants] FROM [CATALOGUE VEHICULE] WHERE (( [Jours restants]<8));

---

pour le calcul du nombre de jour restant pas de souci, mais il ne prend pas en compte mon critère!!!!!!!
PQ?
:arf:

et comme ça ?

Code:

---

1 2 3 4 5 6 7

SELECT [CATALOGUE VEHICULE].Id_véhicule, [CATALOGUE VEHICULE].Immatriculation, [CATALOGUE VEHICULE].Parc, [CATALOGUE VEHICULE].[Contrôle technique (mines)], Date() AS [Date du jour], [Contrôle technique (mines)]-Date() AS [Jours restants] FROM [CATALOGUE VEHICULE] WHERE ([Contrôle technique (mines)]-Date())<8;

---

Tu t'es pas servi de l'éditeur (la grille) pour faire cette requête, n'est-ce pas ?

oui c'est à peu près ca mais t'inkiete pas, je vais m'y faire à cette logique SQL,
donc la requete marche bien à présent, j'ai donc créer une zone de texte dans mon formulaire.
en fait, il faut que je fasse executer la requete dans ma fonction, pour qu'elle soit à jour!!! et oui!!
donc j'aurai un peu de code à faire logiquement

Code:

---

1 2 3 4 5

function date_echeance excecute requete "controle vehicule" countdom end function

---

es tu d'accord avec moi?

Pour le comptedom, tu n'as pas besoin d'éxecuter la requête. N'oublie pas que la majorité des infos se trouvent dans l'aide :f1:

Merci a a tous

j'ai trouvé la fonction...
je la place dans la source controle de ma zone texte
voici ma syntaxe:

Code:

---

1 2 3

=CpteDom("*";[id_véhicule];[CONTROLE TECHNIQUES])

---

hors je repasse en mode formulaire, ma zone de texte m'affiche #nom?

quelle est l'erreur?

Les trois paramètres sont de type texte.

A priori je dirai que Controle Technique est la requete.

ça sera donc

Citation:

---

=CpteDom("*";"[CONTROLE TECHNIQUES]")

---

Merci aux boss d'access!!!!

ca fontionne très bien