Ooops
March 02, 2021, 01:15:13 PM

Author Topic: [bb] Format a number by skn3 [ 1+ years ago ]  (Read 439 times)

Offline BlitzBot

  • Jr. Member
  • **
  • Posts: 1
[bb] Format a number by skn3 [ 1+ years ago ]
« on: June 29, 2017, 12:28:40 AM »
Title : Format a number
Author : skn3
Posted : 1+ years ago

Description : Allows you to format a number and return it in a string.

Code :
Code: BlitzBasic
  1. Print Format$("345233","#,###.##")
  2. WaitKey()
  3. Function Format$(Number,FormatString$)
  4.         MakeFormat$=""
  5.         NumberCount=1
  6.         For I=1 To Len(FormatString$)
  7.                 GetFormatChar$=Mid$(FormatString$,I,1)
  8.                 Select GetFormatChar$
  9.                         Case ","
  10.                                 MakeFormat$=MakeFormat$+","
  11.                         Case "."
  12.                                 MakeFormat$=MakeFormat$+"."
  13.                         Case "#"
  14.                                 If NumberCount > Len(Number) Then
  15.                                         GetNumberChar$="0"
  16.                                 Else
  17.                                         GetNumberChar$=Mid$(Number,NumberCount,1)
  18.                                 End If
  19.                                 NumberCount=NumberCount+1
  20.                                 MakeFormat$=MakeFormat$+GetNumberChar$
  21.                 End Select
  22.         Next
  23.         Return MakeFormat$
  24. End Function


Comments :


Mikorians(Posted 1+ years ago)

 This didn't work when I fed it a float value.Tried fixing Number refs to Number$, still no good.


 

SimplePortal 2.3.6 © 2008-2014, SimplePortal