calcular el numero de semana

[remialdo]

Estoy buscando una funcion que me diga el numero de la semana a partir de una determinada fecha, pero todas las que encuentro tienen el fallo de que ponen como primera semana del año la del 1 de enero, pero sin embargo el Monthcalendar de delphi ,por ejemplo, pone como primera semana del año (para el 2005) por ejemplo la semana del 3, alguien puede ayudarme?
gracias