Espero que esto te sirva: te calcula el tiempo que transcurre entre una hora y otra... unicamente incorporale el validador de minutos que no sea mayor a 60... Resultado en prg.
clear all
set stat off
set talk off
set safe off
clear
inicio=' '
fin=' '
@ 5,10 get inicio pict '##:##'
@ 7,10 get fin pict '##:##'
read
k=0
for i= ((val(left(inicio,2))*60)+val(right(inicio,2))) to ((val(left(fin,2))*60)+val(right(fin,2)))
k=k+1
endfor
*tiempo transcurrido
horas=int(k/60)
minutos=int((k/60)*100)
minutos=right(alltrim(str(minutos)),2)
minutos=val(minutos)
minutos=int((minutos*60)/100)
if horas<10
resultado='0'+alltrim(str(horas))+':'
else
resultado=alltrim(str(horas))+':'
endif
if minutos<10
resultado=resultado+'0'+alltrim(str(minutos))
else
resultado=resultado+alltrim(str(minutos))
endif
@ 10,10 say resultado
wait wind 'enter para terminar'
set stat oN
set talk oN
set safe oN