Discussion :

[zaltalux]

bonjour

Je suis sur Informix 4gl. je veux trouver le N° du jour dans l'année.

Par Exemple :

pour la date 01/01/2008 > 1
31/01/2008 > 31
01/02/2008 > 32

Est ce qui il n'y a pas une fonction prédéfinie dans Informix.

Merci

[zaltalux]

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
26
27
28
 
FUNCTION NumJourDate(LaDate)
DEFINE LaDate Date
DEFINE NumJour INTEGER
DEFINE mois SMALLINT
DEFINE annee INTEGER
LET  = DAY(LaDate)
LET mois = MONTH(LaDate)
LET annee = YEAR(LaDate) 
LET mois = mois - 1
WHILE mois <> 0
	CASE 
	WHEN  mois = 1 OR mois = 3 OR mois = 5 OR mois = 7 
	      OR mois = 8 OR mois = 10 OR mois = 12 
		LET NumJour = NumJour + 31
	WHEN  mois = 4 OR mois = 6 OR mois = 9 OR mois = 11 
		LET NumJour = NumJour + 30    
	WHEN  mois = 2
		IF ((annee MOD 4 = 0) AND (annee MOD 100 <> 0)) OR (annee MOD 400 = 0 ) THEN
			LET NumJour = NumJour + 29
		ELSE
			LET NumJour = NumJour + 28			    
		END IF
	END CASE	
	LET mois = mois - 1 
END WHILE
return NumJour
END FUNCTION

Est ce qui il y a d'autres solutions plus simples
Merci

[crocus]

bonjour,
en recuperant la date du jour que tu veux en integer, puis la date au 1er janvier de l'année en cours en integer et en faisant la difference tu dois avoir le numero du jour dans l'année.
Je n'ai pas informix sous la main, alors je te laisse coder

[zaltalux]

Bonjour

Merci crocus
Voici donc la Solution.

Code :

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

1
2
3
4
5
6
7
8
9
 
FUNCTION NumJourDate(LaDate)
DEFINE LaDate Date
DEFINE NumJour INTEGER
DEFINE j	CHAR(10)
LET j = "01/01/",YEAR(DateExtract) USING "&&&&"
LET NumJour = LaDate - DATE(j) + 1
RETURN NumJour
END FUNCTION