[vb] Branje formata števil

formatnumber(strNumber,2)

Zakaj pa moraš vedet število decimalnih mest?

1.) spremeniš številko v string
String1=Cstr(tvoje število)
2.) preveriš, če je v stringu vejica ( če je ni, ni decimalnih mest)
if InStr(String1, ",")
' * manjkajoči stavek 1
' * manjkajoči stavek 2
end if
3.) razdeliš string v polje dveh vrednosti
' * manjkajoči stavek 1
Pieces=Split(String1,",")
4.) dolžina polja 1, je število mest za decimalno vejico in ga recimo zapišeš v text1.text
' * manjkajoči stavek 2
Text1.text=len(Pieces(1))

Ker sem tole govoril iz glave, je možnost napake!!!

lp, T.

Ta koda je napačna!
Tole je napačno:
Text2.Text = Len(String1) - InStr(String1, ",")


Poglej primer:
v textovnem oknu imaš število:
1234,567
Len(String1) boš dobil 8!!!
InStr pa prešteje vse vejice v stringu, kar pomeni 1!!!
Razlika je 7!!!

Če že hočeš nekaj takega, boš vseeno rabil ukaz Split, ki bo razdelil string na 2 dela... Celoštevilski del in ostanek.
Če se držim tega, da bereš iz text1.text, potem bi bila moja prejšna koda sledeča:
Private Sub Command1_Click()
String1=Cstr(text1.text)
if InStr(String1, ",") then
Pieces=Split(String1,",")
Text2.text=len(Pieces(1))
else
text2.text="0"
end if
end sub

Poglej kje si naredil napako!

lp, T.

EDIT: Pozabil sem še to, da so števila ločena s piko, tako da namesto vejice uporabi piko, ali pa pustiš tako kot imaš. Po želji.

ej, se vsem oproščam...
zupancicff ima prav! sem zamutil!
sorry še enkrat!

lp, T.

P.S.: Hvala za popravek!