| En este ejemplo veremos como recuperar
el día de la semana de una fecha
La variable DNJAHR representa el año en formato
AAAA. La variable DNMM representa el mes MM y la variable
DNTT representa el dia DD.
El programa devuelve @WT (1=lunes, 7=domingo)
C MOVE *BLANK @WOTAG 40
C MOVE *ZERO @WT 150
C*
C DNMM IFGT 2
C SUB 2 DNMM
C ELSE DNMM>2
C ADD 10 DNMM
C SUB 1 DNJAHR
C ENDIF DNMM>2
C*
C DNJAHR DIV 100 @C 150
C MVR @J 150
C*
C DNMM MULT 13 @WRK 150
C SUB 1 @WRK
C DIV 5 @WRK
C ADD @WRK @WT
C*
C @J DIV 4 @WRK
C ADD @WRK @WT
C*
C @C DIV 4 @WRK
C ADD @WRK @WT
C*
C ADD @J @WT
C*
C ADD DNTT @WT
C*
C @C MULT 2 @WRK
C SUB @WRK @WT
C*
C @WT DIV 7 @WRK
C MVR @WT
C*
C @WT IFLT 0
C ADD 7 @WT
C ENDIF @WT<0
C*
Puedes ver el código aquí
Ejemplo enviado por Rainer
18-01-2003
|
