TheGameCreators - CodeBase - Formatting function

Return to the CodeBase listing

Category: Input / Output

Version: 1.0

Information

Uploaded: 24th Nov 2004 13:45

Modified: 1st Jan 1970 01:00

Author: Anonymous Coder

Summary

Format a decimal value to another value : example : you supply 345.256 the function can return 345.2

Full Description

Format a decimal value to a variable decimal value (not rounded):<br /> example : you supply 345.256 the function can return 345.2<br /> <br /> Permet de formatter une valeur decimale en une autre valeur decimale.<br /> Elle ne fait pas l'arrondi

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem /*file Name: string.dba                                                    */

rem /*   Author: Eric Gotto                                                    */

rem /*   Date  : 24-Nov-2004                                                   */

rem /*  Purpose: Supply  Extended string functions                             */

rem /*           Fournit des fonctions supplementaires de manipulations de     */

rem /*           chaines de caracteres                                         */

rem /*-------------------------------------------------------------------------*/

rem

rem /*-------------------------------------------------------------------------*/

rem /* Function Name :  DECIMAL$(value$,dcount)                                */

rem /* Variable(s)   :  Name     Type     Purpose                              */

rem /*                  ----     ----     -------

rem /*               :  value$  string    Input string to be formatted         */

rem /*                                    chaine devant etre formatee          */

rem /*                  dcount  integer   Decimal count to display             */

rem /*                                    Nbre de decimale a afficher          */

rem /* Return        : Formatted string   , Chaine formatee                    */

rem /*-------------------------------------------------------------------------*/

rem /* Example       : d$=DECIMAL$(235.2556 , 2)  return ==> d$=235,25         */

rem /* if the input string is not a decimal string , string output will be     */

rem /* "Not decimal!"                                                          */

rem /* Si une chaine de caractere passee en parametre est non decimale  ...    */

rem /* c-a-d ne contient pas un point , la chaine de sortie sera tronquee !    */

rem /*-------------------------------------------------------------------------*/

function Decimal$(value$,dcount)

j=0

ret$=""

repeat

if j > 50 then ret$="Not Decimal!" : exit

inc j

ret$=ret$+mid$(value$,j)

until mid$(value$,j)="."

for n=j+1 to j+dcount

ret$=ret$+mid$(value$,n)

next n

endfunction ret$

Download

Please login to download

Comments

No comments yet.

Author Name:	Anonymous Coder
CodeBase Entries:	1

CodeBase - Formatting function

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments