Discussion :

[nrdz83]

Bonsoir à tous,

J'ai une table avec des colonnes dont col_dervisit(date de la dernière visite médicale), col_echeance (colonne qui indique la durée en mois de l'échéance)

une colonne dont je voudrais faire apparaitre l'addition de la date dde la dernière visite + le noimbre de mois d'échéance.

Avec le code ci dessous ça m'ajoute des jours et non des mois

Code :

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

1
2
3
4
5
6
7
dUneDate est une Date = COL_DerVisiteMedic
nNbMois est un entier = COL_Echeance
//dUneDate..mois +=nNbMois//erreur à ce niveau
 
SI DateValide(  COL_DerVisiteMedic) ALORS
	COL_Provisite=EntierVersDate(DateVersEntier(COL_DerVisiteMedic) + nNbMois)
FIN

et si je met ce code en plus

Code :

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

dUneDate..mois +=nNbMois

j'ai une erreur à ce niveau.

Comment dois je modifier ce code ?

Par avance merci pour vos lumières

amitiés

[themayu]

Bonjour,

A priori je dirais que vous avez un problème de conversion de type lorsque vous récupérez la date dans votre colonne "col_dervisit".

Les dates sont au format AAAAMMJJ, il semblerait que mois et jours soit inversé dans votre cas, d'où le défaut lors du calcul.
Si votre colonne est de type chaîne, vous pouvez utiliser ChaîneVersDate pour récupérer le bon format.

L'exemple ci-dessous ne pose aucun problèmes :

Code :

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

1
2
3
dUneDate est une Date = DateSys()
nNbMois est un entier = 6
dUneDate..Mois +=nNbMois

Pour la partie :

Code :

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

1
2
3
SI DateValide(  COL_DerVisiteMedic) ALORS
	COL_Provisite=EntierVersDate(DateVersEntier(COL_DerVisiteMedic) + nNbMois)
FIN

DateVersEntier renvoie un nombre de jours (écoulés entre le 1er janvier 1800) et vous y ajoutez un nombre de mois.

[nrdz83]

Bonsoir themayu
ton analyse était la bonne effectivement l'erreur provient du format de la colonne dervisite.

Maintenant je sais ou se situe l'erreur par contre je n'arrive pas à la corriger.

Le code ci-dessous si je met

Code :

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

dUneDate est une Date = DateSys()

ça fonctionne

par contre avec ce code ça continue de planter et je n'arrive pas à corriger mon problème.

Code :

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

1
2
3
4
5
6
dUneDate est une Date = ChaîneVersDate(COL_DerVisiteMedic,"JJ/MM/AAAA")
 
nNbMois est un entier = COL_Echeance
dUneDate..Mois +=nNbMois
 
COL_Provisite = dUneDate+nNbMois

Par avance merci à tous pour vos lumières

[themayu]

Pouvez-vous nous décrire plus l'erreur/défaut constaté.

Est-ce normal que le nombre de mois soit ajouter directement à la variable date à la ligne 6 de votre exemple ? Les opérations des lignes 3 et 4 devraient suffire en théorie.

[Hemgé]

...
par contre avec ce code ça continue de planter et je n'arrive pas à corriger mon problème.

Code :

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

1
2
3
4
5
6
dUneDate est une Date = ChaîneVersDate(COL_DerVisiteMedic,"JJ/MM/AAAA")
 
nNbMois est un entier = COL_Echeance
dUneDate..Mois +=nNbMois
 
COL_Provisite = dUneDate+nNbMois

Par avance merci à tous pour vos lumières

Bonjour,

Comme le fait observer themayu, le job est fait par les lignes 3 et 4.

Il suffit de terminer le processus en respectant la logique adoptée : on est passé d'un format texte à un format date, il faut repasser au format texte avant d'affecter le résultat à la colonne.

Code :

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

 6 COL_Provisite = ChaineVersDate(dUneDate) <s>+nNbMois</s>