, hvor mange dage siden årets begyndelse, fungerer dayofyear (adate: tdatetime): heltal, var, firstdate: tdatetime;,, åååå, mm, dd: ord;,, begynder, decodedate (adate, åååå, mm, dd);,, firstdate: = encodedate (åååå, 1, 1), resultat: = trunc (adate - firstdate) + 1,,,,,,,,