Bir Sayının Yüzdesini almak..... Gönderen: Cturk Tarih: 29 October 2007 16:46:13
...........................................
procedure TForm1.Button1Click(Sender: TObject);
var
sy,yz,i:Integer;
begin
try
sy:=StrToInt(Edit1.Text);//Yüzdesi alınacak Sayı
yz:=StrToInt(Edit2.Text);//Yüzdesi
i:=(100 * yz) div sy;
Label1.Caption:=FloatToStr(i);
Label1.Caption := ('%'+FormatFloat('#,',i));//Sonuç
except
ShowMessage('Lütfen Yüzdesi alınacak Sayıları giriniz?');
end;
end;
Ynt: Bir Sayının Yüzdesini almak..... Gönderen: 3L3CTRO Tarih: 02 December 2007 00:05:12
saol ileride işime yarayabilir...