Com­ment conver­tir u…
 
Notifications 
Reti­rer tout

Com­ment conver­tir une valeur en seconde en hh:mm en RPG ile ?

Posts
Uti­li­sa­teurs
Reac­tions
97  Vu
0
Début du sujet

Bon­jour,

J’ai une valeur en seconde sto­ckée dans du « packé » 10:0 et je sou­haite le conver­tir en heure et minutes sous ce masque hh:00 et en alpha­nu­mé­rique. Avez-vous un bout de code qui pour­rait m’inspirer ?

Cor­dia­le­ment,

1 Réponse 
0

Après quelques tests, voi­ci le bout de code en question :

dcl-proc testConvert_seconde_to_hhmm_1 export;
  dcl-pi *n end-pi;

  Dcl-s l_duree_seconde Packed(10:0) Inz(61154);
  Dcl-s l_duree_hhmm Time inz;
  Dcl-s l_duree_hhmm_char Char(5);

  print('Executing:       * testWhatever_1()');

// Place your assertions here.
l_duree_hhmm = l_duree_hhmm + %Seconds(l_duree_seconde);

l_duree_hhmm_char = %Char(l_duree_hhmm:*HMS);

Dsply l_duree_hhmm_char;

end-proc;      

Share :