Discussion :

[Harry]

Bonjour,

Je ne trouve aucune technique pour enlever ou ajouter des jours à une date ?

Il doit forcément y avoir une fonction simple sinon ce serait un manquement énorme de PC SOFT.

J'ai éssayé de prendre mon champ date et de faire par exemple :

Code :

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

1
2
dDatedepassement = DateSys
dDatedepassement..Jour = dDatedepassement - Personnalisation.ValiditeOption

ValiditeOption contiens un entier.

Il me fait une erreur à l'utilisation car on ne peux pas faire '-' sur un champ de texte (mais pas d'erreur à la compil !).

J'ai essayé aussi :

Code :

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

1
2
dDatedepassement = DateSys
dDatedepassement..Jour = dDatedepassement..Jour - Personnalisation.ValiditeOption

Ca marche si je reste dans le mois mais aujourd'hui -5 jours ca donne... erreur : -4 n'est pas un jour valide.

Je suis en panne d'idées pour le moment, et vous ?

[Jannus]

Il y a un calcul de ce genre dans l'exemple "WD Calculs sur dates et heures"

La fenêtre propose 6 champs couplés par 2 : Jours + HH:MM
On a donc 3 ensembles Jours + HH:MM
Le code calcule la somme & la moyenne des Nb jours + HH:MM
Ça marche aussi en soustraction.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
// Calculs du total et des moyennes
 
dDuréeTot,dDuréeMoy,dDurée1,dDurée2,dDurée3 sont des Durées
 
dDurée1..Minute	=	Val(HEUREMIN[[3 A 4]])
dDurée1..Heure	=	Val(HEUREMIN[[1 A 2]])
dDurée1..Jour	=	NBJOURS
 
dDurée2..Minute	=	Val(HEUREMI_1[[3 A 4]])
dDurée2..Heure	=	Val(HEUREMI_1[[1 A 2]])
dDurée2..Jour	=	NBJOURS_1
 
dDurée3..Minute	=	Val(HEUREMI_2[[3 A 4]])
dDurée3..Heure	=	Val(HEUREMI_2[[1 A 2]])
dDurée3..Jour	=	NBJOURS_2
 
dDuréeTot=dDurée1+dDurée2+dDurée3
 
// Durée Totale
TOTAL = dDuréeTot..Jour + " jours, " + dDuréeTot..Heure + " heures et " + dDuréeTot..Minute + " minutes"
 
// Durée Moyenne
dDuréeMoy = dDuréeTot / 3
MOYENNE = dDuréeMoy..Jour + " jours, " + dDuréeMoy..Heure + " heures et " + dDuréeMoy..Minute + " minutes"

[Grmmml]

Et un tout bête

Code :

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

1
2
 
dDatedepassement -= Personnalisation.ValiditeOption

ca devrait fonctionner.

Bob, de mémoire (v4).

[Grmmml]

Petit complément,

Pour les dates, il faut travailler avec les opérateurs :

Code :

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

1
2
3
4
5
 
   ++
   --
   +=
   -=

Bob.

[Harry]

Et un tout bête

Code :

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

1
2
 
dDatedepassement = dDatedepassement - Personnalisation.ValiditeOption

ca devrait fonctionner. Ou alors

Code :

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

1
2
 
dDatedepassement -= Personnalisation.ValiditeOption

Bob, de mémoire.

Justement c'est ce que j'ai essayé et ca marche pas (ou plus dans la 11).


Quand à Guardian j'ai deja vu ce tableau sur d'autres posts mais je ne vois pas vraiment le rapport, je veux juste ajouter et enlever des jours pas faire un calcul de moyennes basé sur des champs de saisie ou une main bienveillante à saisi tout ce qu'il faut pour générer une date en string.

La solution que ton code pourrait apporter ce serait de créer une date en chaine de caractère en mettant '0000 00 ' + 'Mon nombre de jours formaté en '00' puis de l'affecter a une date (date2) et faire Date1 - Date2.

Effectivement ça pourrais etre une solution... a condition de surtout pas dépasser 30 jours sinon ca va planter lamentablement. Bref une usine a Gaz sera nécessaire pour gérer le passage des mois et des années.
Et tout cela suppose qu'on peux encore faire Date1-Date2. Faudra que je teste mais c'est pas normal, il doit y avoir autre chose.

[Jannus]

Je viens de refaire un test :
Un champ de saisie au format DATE : retourne une date au format AAAAMMJJ
Un champ de saisie au format ENTIER
Ceci me retourne la date du champ saisie DATE - le nombre de jour du champ saisie ENTIER

Code :

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

Info(EntierVersDate(DateVersEntier(Sais_Date1)-Sais_Date2))

15/05/2006 - 483 jours = 17/01/2005

[Harry]

Haha, merci Guardian, je vais essayer de suite et je te dis.

Edit : Ca marche, merci !

Merci Bob pour les opérateurs

[Grmmml]

Si ça ne fonctionne plus, c'est une régression, faites remonter un Ticket su support technique :-)

Avant de poster (enfin pendant le post) j'ai testé en WD10 et ca fonctionne parfaitement (et heureusement vu que je suis en plein dedans avec les calcul de congés payés)

Bob.