PRÉSENTATION :
Fonction DayOfTheYear pour Delphi1 à 5
ZIP :
-Pas de zip-
APERÇUS :
NOTES :
C'est pour ceux qui n'ont pas Delphi6-7. Car à partir de cette version cette fonction, comme beaucoup d'autres, est contenue dans l'unité DateUtils.
CODE :
Function DayOfTheYear(LaDate:TDateTime):Integer; // Tableau pré-calculé contenant la somme des jours des mois précédents Const Mois:Array[1..12]Of Integer=(0,31,59,90,120,151,181,212,243,273,304,334); Var y,m,d:Word; Begin
DecodeDate(LaDate,y,m,d);
Result:=Mois[m]+d; // Il ne faut pas oublier de tenir compte des années bisextiles ! If ((y And 3)=0) And (m>=3) Then Inc(Result); End;
