Calcula El Numero de Semana Actual

[Rodo_Rodo]

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