Copy this code in "Procedure Routine"
[]s
Eder Sousa
São Paulo/Brasil
HourToMinutes ROUTINE
DATA
HourCompleteVariable LONG
Minutes LONG(0)
Hour LONG(0)
TotalMinutes LONG(0)
CODE
HourCompleteVariable = CLOCK()
Minutes = SUB(FORMAT(HourCompleteVariable ,@t01),3,2)
Hour = SUB(FORMAT(HourCompleteVariable ,@t01),1,2)
TotalMinutes = (HOUR*60) + Minutes
Message('Minutes => ' & CLIP(LEFT(TotalMinutes )) , 'Message')
EXIT