Les jours de l'année


Combien de jours depuis le début de l'année
fonction de DayOfYear(ADate: TDateTime): Integer
var
& nbsp & nbsp FirstDate: TDateTime
& nbsp & nbsp AAAA, MM, JJ: Mot
begin
& nbsp & nbsp DecodeDate(ADate, AAAA, MM, JJ)
& nbsp & nbsp FirstDate := EncodeDate(AAAA, 1, 1)
& nbsp & nbsp Résultat := Trunc(ADate - FirstDate) 1
fin









Les jours de l'annee


Les jours de l'annee : Plusieurs milliers de conseils pour vous faciliter la vie.


Combien de jours depuis le debut de l'annee
fonction de DayOfYear(ADate: TDateTime): Integer
var
& nbsp & nbsp FirstDate: TDateTime
& nbsp & nbsp AAAA, MM, JJ: Mot
begin
& nbsp & nbsp DecodeDate(ADate, AAAA, MM, JJ)
& nbsp & nbsp FirstDate := EncodeDate(AAAA, 1, 1)
& nbsp & nbsp Resultat := Trunc(ADate - FirstDate) 1
fin


Les jours de l'année

Les jours de l'année : Plusieurs milliers de conseils pour vous faciliter la vie.
Recommander aux amis
  • gplus
  • pinterest

Messages récents

Commentaire

Laisser un commentaire

évaluation