Userformda İşlemler Toplama

[bozacioglu]

Userformumda;
Yarımgün=1/2
Textbox1=0.5
Textbox1=Textbox1+Yarımgün
Sonucunu 5.5 olarak veriyor.
Tekrar toplama yaparsam
Yarımgün=1/2
Textbox1=5.5
Textbox1=Textbox1+Yarımgün
Sonucunu 55.5 olarak veriyor.
Cdbl, Val, Format gibi kullanımları denedim. 1 aydır neredeyse tüm örnekleri inceldim. Bir sonuca ulaşamadım.
Yardımcı olursanız çok sevinirim.

 

[Muzaffer Ali]

Merhaba.

TextBox3.Value = Val(TextBox1.Value) + Val(TextBox2.Value)

Bu şekilde yazınca normal toplama yapması gerekir. eğer olmuyorsa başka bir yerde bir kod satırı etki ediyor olmalı.
Çözemezseniz dosyanızı ekleyin kontrol edelim.

Dosyanızı dosya.tc gibi bir siteye ekleyerek paylaşabilirsiniz.

 

[bozacioglu]

Teşekkür ederim.
İlk farkettiğim
Sayı2=Val(Yarımgün) şeklinde yazınca Yarımgün=0.5 ola değeri 0 olarak gösteriyor.
Sonuç olarak 0.5 ile 0.5 in toplanmasını istiyorum
Yada 1.5 ile 0.5 toplanması

 

[bozacioglu]

Deneme:
sayı1 = CDbl(Textbox1.Value)
sayı2 = Yarımgün

sayı = sayı1 + sayı2

Textbox1 = Format((sayı1 + sayı2), "#0.0")

Sonuç :
Textbox1 = Format(( CDbl(Textbox1.Value) + Yarımgün), "#0.0")
Şimdi Oldu.
Yardımınız sayesinde sonuna .value ekleyince oldu.
İlginize teşekkürler.