Macro Khấu hao TSCĐ

Quyết định số 206/2003/QĐ-BTC về chế độ quản lý, sử dụng và trích khấu hao tài sản cố định (TSCĐ) cho phép áp dụng phương pháp “Khấu hao theo số dư giảm dần có điều chỉnh”. Ví dụ TSCĐ có nguyên giá 10.000.000 (VNĐ), sử dụng trong 10 năm, hệ số điều chỉnh là 2 thì khấu hao hàng năm tính như bảng dưới đây Từ năm thứ 4 trở đi, mức khấu hao hàng năm bằng giá trị còn lại của tài sản cố định (đầu năm thứ 4) chia cho số năm sử dụng còn lại của...
Nội dung trích xuất từ tài liệu:
Macro Khấu hao TSCĐ Macro Khấu hao TSCĐQuyết định số 206/2003/QĐ-BTC về chế độ quản lý, sử dụng và trích khấu hao tàisản cố định (TSCĐ) cho phép áp dụng phương pháp “Khấu hao theo số dư giảmdần có điều chỉnh”. Ví dụ TSCĐ có nguyên giá 10.000.000 (VNĐ), sử dụng trong10 năm, hệ số điều chỉnh là 2 thì khấu hao hàng năm tính như bảng dưới đâyTừ năm thứ 4 trở đi, mức khấu hao hàng năm bằng giá trị còn lại của tài sản cốđịnh (đầu năm thứ 4) chia cho số năm sử dụng còn lại của tài sản cố định(2.160.000 : 2 = 1.080.000). Vì tại năm thứ 4: mức khấu hao theo phương pháp sốdư giảm dần (2.160.000 x 40%= 864.000) thấp h ơn mức khấu hao tính bình quângiữa giá trị còn lại và số năm sử dụng còn lại của tài sản cố định (2.160.000 : 2 =1.080.000).Khá phức tạp! Nếu bạn là kế toán TSCĐ và công ty của bạn có nhiều tài sản ápdụng phương pháp khấu hao này thì bạn sẽ mệt đấy. Tuy nhiên, bạn có thể trút bớt“gánh nặng” này cho... Excel.CHUẨN BỊPhần mềm MS Excel 2000 trở lênQuyết định số 206/2003/QĐ-BTC ngày 12/12/2003 của Bộ Tài chínhTạo các hàm sau (có thể đổi tên)+ YearOfBreak: Hàm xác định năm mà mức khấu hao chuyển từ ph ương pháp sốdư giảm dần sang phương pháp bình quân giá trị còn lại.+ Depreciation: Hàm tính khấu hao TSCĐ trong năm t.+ NetValue: Hàm tính giá trị còn lại của TSCĐ ở cuối năm t nào đó.TẠO HÀMNăm.....GTTSCĐcònlại.......CáchtínhsốKHTSCĐ/năm......MứcKH/năm......KHlũykếcuốinăm1 ...... ..10.000.000 ...........10.000.000 x 40% ...... . . 4.000.000 ....... .4.000.0002 ...... ..6.000.000 ........... 6.000.000 x 40% . ..... . . .2.400.000........... 6.400.0003 ...... ..3.600.000........... ..3.600.000 x 40%...... . . . .1.440.000 ........... 7.840.0004...... .. .2.160.000........... .. 2.160.000 : 2...... . . ...1.080.000 ........... ...8.920.0005...... .. .2.160.000........... .. 2.160.000 : 2...... . . ...1.080.000........... ...10.000.000Thực hiện :1. Mở bảng tính mới2. Chọn Tools->Macro->Visual Basic Editor (Hoặc nhấn Alt+F11)3. Nhấn vào bảng tính của bạn tại cửa sổ VBA project4. Chọn Insert.Module5. Nhập vào các đoạn mã hàm.TẠO ADD-INĐến đây bạn đã có thể tính khấu hao được rồi. Tuy nhiên bạn chỉ có thể tính khấuhao ở bảng tính vừa tạo, để sử dụng các hàm tính khấu hao ở tất cả các bảng tínhthì bạn phải tạo Add-in.1. Nhấn chuột phải vào module đã tạo2. Điền các thông số3. Đóng cửa sổ VBA4. File_Save As chọn (*.xla) ở khung Save as type5. Đặt tên file6. XongĐể gắn add-in vào Excel, bạn vào Tools->Add-in, nhấn Browse, chọn file .xla vừatạo rồi OK.MÃ NGUỒNPublic Function YearOfBreak(cost As Double, life As Integer, rate As Double) AsIntegerDim ret As Integer Gia tri tro veDim depX As Double muc kh nam theo pp so du giam danDim depY As Double muc kh nam theo gia tri con lai / so nam con laiDim i As IntegerFor i = 1 To lifedepX = (cost * ((1 - rate / life) ^ (i - 1))) * (rate / life)depY = (cost * ((1 - rate / life) ^ (i - 1))) / (life - i + 1)If depX End IfNext iYearOfBreak = retEnd FunctionPublic Function Depreciation(cost As Double, life As Integer, rate As Double,year As Integer) As Doublecost la nguyen gia cua tai san co dinhlife la so nam su dung cua tai san co dinhrate he so dieu chinhyear la nam can tinh-------------------------Dim YearBreak As IntegerDim YearsAfBreak As Integer so nam con lai sau diem breakDim NetAtBreak As Double GTCL dau nam breakDim ret As Double Gia tri tro veIf life < year Or year < 1 ThenExit FunctionEnd IfYearBreak = YearOfBreak(cost, life, rate)If year < YearBreak Thenret = cost * ((1 - rate / life) ^ (year - 1)) * (rate / life)ElseNetAtBreak = cost * ((1 - rate / life) ^ (YearBreak - 1))YearsAfBreak = life - YearBreak + 1ret = NetAtBreak / YearsAfBreakEnd IfDepreciation = retEnd FunctionPublic Function NetValue(cost As Double, life As Integer, rate As Double, yearAs Integer) As Doublecost la nguyen gia cua tai san co dinhlife la so nam su dung cua tai san co dinhrate he so dieu chinhyear la nam can tinh--------------------------Dim YearBreak As IntegerDim YearsAfBreak As Integer so nam con lai sau diem breakDim NetAtBreak As Double GTCL dau nam breakDim ret As Double Gia tri tro veIf life < year ThenNetValue = 0Exit FunctionEnd IfIf year Exit FunctionEnd IfYearBreak = YearOfBreak(cost, life, rate)If year < YearBreak Thenret = cost * ((1 - rate / life) ^ year)ElseNetAtBreak = cost * ((1 - rate / life) ^ (YearBreak - 1))YearsAfBreak = life - YearBreak + 1ret = NetAtBreak - NetAtBreak * (year - YearBreak + 1) / YearsAfBreakEnd IfNetValue = retEnd Function