Como llevo esto a delphi?

[paladincubano]

Que no hombre, se que devuelven enteros.
Toda la funcion se basa en Datepart y WeekOf. Si alguna de ellas devuelve un valor diferente a la otra pues toda lo demas en la funcion saldra mal.
Ya te digo, los valores casi son los mismos. ejm.

Datepart(ww,fecha), WeekOf(Fecha)
38, 38
12, 12
19, 19
34, 33
22, 22
41, 40
..
..
Ya te digo, es la minoria, pero si, hay valores que difieren, imagino que el problema esté en el calculo interno de cada funcion. Si se sigue el ISO correctamente no deberia haber problemas, ahora, si hay valores que difieren, pues alguien cometio un error en alguna de las funciones, entiendes? No voy a averiguar quien fue, si Microsoft o Codegear. Pero si se sigue un ISO a la hora de hacer una funcion, pues no TENDRIA que haber problemas. No creo que sea un problema de redondeo, porque como bien dices, ambas funciones devuelven enteros.
He probado con todas las variantes en la clausula SQL con SET DATEFIRST X (decirle que dia comiensa la semana) e igual, el problema persiste.
Ya vere que puedo hacer.
saludos.