NET ÜCRET DEN BRÜT ÜCRET HESAPLAMASI İLE İLGİLİ MAKRO ???

[fazli77]

Değerli Forumdaşlar,

Çalışanların net ücretinin brüt hesaplaması ile ilgili elinde makro çalışması olan varmı ? Hesaplamaların gelir vergisi tarifesi ve ssk taban tavanınıda dikkate alması gerekiyor.

Yardımcı olan arkadaşlara şimdiden teşekkür eder çalışmalarınızda başarılar dilerim.

 

[bezl]

Function nucret05(bucret, kvm)
If bucret < 488.7 Then
nucret05 = "Brüt ücret asgari ücretten aşağı olamaz."
Exit Function
ElseIf bucret <= 3176.7 Then
sskprim = bucret * 14 / 100
Else
sskprim = 3176.7 * 14 / 100
End If
isprim = sskprim / 14
gvergi = kes05(kvm + bucret - sskprim - isprim) - kes05(kvm)
dvergi = bucret * 6 / 1000
nucret05 = bucret - sskprim - isprim - gvergi - dvergi
End Function

ve

Function bucret05(net_ucret)
On Error GoTo hata:
a = net_ucret * 2
For i = 1 To 100
b = nucret05(a, 0)
If b = net_ucret Then
bucret05 = a
Else
a = a - (b - net_ucret)
End If
Next i
bucret05 = a
GoTo 20
hata: bucret05 = "Brüt tutar asgari ücretten az olamaz."
20
End Function

Function nucret06(bucret, kvm)
If bucret < 531 Then
nucret06 = "Brüt ücret asgari ücretten aşağı olamaz."
Exit Function
ElseIf bucret <= 3451.5 Then
sskprim = bucret * 14 / 100
Else
sskprim = 3451.5 * 14 / 100
End If
isprim = sskprim / 14
gvergi = kes06(kvm + bucret - sskprim - isprim) - kes06(kvm)
dvergi = bucret * 6 / 1000
nucret06 = bucret - sskprim - isprim - gvergi - dvergi
End Function

ve

Function bucret06(net_ucret)
On Error GoTo hata:
a = net_ucret * 2
For i = 1 To 100
b = nucret06(a, 0)
If b = net_ucret Then
bucret06 = a
Else
a = a - (b - net_ucret)
End If
Next i
bucret = a
GoTo 20
hata: bucret06 = "Brüt tutar asgari ücretten az olamaz."
20
End Function

ve

Function kes05(matrah)
If matrah < 6600# Then
kes05 = matrah * 0.15
Else
If matrah < 15000# Then
kes05 = 990# + (matrah - 6600#) * 0.2
Else
If matrah < 30000# Then
kes05 = 2670# + (matrah - 15000#) * 0.25
Else
If matrah < 78000# Then
kes05 = 6420# + (matrah - 30000#) * 0.3
Else
If matrah > 78000# Then
kes05 = 20820# + (matrah - 78000#) * 0.35
End If
End If
End If
End If
End If
End Function

ve

Function kes06(matrah)
If matrah < 7000# Then
kes06 = matrah * 0.15
Else
If matrah < 16000# Then
kes06 = 1050# + (matrah - 7000#) * 0.2
Else
If matrah < 400000# Then
kes06 = 2850# + (matrah - 16000#) * 0.27
Else
If matrah > 40000# Then
kes06 = 9330# + (matrah - 40000#) * 0.35

End If
End If
End If
End If
End Function

 

[bezl]

hepsini bir module kopya dene bakalım olmuş mu?

 

[fazli77]

Sayın bezl,

Hangi makroyu kaydedeceğim nucret06 olan makrolarımı yoksa hepsinimi ?

 

[bezl]

hepsini kaydedin
net ucretten brut'e gelmek için bucret06 formülünü kullanın
06 2006 ve 05 2006 içindir

 

[fazli77]

Teşekkürler formül şimdi çalışyor :dua2: :dua2: