Syfre le 11 août 2009 à 15:18

2009-08-11T15:18:28Z

← Version précédente		Version du 11 août 2009 à 15:18
Ligne 1 :		Ligne 1 :

	<source lang='delphi'>Function SQLRound(D:Double; len:Integer):Double;</source>		<source lang='delphi'>Function SQLRound(D:Double; len:Integer):Double;</source>

	~~description~~		Cette fonction arrondie un nombre flottant suivant la même syntaxe que la fonction SQL ROUND.

	{\|class="wikitable"		{\|class="wikitable"
	\|-		\|-
	\|Result		\|Result
	\|		\|Valeur arrondie.
	\|-		\|-
	\|D		\|D
	\|		\|Valeur à arrondir
	\|-		\|-
	\|len		\|len
	\|		\|Spécificateur de longueur.
	\|-
	~~\|Result~~
	\|
	\|}		\|}

	Exemple		Exemple

			'''Implémentation de SQLRound'''
	<source lang='delphi'>		<source lang='delphi'>
			function SQLRound(f:double; len:Integer):double;
			const fac:Array[0..8] of Extended = (1,10,100,1000,10000,100000,1000000,10000000,100000000);
	begin		begin
			//ROUND(748.58,-4)= 0
			//ROUND(748.58,-1)= 750.00
			//ROUND(748.58,-2)= 700.00
			//ROUND(748.58,-3)= 1000.00
			//ROUND(123.9994,3)= 123.9990
			//ROUND(123.9995,3)= 124.0000
			//
			if (len>=0) then
			begin
			if len>8 then len := 8;
			Result := Round(f*fac[len])/fac[len];
			end
			else
			begin
			len := -1*len;
			if len>8 then len := 8;
			Result := Round(f/fac[len])*fac[len];
			end;
	end;		end;
	</source>		</source>

Syfre le 11 août 2009 à 12:11

2009-08-11T12:11:22Z

Nouvelle page

<source lang='delphi'>Function SQLRound(D:Double; len:Integer):Double;</source>

description

{|class="wikitable"
|-
|Result
|
|-
|D
|
|-
|len
|
|-
|Result
|
|}

Exemple

<source lang='delphi'>
begin
end;
</source>

Voir aussi:

{{Footer|Développement DSM}}
[[category:RTL Conversion]]

SQLRound (rtl) - Historique des versions

Syfre le 11 août 2009 à 15:18

Syfre le 11 août 2009 à 12:11