funktion til at vende tal?

exploit>Just puzzled as to why a solution using for example right$ ... isnt allowed, what wrong with that as long as you get your solution? some how or other it HAS to get swapped around!

Lav din egen funktion.

Opret en command button og en textbox
''''''''''''''''''''''''''''''''''''''

Public Function TurnNumber(number As String)
If number = "" Then: Exit Function

TurnNumber = ""

For n = 0 To Len(number)
    TurnNumber = TurnNumber & Len(number) - n
Next n

TurnNumber = Mid(TurnNumber, 1, Len(TurnNumber) - 1)
End Function

''''''''''''''''''''

Private Sub Command1_Click()
Text1.Text = TurnNumber(Int(Text1.Text))

End Sub


/Answer

answermaster>isnt this exactly what exploit DOES NOT want?

No, i think han just ville have a function, so he ikke skulle write det same all the tid.

På dansk alene :)

Jeg tror at det er fordi han ikke vil skrive indholdet af funktionen hele tiden. Og en indbygget funktion eller en hjemmelavet funktion, kommer det ikke ud på et?

/Answer

answermaster>Its a good thing I can understand Danish and English :o)
Ok, you may be righ there, but it would be nice if he said what he wants.

varTal = 1234
varTal = CInt(StrReverse(CStr(varTal)))

smukt magik takker mange gange! :D

selv tak :)