IMPORT UTIL

MAIN
  DEFINE d DATE,
         k,k1 DATETIME YEAR TO MINUTE ,
         hk,hk1,hsalida DATETIME HOUR TO MINUTE,
         HORA INTERVAL HOUR(2) TO HOUR,
         extras INTERVAL HOUR TO MINUTE,
         chora CHAR(20),cchora INT,
         cantidad DEC(12,2),
         xhora INTERVAL HOUR TO HOUR,xminutos INTERVAL MINUTE TO MINUTE,
         fechaFirma DATETIME YEAR TO SECOND,
         chfirma STRING
                
         DEFINE i1 INTERVAL YEAR TO MONTH
         DEFINE i2 INTERVAL HOUR(5) TO SECOND
  LET i1 = INTERVAL( 345-5 ) YEAR TO MONTH
  LET i2 = INTERVAL( 34562:22:33 ) HOUR(5) TO SECOND
DISPLAY " datos ",i1," da ",i2
  
  LET k = '2021-06-01 6:59'
  LET k1 = '2021-06-01 17:59'
  LET hk1 = EXTEND(k1, HOUR TO MINUTE)
  LET hk  = EXTEND(k, HOUR TO MINUTE)

  LET fechaFirma = CURRENT
  DISPLAY "fecha firma: ",fechaFirma
  LET chfirma = util.Datetime.format(fechaFirma, "%d-%m-%Y %H:%M:%S" )

  DISPLAY "formateado: ",chfirma
  DISPLAY "tiempo: ",hk
  LET hsalida = '15:00'
  LET extras = hk1 - hsalida

  LET xhora = extras
  LET xminutos = extras

  DISPLAY "TIEMPO",EXTRAS, " HORA ",xhora," minuto ",xminutos
  LET hora = hk1 - hk
 LET CHORA = hora
 LET cchora = chora 
  
  LET cantidad = chora
  LET d = TODAY + 200
  DISPLAY (d - TODAY) UNITS DAY
END MAIN