Toplama Problemi

[Huseyinkis]

Bir Maaş Programı yapmaya çalışıyorum ama problem üstüne problem çıkıyor. (((


Dim a1, a2, a3, a4, a5 As Double veya long ikisinide denedim

a1 = CDbl(UserForm1.Tutar1.Text) =1000
a2 = CDbl(UserForm1.Ekon11.Text) =100
a3 = CDbl(UserForm1.Ekon12.Text) =100,50
a4 = CDbl(UserForm1.Ekon13.Text) =100,75
a5 = CDbl(UserForm1.Ekon14.Text) =100,80
AAA = a1 + a2 + a3 + a4 + a5
Brut = 0


Normalde macroda işlem yaparken AAA*0.20 yani ayıracı nokta olarak kullandırıyor..
textbox a yukarıdaki rakalmalrın ayıracını "." yaparsam noktayı gormuyor ve işlem sonucu olarak.


1000+100+10050+10075+10080 = 31305 toplamını veriyor

eğer ayıracı "," yaparsam rakamların toplamını

1000+100+100,50+100,75+100,80=1403 olarak veriyor yani bu seferde küsüratları yuvarlıyor yaklaşık 3 saattir sitede bulduğum tüm formulleri denedim(

bana burda textboxların toplamını alırken vaya başka bir işlem yaparken yuvarlamadan toplam alacak bir işlem varmı.. veya ben nerde hata yapıyo olabilirim ...


yardımlarınız için şimdiden teşekkürler.

 

[muratozmenler]

TextBox4.Value = Format(Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text), "0.00")

 

[Huseyinkis]

slm .


bu formulu denedim işe yaramıyo hatayı birde burdaki işlemde anlatayım belki daha anlaşılır olur.

Private Sub TextBox206_Change()
Dim T1, T2, x2, x1 As Long

If UserForm1.msi51.Text = "" Then
UserForm1.msi51.Text = 0 + 0
ElseIf UserForm1.msi101.Text = "" Then
UserForm1.msi101.Text = 0 + 0
ElseIf UserForm1.Tutar1.Text = "" Then
UserForm1.Tutar1.Text = 0 + 0
ElseIf UserForm1.Gun1.Text = "" Then
UserForm1.Gun1.Text = 30
End If
T1 = (((UserForm1.Tutar1.Text / UserForm1.Gun1.Text) / 7.5) * 1.5)
T2 = (((UserForm1.Tutar1.Text / UserForm1.Gun1.Text) / 7.5) * 2)
x1 = Round((T1 * UserForm1.msi51.Text), 2)
x2 = Round((T2 * UserForm1.msi101.Text), 2)
UserForm1.TextBox206.Text = x1 + x2
End Sub



yukarıda textbox206 sonucunu ban x2 de 88,89 veriyor ama x1 de yuvarlama yaparak 67 olarak veriyor..

eğer yukarıdan "Dim T1, T2, x2, x1 As Long" bu kızmı "Dim T1, T2, x1, x2 As Long" olarak değiştirirsem x2 yi 89 x1 66,67 olarak veriyor tabi bunu ben tırlatmak uzereyim bunu her toplama işleminde yapıyor lutfen bir çare bulun

Dim T1, T2, x2 As Long
Dim x1 As Long

bu şekilde yaparsam x1 de x2 de yuvarlıyor bunuda dendim neden nerde hata yapıyorum.

Val() kullanırsam zaten 80,50 de direk 80 goruyo ayrı yuvarlama yapıyo..
ben bu işlemi çözemedim acaba benim bilgisayardamı probelm var.

 

[Korhan Ayhan]

Selamlar,

Konuyla ilgili bir örnek dosya eklermisiniz.