function CalculCAC()
/* La fonction CalculCAC calcule le calcium corrigé avec les proteine
*/
{

var CAC      // initialisationde la variable qui récupère le résultat
var Obj =  this.document.frmCACP   // Simplification de l'expression du formulaire
var CA = 0 // Initialisation des variables intermédiare en mode NUMBER
var P = 0
var UnitCa
var UnitP
CA = Obj.txtCa.value         // recup de la taille
P = Obj.txtP.value

UnitP = Obj.cmbUnitP.value
if (UnitP==1)
    {
    P = P * 10
    }

P = P/160
P = 0.55 + P
CAC = CA / P
CAC = CAC.toString()            // conversion en string
CAC = CAC.substring(0,4)        // découpage aux 4 premiers caractère pour affichage
Obj.txtResult.value = CAC    // affichage dans la zone de texte

}

function controleCa(){
// Controle de chiffre et valeurs autorisées
var C
C = this.document.frmCACP.txtCa.value
if (isNaN(C)==true)
{
     this.document.frmCACP.txtCa.value = ""
     alert("Vous n\'avez pas entré un chiffre...\n\nVeuillez corriger en tapant un chiffre valide pour la calcémie")
}
}

function controleP(){
// Controle de chiffre et valeurs autorisées
var P
P = this.document.frmCACP.txtP.value
if (isNaN(P)==true)
{
     this.document.frmCACP.txtP.value = ""
     alert("Vous n\'avez pas entré un chiffre pour la protidémie...\n\nVeuillez corriger en tapant un chiffre valide")
}
}


function RAZ()
{
this.document.frmCACP.txtCa.value = ""
this.document.frmCACP.txtP.value = ""
this.document.frmCACP.txtResult.value =""
}