Calcular semana del año

[[José Luis Garcí]]

Hola DavidSG4, prueba con la siguiente

Código Delphi [-]
//Calcula las semanas del año
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;