# Fonction PCODE ID = 660004265
REGISTRE ENTIER K
REGISTRE ENTIER T
REGISTRE ENTIER C2
REGISTRE ENTIER C1
REGISTRE ENTIER P2
REGISTRE ENTIER P1
REGISTRE ENTIER duree

REGISTRE ENTIER coutComm

REGISTRE ENTIER resTmp
REGISTRE ENTIER resTmp2
REGISTRE ENTIER dureeF

REGISTRE POINTEUR pt_buffer
REGISTRE POINTEUR pt_buffer2

K = depilerENTIER()
T = depilerENTIER()
C2 = depilerENTIER()
C1 = depilerENTIER()
P2 = depilerENTIER()
P1 = depilerENTIER()
duree = depilerENTIER()

trace3 ("appel a f_tax4 : <duree %d> <C1 %d> <C2 %d>", duree, C1, C2)

pt_buffer = "buffer1234567890"
pt_buffer2 = "buffer21234567890"

resTmp = i_float_to_str(P1, pt_buffer)
resTmp = i_float_to_str(P2, pt_buffer2)
trace2 (" <P1 %s> <P2 %s>", pt_buffer, pt_buffer2)

resTmp = i_float_to_str(T, pt_buffer)
resTmp = i_float_to_str(K, pt_buffer2)
trace2 (" <T %s> <K %s>", pt_buffer, pt_buffer2)

dureeF = i_entier_to_float(duree)
trace3 (" duree %d  P1 %d " , duree , i_float_to_entier (P1), 0)
SI ( i_float_cmp( dureeF , P1) < 0)
ALORS
  coutComm = C1
SINON
  resTmp = i_float_sub(dureeF, P2)
  resTmp = i_float_div(resTmp, T)
  resTmp2 = i_float_to_entier(resTmp)
  SI ( i_float_cmp(resTmp, i_entier_to_float(resTmp2)) != 0 )
  ALORS
    resTmp2 = resTmp2 + 1
  FINSI
  coutComm = resTmp2 * K + C2
FINSI

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

RETOUR coutComm

