Como llevo esto a delphi?

[paladincubano]

Muchas gracias por tu respuesta, pero no es lo que busco.
En realidad conozco bien lo que hace la funcion WeekOfTheMonth.
No se si me hago entender.
Tengo una tabla con clientes y un campo Fecha_nac.

Cuando hago el
Select DATEPART(week, fecha_nac) - DATEPART(week, DATEADD(month, DATEDIFF(month, 0, fecha_nac), 0))+1 as SemanaMes from Clientes

me devuelve esto por ejemplo
SemanaMes
-----------
1
1
4
3
2
5
1

y cuando a esas mismas fechas les paso la funcion en delphi, se asemejan mucho los numeros, ejemplo
WeekOfTheMonth(Fecha_nac)
1
1
3
3
2
5
2

Muchos coinciden, pero otros no, y como me hace falta para mi programa que sea lo mismo que le digo, porque en delphi tengo que obtener otras fechas que no estan en la base de datos. Pues eso tiene que darme los mismos valores.
Resumiendo, la consulta y la funcion no siempre devuelven los mismos valores, por eso es que quiero haceer mi propia funcion respecto a la funcion de la consulta.
pero como no se que devuelve el DatePart, el dateadd y el datediff, por eso no puedo hacerla. ya que la consulta no la hice yo, la encontre en la web.
Espero me haga entender.
saludos

[[duilioisola]]

WeekOfTheMonth no devuelve todo lo que hace el calculo que haces con el SQL.

Debes traducir el calculo SQL con otras funciones Delphi:
DATEPART() - WeekOfTheMonth o WeekOfYear
DATEADD() - TDateTime + numero de días
DETEDIFF() - Restar dos TDateTime

Código Delphi [-]
function MyWeekOfTheMonth(Date: TDate): Integer
begin
   AAA := DATEDIF(month, 0, fecha_nac);
{       - Que hace DATEDIF(month, 0, fecha_nac) - devuelve la cantidad de meses entre 0 y la fecha_nac?}
   BBB := DATEADD(month, AAA, 0);
{       - Qué hace DATEADD(month, diferencia, 0) - agrega 0 meses a fecha_nac?}
   result := WeekOf(Date) - WheekOf( BBB ) + 1;
end;

[[duilioisola]]

Mirándolo nuevamente, creo que esta es la solución:

Código Delphi [-]
function MyWeekOfTheMonth(Date: TDate): Integer
var
   Meses : integer;
   FechaInicial : TDateTime;
   FechaAuxiliar : TDateTime;
begin
   FechaInicial := StrToDate('01/01/1900');        {es el 0 en DATEDIF y DATEADD - Supongo que será una fecha inicial}
   Meses := MonthsBetween(FechaInicial , Date);    {DATEDIF(month, 0, fecha_nac)}
   FechaAuxiliar := IncMonth(FechaInicial ,Meses); {DATEADD(month, diferencia, 0)}
   result := WeekOf(Date) - WheekOf(FechaAuxiliar) + 1;
end;

[paladincubano]

Casi casi hombre.
Pero siguen datos que no son iguales.
El por que no lo se.
De echo, tengo dos listbox, en uno los de la consulta y en otro los de la funcion.
Se parecen mucho, pero varian algunos, incluso, extrañisimo, hay uno con valor -51
No se, falta algo en esa funcion que me has dado, quizas un simple detallito que estas obviando.
Porque te repito, los valores se asemejan muchisimos.
Los que mas varian son los que en uno me da la semana 5 en el otro me da la semana 1.
y viceversa. y luego esta ese otro que me da -51
Saludos,.

[[duilioisola]]

Ahora te toca a ti:
- Averigua cual es la diferencia entre DATEDIF y MonthsBetween
- Averigua cual es la diferencia entra DATEADD e IncMonth
- Averigua cual es la diferencia entre DATEPART y WeekOf

Yo creo que la clave está en la forma en que calcula la semana según una fecha (DATEPART y WeekOf)

Para eso puedes hacer un select de las fechas de un año y compararlas

Código SQL [-]
SELECT FECHA, DATEPART(WEEK,FECHA) FROM ...

y luego comparar FieldDATEPART con WeekOf(FieldFECHA)

[paladincubano]

Empezado por duilioisola

Ahora te toca a ti:
- Averigua cual es la diferencia entre DATEDIF y MonthsBetween
- Averigua cual es la diferencia entra DATEADD e IncMonth
- Averigua cual es la diferencia entre DATEPART y WeekOf

Yo creo que la clave está en la forma en que calcula la semana según una fecha (DATEPART y WeekOf)

Para eso puedes hacer un select de las fechas de un año y compararlas
Código SQL [-]SELECT FECHA, DATEPART(WEEK,FECHA) FROM ...

y luego comparar FieldDATEPART con WeekOf(FieldFECHA)

Tienes toda la razon. Lo primero que he echo es una comparacion con Datepar(ww,fecha) y un WeekOf(Fecha) y los resultados muchos difieren por un decima, muchos son iguales pero como te dije, otros difieren, supongo que sea que SQL calcula de una forma la semana del ano y delphi la calcula de otra forma. He estado mirando y segun Microsoft este usa el ISO 8601 para calcular la semana, y segun la ayuda del delphi, WeeoOf tambien la usa. A quien le creemos??
Seguire investigando a ver que puedo hacer.
gracias por tu valiosa ayuda.

[[duilioisola]]

DATEPART(WEEK,FECHA) y WeekOf(FECHA) deberían devolver los dos un entero.
A veces las conversiones de un SQL pueden darte 2,000000001.
Estos valores los deberías tomar como enteros.
Si DATEPART te devuelve 2,5 no tiene sentido para mi.

Además, debes comparar DATEADD con IncMonth y DATEDIF con MonthsBetween.

Ya nos dirás algo más...