Calculo com datas

/******************** STATEMENTS**************************************
**
** data - data = ? (>= V6)
** Progress possui um calendario interno.
** Para saber quantos dias existem entre
** duas datas, subtraia as datas.
** Para saber qual a data referente a
** hoje mais 1000 dias, some TODAY +
** 1000.
**
**********************************************************************/

Código:

DEF BUTTON bt-fim LABEL "&Ok".

DEF QUERY  q-order FOR order.

DEF BROWSE b-order QUERY q-order
  DISPLAY
  order.order-num
  order.order-date
  TODAY - order.order-date LABEL "DIAS ATRASO"
  WITH 8 DOWN SEPARATORS TITLE "Pedidos".
  
OPEN QUERY q-order FOR EACH order.
      
DEFINE FRAME a
        SKIP(1)
        b-order SKIP(1)
        bt-fim
        WITH FRAME a  CENTERED 
        TITLE "BROWSE DA TABELA ORDER".
        
DISPLAY b-order bt-fim WITH FRAME a.       

ENABLE ALL WITH FRAME a.

WAIT-FOR CHOOSE OF bt-fim.