, hoeveel dagen in een jaar, sinds de functie, dayofyear (datum: TDateTime): gehele getal;,,, var, de eerste date: TDateTime;,, JJJJ, mm, dd: woorden, decodedate;,,, (datum, JJJJ, mm, dd);,, de eerste date: = encodedate (yyyy, 1, 1);,, resultaten: = trunc (datum - de eerste date) + 1; aan het einde van,,,,,,,