convert number to String

[engnouna]

Hi
I am trying to write a formula in CR8 that will concatenate a number and a string,
but the problem is that I need first to convert the Number to string,
I tried using CStr but it returned to me value like 256.00, what I need is 256

Any help please

[Besoup]

Try ToText(Number)

[engnouna]

I tried ToText and I got the same output

[Besoup]

I know there is probably an easier way to do it but you can probably do something like this to remove the .00

replace(totext(Number),".00","")

[shakti5385]

check this..........
CStr(Int(250.0))

[brucevde]

ToText(Number,0)

[jobs_arghya]

Here I am sending you a code. Just try it out

Public Function NumToString(ByVal nNumber As Double) As String

Dim bNegative As Boolean
Dim bHundred As Boolean

If nNumber < 0 Then
bNegative = True
End If

nNumber = Abs(Int(nNumber))

If nNumber < 1000 Then
If nNumber \ 100 > 0 Then
NumToString = NumToString & _
NumToString(nNumber \ 100) & " Hundred"
bHundred = True
End If
nNumber = nNumber - ((nNumber \ 100) * 100)
Dim bNoFirstDigit As Boolean
bNoFirstDigit = False
Select Case nNumber \ 10
Case 0
Select Case nNumber Mod 10
Case 0
If Not bHundred Then
NumToString = NumToString & " zero"
End If
Case 1: NumToString = NumToString & " One"
Case 2: NumToString = NumToString & " Two"
Case 3: NumToString = NumToString & " Three"
Case 4: NumToString = NumToString & " Four"
Case 5: NumToString = NumToString & " Five"
Case 6: NumToString = NumToString & " Six"
Case 7: NumToString = NumToString & " Seven"
Case 8: NumToString = NumToString & " Eight"
Case 9: NumToString = NumToString & " Nine"
End Select
bNoFirstDigit = True
Case 1
Select Case nNumber Mod 10
Case 0: NumToString = NumToString & " Ten"
Case 1: NumToString = NumToString & " Eleven"
Case 2: NumToString = NumToString & " Twelve"
Case 3: NumToString = NumToString & " Thirteen"
Case 4: NumToString = NumToString & " Fourteen"
Case 5: NumToString = NumToString & " Fifteen"
Case 6: NumToString = NumToString & " Sixteen"
Case 7: NumToString = NumToString & " Seventeen"
Case 8: NumToString = NumToString & " Eighteen"
Case 9: NumToString = NumToString & " Nineteen"
End Select
bNoFirstDigit = True
Case 2: NumToString = NumToString & " Twenty"
Case 3: NumToString = NumToString & " Thirty"
Case 4: NumToString = NumToString & " Forty"
Case 5: NumToString = NumToString & " Fifty"
Case 6: NumToString = NumToString & " Sixty"
Case 7: NumToString = NumToString & " Seventy"
Case 8: NumToString = NumToString & " Eighty"
Case 9: NumToString = NumToString & " Ninety"
End Select
If Not bNoFirstDigit Then
If nNumber Mod 10 <> 0 Then
NumToString = NumToString & "-" & _
Mid(NumToString(nNumber Mod 10), 2)
End If
End If
Else
Dim nTemp As Currency
nTemp = 10 ^ 12 'trillion
Do While nTemp >= 1
If nNumber >= nTemp Then
NumToString = NumToString & _
NumToString(Int(nNumber / nTemp))
Select Case Int(Log(nTemp) / Log(10) + 0.5)
Case 12: NumToString = NumToString & " Trillion"
Case 9: NumToString = NumToString & " Billion"
Case 6: NumToString = NumToString & " Million"
Case 3: NumToString = NumToString & " Thousand"
Case 5: NumToString = NumToString & " Lakhs"
End Select

nNumber = nNumber - (Int(nNumber / nTemp) * nTemp)
End If
nTemp = nTemp / 1000
Loop
End If

If bNegative Then
NumToString = " negative" & NumToString
End If

End Function

Private sub Command1_Click()
a=numtostring(1000)
End Sub