Tarihlerin kesirli olarak artırılması ve eksiltilmesi

[gezgin-49]

Sayın üstadlarım.

ekte gönderdiğim dosyada Açılan formda suç maddesini girince (suç maddeleri Excelin Sayfa 1 A hücresinde, suç türleri ise aynı sayfa B hücresinde) hemen altındaki textboxta da suç türünün aynı anda gözükmesi gerekiyor. Sanığa verilen ilk cezanın yıl-ay-gün, gün adli para ve para cezası şeklinde giriş yapıldığında bir alttaki textboxta artırma ve eksiltme oranları varsa

yani kullanıcı (1/6) oranında eksilt dediğinde yıl-ay-gün, gün adli para ve para cezalarının hepsinin 1/6 oranında eksilmesi,

artır dediğinde ise aynı oranda artırılması gerekiyor. örnek dosyayı ekliyorum. bu hususta yardımlarınızı bekliyorum.

 

[Korhan Ayhan]

Deneyiniz.

Private Sub CommandButton14_Click()
    g1 = Val(TextBox37) * (1 + CDbl(Evaluate("=" & TextBox43))) * 365
    g2 = Val(TextBox38) * (1 + CDbl(Evaluate("=" & TextBox43))) * 30
    g3 = Val(TextBox39) * (1 + CDbl(Evaluate("=" & TextBox43)))
    g4 = g1 + g2 + g3
    TextBox37 = Int(g4 / 365)
    TextBox38 = Int((g4 - TextBox37 * 365) / 30)
    TextBox39 = Int(g4 - TextBox37 * 365 - TextBox38 * 30)
    TextBox40 = Int(Val(TextBox40) * (1 + CDbl(Evaluate("=" & TextBox43))))
End Sub

Private Sub CommandButton15_Click()
    g1 = Val(TextBox37) * (1 - CDbl(Evaluate("=" & TextBox43))) * 365
    g2 = Val(TextBox38) * (1 - CDbl(Evaluate("=" & TextBox43))) * 30
    g3 = Val(TextBox39) * (1 - CDbl(Evaluate("=" & TextBox43)))
    g4 = g1 + g2 + g3
    TextBox37 = Int(g4 / 365)
    TextBox38 = Int((g4 - TextBox37 * 365) / 30)
    TextBox39 = Int(g4 - TextBox37 * 365 - TextBox38 * 30)
    TextBox40 = Int(Val(TextBox40) * (1 - CDbl(Evaluate("=" & TextBox43))))
End Sub

 

[gezgin-49]

Sayın Üstadım Korhan Bey, Allah razı olsun, yalnız ben söylemeyi unuttum, eksiltme ve artırma yapıldığı zaman yıl kendi içinde artacak, ay kendi içinde artacak, gün de kendi içinde artacak,

mesela 1 yıl 8 ay 10 gün'ün 3/8 oranında artır dediğim zaman sonucun 2 Yıl 3 Ay 28 gün olarak değil 1 yıl 15 ay 28 gün olarak hesaplaması gerekiyor bu hususta yardımlarınızı bekliyorum.

 

[gezgin-49]

Artırma oranına göre yıl kendi içinde, ay kendi içinde, gün de kendi içinde artacak