Progress - URGENTE! Consulta trasformar formato hora a Entero

Yo se que el time es entero y representa segundos. Lo que quiero hacer es lo inverso, trasformar el formato hora a Entero, para poder trabajar en segundo.
Ejemplo- 35862 en formato hora es : 09:57:42, ¿Como del formato hora lo traspaso a entero?. osea, de 09:57:42 a 35862. Gracias.....

Crea esta función para que te retorne el valor numerico...

FUNCTION EvaluarExpresion RETURNS integer (INPUT cadena AS char) FORWARD.
define variable cadena as char.
define variable resultado as INTEGER.
DEFINE VARIABLE i AS INTEGER NO-UNDO.

assign cadena = "09:57:42".

assign resultado = EvaluarExpresion(cadena).

display resultado. /* Aca deberia mostrar 66 */

FUNCTION EvaluarExpresion RETURNS INTEGER
(INPUT cadena AS CHAR) :
/*------------------------------------------------------------------------------
Purpose:
Notes:
------------------------------------------------------------------------------*/
DEFINE VARIABLE valor AS INTEGER NO-UNDO.
valor = INTEGER(SUBSTRING(cadena,1,2)) * 3600 + INTEGER(SUBSTRING(cadena,4, 2)) * 60 + INTEGER(SUBSTRING(cadena,7, 2)).



RETURN valor. /* Function return value. */

END FUNCTION.

No se si es a lo que te refieres, pero la orden TIME te devuelve un integer ya.

Prueba a escribir en un procedure editor algo tan simple como:

MESSAGE TIME SKIP
STRING(TIME,'HH:MM:SS')
VIEW-AS ALERT-BOX INFO BUTTONS OK.

En el primero veras que te poner un integer, creo que es el numero de segundos que llevas de dia ( en la ayuda de progress pone Returns the number of seconds since midnight )mientras que al ponerlo de la segunda manera, progress solito se encarga de ponerlo en formato de horas minutos y segundos.