Afficher l'heurs dans un Tedite

sif -  
nabil-bago Messages postés 289 Statut Membre -
Bonjour,

salut a tous je voudrait afficher l'heur su Tedit et faire la soustraction
heur debut et heur fin.et multiplier par un prix
merci

2 réponses

  1. nabil-bago Messages postés 289 Statut Membre 13
     
    var
    a,hd,hf:string;
    s:integer;
    r:real;
    begin
    a:=timetostr(time);
    hd:=copy(1,1,a);{copier l'heur de dubut dans une variable de type string}
    hf:=copy(2,1,a);{copier l'heur de fin dans une variable de type string}
    s:=strtoint(hd) - strtoint(hf); {convertir de chaine de caractère en nombre entier}
    r:=s*strfloat(edit2.text); {edit2 ou tu va ecrire le prix)
    edit1.text:=floattostr(r);
    end;
    ecrit ce programe dans un button
    0