Evro v TextBox

[BJ]

En lep pozdrav!
V TextBox vnesem neko število (znesek v SIT). S klikom na ukazni gumb pa naj bi se to število v TextBoxu delilo s tečajem Eura (npr.: 239,64). Rezultat naj bi bil viden v TextBox- u.
Hvala!
LPB!

[admin]

Koda: Izberi vse

  TextBox1.Text = CStr(CDbl(TextBox1.Text) / 239.64))

[BJ]

Super ekspres odgovor. Vendar oćitno nekaj manjka. Javi napako "Expected:End of statement". Moja koda izgleda tekole:

Koda: Izberi vse

Private Sub cmdEuro_Click()
TextBox1.Text = CStr(CDbl(TextBox1.Text) / 239.64))
End Sub

[admin]

En zaklepaj je preveč.

[BJ]

Najlepša hvala! Res ekspress Help!
B

[BJ]

Še ena težavica. Preveč decimalnih mest. Potreboval bi samo 2,
Hvala

[admin]

Koda: Izberi vse

TextBox1.Text = CStr(Round(CDbl(TextBox1.Text) / 239.64, 2)) 

[BJ]

Hvala!
LPB

[BJ]

Še eno vprašanje imam: Kakšen stavek bi bil potreben, da bi v TextBox-u zapis izgledal v obliki "#,##0.00", torej kot število z loćili za tisočice.
Ali bo potem, ko zapis prenesem v izbrano celico (ki ima obliko določeno z ločili) imel enako obliko?

[admin]

Koda: Izberi vse

TextBox1.Text = format(Round(CDbl(TextBox1.Text) / 239.64, 2), "#,##0.00")

Kar pa se tiče oblikovanja znotraj celice, pa morate v celico vpisati rezultat, oblikovanje pa je odvisno od celice; zatorej:

Koda: Izberi vse

Range("a1").Value = CDbl(TextBox1.Text) / 239.64

[BJ]

Najlepša hvala!
LPB