Soru Mevcut kullanılan makronun bir bölümüne ekleme yapmak.

[SeviLmeyen]

Merhaba iyi forumlar dilerim.
Hesaplama yapan bir makro mevcut. Bazı hesaplama değişiklikleri ile birlikte makro içinde de değişiklik yapmak zorunda kaldık. Lakin makroyu bozamıyorum çünkü diğer hesaplama kısımlarında değişiklik olmadı. Makro biraz karmaşık geldiğinden değiştirilecek alanı tahminen belirleyip aşağıya bırakıyorum.
If (REJIM = "İHRACAT" Or REJIM = "TRANSİT") Then
If (ARAC_TIPI = "OTOMOBİL" Or ARAC_TIPI = "PICKUP") Then
ARDIYE_UNRORO = GUN * 2.75
End If
Her beklediği gün kadar * 2,75 olarak hesaplama yapılıyor.
Son değişimde ise;
0-20 Gün arası * 2,75
21-30 Gün arası * 2,75 + %50
31-90 Gün arası * 2,75 %100

Örneğin; 37 gün beklemesi olan bir Otomobil için;

0-20 Gün arası * 2,75 : 55,00 (20 Gün)
21-30 Gün arası * 4,13 : 41,30 ( 10 Gün)
31-90 Gün arası * 5,50 : 38,50 ( 7 Gün)

Toplamda : 134,75

olarak nasıl revize edebilirim?

Yardımlarınızı bekler, mutlu günler dilerim.

 

[YUSUF44]

ARDIYE_UNRORO = GUN * 2.75

yerine aşağıdaki kodları deneyin:

        If GUN > 30 Then
            ARDIYE_UNRORO = 20 * 2.75 + 10 * 2.75 * 1.5 + (GUN - 30) * 2.75 * 2
        ElseIf GUN > 20 Then
            ARDIYE_UNRORO = 20 * 2.75 + (GUN - 20) * 2.75 * 1.5
        Else
            ARDIYE_UNRORO = GUN * 2.75
        End If

 

[SeviLmeyen]

ARDIYE_UNRORO = GUN * 2.75

yerine aşağıdaki kodları deneyin:

        If GUN > 30 Then
            ARDIYE_UNRORO = 20 * 2.75 + 10 * 2.75 * 1.5 + (GUN - 30) * 2.75 * 2
        ElseIf GUN > 20 Then
            ARDIYE_UNRORO = 20 * 2.75 + (GUN - 20) * 2.75 * 1.5
        Else
            ARDIYE_UNRORO = GUN * 2.75
        End If

Yusuf Bey öncelik

ARDIYE_UNRORO = GUN * 2.75

yerine aşağıdaki kodları deneyin:

        If GUN > 30 Then
            ARDIYE_UNRORO = 20 * 2.75 + 10 * 2.75 * 1.5 + (GUN - 30) * 2.75 * 2
        ElseIf GUN > 20 Then
            ARDIYE_UNRORO = 20 * 2.75 + (GUN - 20) * 2.75 * 1.5
        Else
            ARDIYE_UNRORO = GUN * 2.75
        End If

Yusuf Bey öncelikle vakit ayırdığınız için teşekkür ederim.
Uyarladım, aynen oldu. Sonucu verdi. Çok Teşekkür ederim. Bir süre karşılaştırmalı devam ederim. Bir tutarsızlık olur ise aynı konu altında tekrar yazarım.

Mutlu günler dilerim.