Il faut un champ de type date/heure qui se nomme cDate.
d := @If(@IsNull?(cDate);
@Return(''); @Date(cDate));
jourD := @Weekday(d);
jeudiD := @Adjust(d;0;0; @If(jourD = 1; -3; 5 - jourD); 0;0;0);
quatreJanv := @Date(@Year(jeudiD); 1; 4);
wkdQuatre := @Weekday(quatreJanv);
lundiSemQuatre := @Adjust(quatreJanv;0;0; -@If(wkdQuatre = 1;6; wkdQuatre
-2); 0;0;0);
dif := @Round(((jeudiD - quatreJanv) / 86400) / 7);
@Prompt((?OK?);'test'; @Text(dif + 1));