Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Preise runden

    Delphi
    by Keldorn, 30. Mai 2004
  keine ahnung, solange du keinen Code von dir zeigst.
  
  
  wären nach der aufgabenstellung meiner meinung nach 4€
  
  wie das mit dem runden geht, steht alles schon da, entweder roundto oder round mit divid. und multi. mit unterschiedlichen Faktoren. du mußt dir halt noche eine if-abfrage basteln, die je nach zahlengröße die richtige Rundungsfunktion aufruft.
  
  
  if zahl<10 then...
• Forum: Sonstige Fragen zu Delphi

  Re: Preise runden

    Delphi
    by Keldorn, 29. Mai 2004
  und für den 5-steller kannst du ja mal das probieren:
  
  function Runden5(d:double):double;
  Var x:double;
  begin
  //zweistelligen Anteil entfernen
  x:=frac(d/10)*10;
  
  if x<2.5 then d:=d-x
  else if (x>=2.5) and (x<5) then d:=d+(5-x)
• Forum: Sonstige Fragen zu Delphi

  Re: Preise runden

    Delphi
    by Keldorn, 29. Mai 2004
  Hallo
  
  mit datenbanken mach ich nix, aber du hast die Frage ja auch nicht in der Datenbank rubrik gewählt :P
  
  bis auf die 5 euros ist das runden einfach: entweder round verwenden und die beträge mit einem faktor dividieren und wieder multiplizieren, oder roundto verwenden (macht aber im Prinzip genau das gleiche).
  
  
  ListBox1.Items.Add(FloatToStr(round( 543.21/10 )*10));
  ...