function NumSemana(Fecha:string):integer; var PrimerDia:TDate; DiaDelPrimerDia:integer; begin {Calculamos primer dia del año} PrimerDia:=StrToDate('01/01/'+Copy(Fecha,7,2)); {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;
Ważne artykuły