|
Function acSimpTax(LuYear As Integer, LuWage As Long, LuFamily As Byte, Optional TaxTableName As String = "HD소득세조견표") As Long
' ■ 조회(Lu:Lookup) 연도,급여,가족을 간이세액표(TaxTableName)에 적용하여 세액획득
On Error GoTo ErrProcess
If LuFamily > 11 Then LuFamily = 11
LuYear = DMax("적용연도", TaxTableName, "적용연도<=" & LuYear)
LuWage = DMax("이상기준", TaxTableName, "적용연도=" & LuYear & " AND 이상기준<=" & LuWage / 1000)
acSimpTax = DFirst("가족수" & Format(LuFamily, "00"), TaxTableName, "적용연도=" & LuYear & " AND 이상기준=" & LuWage)
ErrProcess:
End Function
간이세액표는 'HD소득세조견표" 테이블에 있구요.
필드구성은 적요연도, 이상기준, 미만기준, 가족수01, 가족수02 ... |
|