calcul d'un delai

Bonjour tout le monde,

Question 1) je voudrais calculer le delai entre une date debut et une date de fin et qu'il m'affiche le resultat en nombre de jour.

voici mon bout de code

Code:

---

1 2 3 4 5 6 7

Dim i As Date Dim j As DateTime i = CDate(Me.TextBox1.Text) j = CDate(Me.TextBox2.Text)   If IsDate(i) = True Then Form8.TextBox1.Text = Year(System.DateTime.Now()) - Year(i)

---

Mais le probleme, il me donne pas le resultat ( délai ) exacte , il m'affiche la valeur " 0 "

J'aimerai savoir ou réside l'erreur ? Merci.

Question 2) je programe un projet qui gere les personnel , donc et je voudrai grisé un employé si il es deja affecté à un travail à une date precedente que celle saisi par l'utilisateur ( pour eviter le problem de redondance)

Merci d'avance.

nbjours = datediff(days, datedeb, datefin)



pour griser un controle, il faut faire .enabled = false
pour griser un employé je pense qu'il faut l'attraper et le couvrir de peinture grise

merci comme meme
mais mon calcul de delai ne marche toujours pas;

svp, qui pourrai me corrigé ce bout de code !
merci

Bonjour,

Peut-être parce que tu ne soustrais que les années, et que tes deux dates sont de la même années, donc le résultat est égal à 0.

Qui plus est, pourquoi vouloir faire compliqué quand il existe une fonction simple comme te l'a écrit Pol63 (qui ne dit pas que des conneries, comme quoi ...).

PS : Pol63 simple boutade :D

Ca marche
Probleme resolu :ccool:
merci