Progress - calendario de fechas

comy qo puedo calcular el dia en que caera un 25 de abril de 1998

Espero te refieras a esto:

DEF VAR li_dia AS INTE. /* FECHA DESEADA */
li_dia = DAY(TODAY).
IF li_dia = 1 THEN MESSAGE "DOMINGO".
IF li_dia = 2 THEN MESSAGE "LUNES".
IF li_dia = 3 THEN MESSAGE "MARTES".
IF li_dia = 4 THEN MESSAGE "MIERCOLES".
IF li_dia = 5 THEN MESSAGE "JUEVES".
IF li_dia = 6 THEN MESSAGE "VIERNES".
IF li_dia = 7 THEN MESSAGE "SABADO".

Te hago la corrección no es day es Weekday

DEF VAR li_dia AS INTE. /* FECHA DESEADA */
li_dia = Weekday(TODAY).
IF li_dia = 1 THEN MESSAGE "DOMINGO".
IF li_dia = 2 THEN MESSAGE "LUNES".
IF li_dia = 3 THEN MESSAGE "MARTES".
IF li_dia = 4 THEN MESSAGE "MIERCOLES".
IF li_dia = 5 THEN MESSAGE "JUEVES".
IF li_dia = 6 THEN MESSAGE "VIERNES".
IF li_dia = 7 THEN MESSAGE "SABADO".

Corrigiendo un post del 2001 ... wow ...