Nackommastelle als integer wert??

mcdust · Hält's aus hier Beiträge: 2 Win XP D6 prof

hallo ich bin neu hier und hoffe das ist das richtige forum für meine frage:
wie bekomme ich aus z.B. 13,5 die 5 als normalen integer wert zum ausgeben??
es geht nur um die erste nachkommastelle..
für hilfe wär ich echt dankbar!!!

Udontknow · Beiträge: 2596 Win7 D2006 WIN32, .NET (C#)

markieren

Delphi-Quelltext

1:
2:
3:
4:

function ErsteNachkommastelle(r:real):integer;
begin
  Result:=Trunc(r*10) MOD 10;
end;

Cu,
Udontknow

TheNeon · Beiträge: 408 Windows VS2010 C#

oder falls es beliebige Nachkommastellen sind:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

function TForm1.Nachkommawert(wert: real): Integer;
begin
  result := strtoint(  RightStr(  floattostr(wert), Length(floattostr(wert)) - Pos(',', floattostr(wert))  )  );
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := inttostr(Nachkommawert(123.456));
end;

Bye,
TheNeon :twisted:

mcdust · Hält's aus hier Beiträge: 2 Win XP D6 prof

WOW so schnelle hilfe vielen dank auch wenn ich das mit den prozeduren noch nicht ganz verstehe habs hinbekommen mit
"rest:=Trunc(rest*10) MOD 10;"
vielen dank nochmal!!!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme