IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Nono40.developpez.com
Le petit coin du web de Nono40
SOURCES TESTS DELPHI WIN32 AUTOMATISMES DELPHI .NET QUICK-REPORT
Retour à l'accueil
48 - FONCTION DAYOFTHEYEAR POUR DELPHI1 À 5

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)=0And (m>=3Then Inc(Result);
End;

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2003 Bruno Guérangé. Aucune reproduction, même partielle, ne peut être faite de ce site ni de l'ensemble de son contenu : textes, documents, images, etc. sans l'autorisation expresse de l'auteur. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.