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