Hvor mange dager siden starten av yearfunction DayOfYear (ADate: TDateTime): Integer; Var Firstdate: TDateTime; ÅÅÅÅ, MM, DD: Word, begynner DecodeDate (ADate, ÅÅÅÅ, MM, DD); Firstdate: = EncodeDate (ÅÅÅÅ, 1, 1); Resultat: = AVKORT (ADate - Firstdate) + 1; ende; Anmeldelser