es sabado o domingo, a partir de la segunda semana resta 1 y toma a la primer semana con 8 o 9 dias dependiendo si es sabado o domingo, el resto de las semanas las toma con 7 dias.
Código: Seleccionar todo
l:nrosemana SHORT
l:mifecha date !Esta variable viene con la fecha a consultar
l:resultado string
Código: Seleccionar todo
l:nrosemana = INT((l:mifecha-1)/7)-INT((DATE(1,1,YEAR(l:mifecha))-1)/7) + 1
execute DATE(1,1,YEAR(l:mifecha)) % 7 +1
L:RESULTADO = 'Domingo'
L:RESULTADO = 'Lunes'
L:RESULTADO = 'Martes'
L:RESULTADO = 'Miercoles'
L:RESULTADO = 'Jueves'
L:RESULTADO = 'Viernes'
L:RESULTADO = 'Sabado'
END
Case L:RESULTADO
of 'Lunes'
cuenta# =1
of 'Martes'
cuenta# =2
of 'Miercoles'
cuenta# =3
of 'Jueves'
cuenta# =4
of 'Viernes'
cuenta# =5
of 'Sabado'
cuenta# =6
of 'Domingo'
cuenta# =7
end
if cuenta# > 5 and l:nrosemana > 1
l:nrosemana -=1
.