Das Vorgangsdatum ist z.B. der 06.06.xx. Nachfolgende Funktion ermittelt daraus die KW23.
Str$(Woy(AktVog.Dat),0,0)
Die Variable "AktVog.Dat" kann natürlich auch durch eine andere Datumsvariable ersetzt werden.
Wird in einer Position kein Lieferdatum eingegeben, kann dies mit folgender Formel "abgefangen" werden:
Cond(Year(VPo.LiefDat)>1899,Str$(Woy(VPo.LiefDat),0,0))