Discussion :

[unformatdj]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Pol63]

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

[unformatdj]

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

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

[methylene]

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

[unformatdj]

Ca marche
Probleme resolu
merci