السلام عليكم
كبف أحسب irg لقيمة معينة ( الأجر)
لدي كود VB Exel ، كيف أحوله إلى إجراء في الدلفي
تقبلوا شكري
كبف أحسب irg لقيمة معينة ( الأجر)
لدي كود VB Exel ، كيف أحوله إلى إجراء في الدلفي
PHP كود :
Function IRG08(MBRUT As Variant)
Dim TRS As Variant, soumis As Variant
Dim TAX As Variant
Dim IMPAN As Variant
Dim i As Integer
TRS = Array(120000, 360000, 1440000, 9999999)
TAX = Array(0, 20, 30, 35)
IMPAN = Array("0.00", "48000.0", "372000.0", "3367999.65")
i = 1
soumis = Int(MBRUT / 10)
soumis = Int(soumis * 10)
BRTS = Int(soumis * 12)
j = True
Do While j
If BRTS <= TRS(i) Then Exit Do
i = i + 1
Loop
TAUX = TAX(i)
TB = TRS(i - 1)
TD = Val(IMPAN(i - 1))
n = BRTS - TB
IMPOTA = (n * TAUX / 100) + TD
IMPM = IMPOTA / 12
ABAT = (40 * IMPM / 100)
If ABAT < 1000 Then ABAT = 1000
If ABAT > 1500 Then ABAT = 1500
RET = IMPM - ABAT
If RET < 0 Then RET = 0
RTS1 = Int(RET * 10)
RTS1 = RTS1 / 10
IRG08 = RTS1
End Function