Calcula El Numero de Semana Actual
 

Esto es otra ayudita que me sirvio mucho para realizar mis consultas en mi base de datos
Espero Les Sirva...

Código Delphi [-]
  

//*Introducir la Fecha Como String, o ustedes ya vean
 
function NumSemana(Fecha:string):integer;
var
   PrimerDia:TDate;
   DiaDelPrimerDia:integer;
begin
    {Calculamos primer dia del año}
 
    PrimerDia:=StrToDate('01/01/'+Copy(Fecha,7,4));
 
    {Calculamos dia de la semana que empieza por lunes}
 
    If DayOfWeek(PrimerDia)-1 =0
      then DiaDelPrimerDia:=7
      else DiaDelPrimerDia:=DayOfWeek(PrimerDia)-1;
 
    {Calculamos el numero de semana del año}
 
    Result:=Trunc(
                 (StrToDate(Fecha)-
                 PrimerDia+
                 DiaDelPrimerDia-1
                 ) /7)+1;
end;
 
 
//* Llaman a la funcion y ya ta :)

¿En tu delphi no tienes WeekOf?

Saludos

Como Instalo el DateUtils
 

Me comentaron que esta tiene muchas funciones de manejo de Fechas las cuales me reducirian el trabajo, si alguien me pudiera ayudar por favor GRACIAS
:p

En la unidad, añade "uses Dateutils" después ya puedes acceder a todas las funciones.

Te aconsejo que primero busques en tu ayuda de delphi, así sabrás si dispones de esa Unidad y de las funciones que tiene.

saludos

Te agrego un consejo mas: Para calcular, comparar y almacenar información, es recomendable utilizar los tipos de datos definidos para tal fin. No utlizar strings para tratar fechas, es mucho mas costoso en concepto de memoria y procesador.

Saludos!