Soru Textbox toplama (kuruş kısmı sıfır görünüyor)

[sirkülasyon]

Sub TOPLA()
Dim deg As Double
    For txt = 8 To 14 Step 3
        If Val(Controls("TextBox" & txt)) > 0 Then
            deg = deg + Val(Controls("TextBox" & txt))
        End If
    Next
    TextBox15 = deg
End Sub

toplama işlemini yapıyor lakin 181,20 gibi olması gerekirken 181,00 oluyor.
"#,##0.00" kullandım. Ama olmadı
Neden olabilir? Yardımcı olabilir misiniz?

 

[byfika]

Merhabalar,
Alttaki şekilde dener misiniz?

Dim deg As Double
For txt = 8 To 14 Step 3
If Val(Controls("TextBox" & txt)) > 0 Then
deg = deg + CDbl(Controls("TextBox" & txt))
End If
Next
TextBox6 = deg

 

[sirkülasyon]

denedim olmadı.

 

[Mahmut Bayram]

Bu şekilde deneyin.

...
If CDbl(Controls("TextBox" & txt)) > 0 Then
            deg = deg + CDbl(Controls("TextBox" & txt))
        End If
    Next
 TextBox15 = Format(CDbl(deg * 1), "#,##0.00")

 

[veyselemre]

toplama işlemini yapıyor lakin 181,20 gibi olması gerekirken 181,00 oluyor.
"#,##0.00" kullandım. Ama olmadı
Neden olabilir? Yardımcı olabilir misiniz?

"#,##0.00" kullandım. Formatta ondalık işareti .
siz 181,20 yazmışsınız . Ondalık simgesi olarak virgül kullanıyorsunuz. Haliyle kuruşları dikkate almayacaktır.

Bir çok kez yazmışımdır önceleri. bilgisayarda programlama işi yapacaksanız, sorunsuz işlerin yürümesi ek tedbirlerin alınmasına uğraşmamak için ondalık simgesi olarak nokta kullanmalısınız. Bu işi yapan adamlar bu şekilde dizayn etmişler, yapacak bir şey yok. Değişkenlerde Türkçe karakter kullanılmamalı bir yerlerde sorun çıkarabilir. İlla virgül kullanacağım diyorsanız, önce virgülü noktaya çevirip sonra toplattırın.