*********************************************************************
PARAMETERS:
p_hour(05) TYPE p DECIMALS 2,
p_min TYPE i.

DATA:
v_dec(05) TYPE p DECIMALS 2, " Parte decimal da hora (minutos)
v_int TYPE i, " Parte Inteira da hora (hora)
v_hour(05) TYPE p DECIMALS 2, " Resultado da conversao p/ horas
v_min TYPE i, " Resultado da conversao p/ minutos
v_aux TYPE i. " Auxiliar p/ exibicao na tela

START-OF-SELECTION.

*==* Converte de Minutos p/ Hora *=============================*
v_hour = p_min / 60.

v_int = TRUNC( v_hour ). " Horas
v_dec = FRAC( v_hour ). " Minutos

* Conversao dos minutos ( De decimal p/ minutos )
v_dec = ( v_dec / 100 ) * 60.

** Horas
v_hour = v_int + v_dec.
*==============================================================*

*==* Converte de Horas p/ Minutos *============================*
v_int = TRUNC( p_hour ).

* Separa a parte decimal, que ja esta em minutos
v_dec = FRAC( p_hour ).

v_min = v_int * 60.

** Minutos
v_min = v_min + ( v_dec * 100 ).
*==============================================================*

*====* Rotina apenas p/ exibição
v_int = TRUNC( p_hour ).
v_dec = FRAC( p_hour ).
v_aux = v_dec * 100.

WRITE: / v_int , 'Horas e', v_aux , 'minutos =', v_min, 'Minutos'.

v_int = TRUNC( v_hour ).
v_dec = FRAC( v_hour ).
v_aux = v_dec * 100.

WRITE: / p_min, 'minutos =', v_int , 'Horas e', v_aux , 'minutos'.

**********************************************************************