Discussion :

[hugo69]

Bonjour tout nouveau venu, je suis pas encore convaincu de migrer sur WinDev.

Existe t il une fonction du style dateAdd()?

Le but etant d'ajouter un nombre de jours, mois, années et autres à une date.

merci

[Jannus]

Évidemment

Si vous êtes en phase de réflexion concernant WinDev, lisez ceci

[hugo69]

le forum ne marchait pas hier.

Mais c'est bien ce que je pense, il n'y a pas d'ajout sur date, on est à chaque fois obligé de passer la date en string, ajouter puis reconvertir en date?

dans ce cas, il serait utile de se faire sa propre fonction, mais ca m'étonne que windev, ne gere pas une fonction si courante??

[Louis Griffont]

De quelle version de Windev parles-tu ?

[hugo69]

la 10.

je sais pas, si il existe une fonction de calcul sur les dates, comme dateAdd sur access, quelle est elle?

j'ai vu que la solution etait de faire:

Code :

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

1
2
3
4
5
DateDepart, DateFin est date
 
DateDepart = 20030101
 
DateFin = Datedepart..mois+24

apres je peux ecrire une classe ou l'on passe la date initiale, le chiffre à ajouter et le type (Jours, mois annee), mais je suis surpris de voir qu'il n'existe pas cette fonction

[Jannus]

Voici le code de calcul de totalisation et moyenne de l'exemple WD Calculs sur dates et heures [WD9]

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
// 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"

Capture d'écran en annexe

[hugo69]

merci pour le code.

CE que je veux dire par il n'y a pas de fonction predefini serait une fonction du style:

dateAdd(22/03/2007,2,j)

qui retournerait 24/03/2007

ou 22/03/2007 = date initiale
ou 2 = nombre à rajouter
ou j = jours

si on met m par exemple, ca ajouterait 2 mois.

pour avoir une fonction comme ca il faudrait creer sa propre classe.
Pourtant c'est tellement commun...

c'est ca que je comprends pas, il ont bien mis un dateDifference..

[Louis Griffont]

Ecrire

NewDate = addDate( MaDate, 2, m)

ou

NewDate = Madate..mois + 2

Je vois pas ce que ça change.

Je dirais même que

MaDate = AddDate( MaDate, 15, j)
MaDate = AddDate( MaDate, 1, m)

C'est plus long que

MaDate..jour += 15
MaDate..mois += 1

[mogwai162]

Bonjour

Il y a ceci :

Madate est une date = "20070101"
MaDate..Mois = 3
MaDate..Année = 2008
MaDate..Jour = 1

Par contre, il faut tester les bornes si tu fais "MaDate..Jour = 1 - 3" il ne va pas passer au mois précédent (a ma connaissance)

tu peux aussi faire comme ceci

MaDate est une date
MaDate = entierversdate(dateversentier(MaDate) -1) et là ça va marcher...