47 lines
1.3 KiB
Plaintext
47 lines
1.3 KiB
Plaintext
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
|