def var v-dia11 as date.
DEF var v-fecha as date initial today.
def var v-diass as INTEGER.
DEF VAR v-numse AS DECIMAL.
UPDATE v-fecha.
/*---CONSIDERANDO QUE LA SEMANA EMPIEZA EN UN LUNES Y ACABA EN UN DOMINGO---*/
/*---Obtener primer dia del any de la fecha a saber la semana---*/
v-dia11 = DATE(1,1,YEAR(v-fecha)).
/*---Obtener dias transcurridos desde principio de any hasta la fecha a convertir---*/
v-diass = v-fecha - v-dia11 + 1.
/*---Anyadir dias necesarios para completar la primera semana---*/
IF WEEKDAY(v-dia11) = 1 THEN v-diass = v-diass + 6. /* si dia 01/01 es domingo */
IF WEEKDAY(v-dia11) = 2 THEN v-diass = v-diass + 0. /* si dia 01/01 es lunes */
IF WEEKDAY(v-dia11) = 3 THEN v-diass = v-diass + 1. /* si dia 01/01 es martes */
IF WEEKDAY(v-dia11) = 4 THEN v-diass = v-diass + 2. /* si dia 01/01 es miercoles */
IF WEEKDAY(v-dia11) = 5 THEN v-diass = v-diass + 3. /* si dia 01/01 es jueves */
IF WEEKDAY(v-dia11) = 6 THEN v-diass = v-diass + 4. /* si dia 01/01 es viernes */
IF WEEKDAY(v-dia11) = 7 THEN v-diass = v-diass + 5. /* si dia 01/01 es sabado */
v-numse = v-diass / 7.
IF TRUNCATE(v-numse,0) <> v-numse THEN v-numse = TRUNCATE(v-numse,0) + 1.
DISPLAY v-fecha v-dia11 v-diass v-numse.