# Fonction PCODE ID = 660004265
REGISTRE POINTEUR pt_tableHoraire
REGISTRE ENTIER date

REGISTRE ENTIER coutComm
# coefficient tranche horaire
REGISTRE ENTIER Hi
REGISTRE ENTIER Erreur
REGISTRE POINTEUR pt_buffer

pt_tableHoraire = depilerPOINTEUR()
date = depilerENTIER()

trace1 ("appel a f_tax6 <date %d>", date)
trace2 (" <%s %s>", "pt_tableHoraire", pt_tableHoraire)

pt_buffer = "1234567890"
Erreur = find_tranche_660004265 (date, pt_tableHoraire, pt_buffer)
SI (Erreur < 0 )
ALORS
  trace ("tranche non trouvee")
  RETOUR -1
FINSI
Hi = i_str_to_float(pt_buffer)

coutComm = i_float_to_entier (Hi)
SI (i_float_cmp( Hi, i_entier_to_float( coutComm )) !=0)
ALORS
  coutComm = coutComm + 1
FINSI

trace1 ("nombre d'UT  par la formule f_tax6 : <%d>" , coutComm)

RETOUR coutComm

