Program for Week number

Hello!

Does anybody have a program that gives the week number. There are a
number of Time/Date functions and procedures in Pascal and Delphi, but
no function for the week number.

If you have such a program, please e-mail me!