Thực trạng về kế toán DNVVN ở VN hiện nay


Tầm quan trọng của công tác kế toán DN mới chỉ được xác định ở nước ta về mặt lý thuyết. Trên thực tế, công tác kế toán DN đã và đang bị coi thường.
Tình trạng coi thường công tác kế toán trong nhiều DNNVN, trước hết và chủ yếu là trong các DNNVV đã gây ra những hậu quả âm thầm nhưng nghiêm trọng. Không ít DN, sau hai ba năm, khi có thanh tra thuế mới vội vàng "chạy" để lập lại các sổ kế toán và báo cáo tài chính. Nghiêm trọng hơn, có những DN, mời đơn vị kiểm toán để kiểm toán báo cáo tài chính nhằm thực hiện "giấc mơ lên sàn" nhưng đơn vị kiểm toán đã từ chối vì công tác kế toán... chưa đạt yêu cầu!
Trước hết, trong các DN, đặc biệt là các DN nhỏ và vừa, công tác kế toán chỉ là "công cụ để đối phó" với việc kiểm tra, quyết toán thuế. Tình trạng "hai trong một" - hai hệ thống sổ kế toán xảy ra khá phổ biến, nếu không muốn cho rằng, ở tất cả các DN nhỏ và vừa.

Hai hệ thống cùng tồn tại

Hệ thống thứ nhất được gọi là "kế toán nội bộ" chỉ có chủ DN được biết. Đó là hệ thống "sổ chợ", không theo bất kỳ quy định nào của pháp luật. Hệ thống thứ hai được gọi là "kế toán thuế". Hệ thống này, về hình thức, theo đúng quy định của pháp luật nhưng thông tin, số liệu trong đó hoàn toàn không phản ánh đúng thực tiễn hoạt động kinh doanh. Trong các DN ngoài quốc doanh, số liệu kế

toán phản ánh tình trạng "lãi thật, lỗ giả". Không ít DN, sau một số năm hoạt động số lỗ cộng dồn lớn hơn nhiều lần vốn điều lệ nhưng chủ DN vẫn rất nhiều tiền để mua bán bất động sản và mua sắm các tài sản đắt tiền. Ở các DN nhà nước (bao gồm cả các Cty cổ phần do Nhà nước nắm cổ phần chi phối) thì tình hình ngược lại, hoạt động kinh doanh thua lỗ nghiêm trọng nhưng trên báo cáo tài chính vẫn có lãi, vẫn chia tiền thưởng và thậm chí có Cty vẫn "lên sàn" giao dịch của thị trường chứng khoán.

Nhân lực không được trọng dụng

Trong những năm qua, đội ngũ cán bộ kế toán được đào tạo khá nhiều. Song, sự gia tăng về lượng không tương xứng với sự nâng cao về chất. Thêm vào đó, cùng với phương thức "gia đình trị" trong quản lý các DN VN, các cán bộ kế toán chưa được chủ DN trọng dụng, không có điều kiện để học tập, bồi dưỡng cập nhật kiến thức và nâng cao năng lực chuyên môn. Có nhiều DN thuê kế toán theo mùa vụ. Vì vậy, đội ngũ kế toán trong các DN không ổn định, gây khó khăn lớn cho việc bảo đảm yêu cầu liên tục trong công tác kế toán.

Doanh nghiệp thờ ơ với Luật?

Về việc quản lý nhà nước đối với công tác kế toán DN, Luật Kế toán và các văn bản hướng dẫn thi hành đã được ban hành và có hiệu lực. Song, việc triển khai Luật vào thực tiễn của các DN chưa được quan tâm. Công tác kiểm tra kế toán theo các điều 35 đến 38 Luật Kế toán chưa được triển khai. Cho đến nay, chỉ cơ quan thuế quan tâm, kiểm tra công tác kế toán của DN. Song, việc kiểm tra công tác kế toán DN của cơ quan thuế chỉ nhằm mục đích thuế, do đó không thể toàn diện. Hơn nữa, theo quy định hiện hành, cơ quan thuếë không có thẩm quyền trong việc xử lý phạt vi phạm hành chính trong lĩnh vực kế toán. Trong điều kiện thực tế ở nước ta hiện nay, những sai sót của DN về công tác kế toán rất dễ dàng được "cho qua" nhờ các "cuộc đàm phán tế nhị"!

Để từng bước đưa chế độ kế toán VN hòa nhập cùng chế độ kế toán của các nước trên thế giới, những năm qua, Bộ Tài chính đã tích cực nghiên cứu và ban hành được 26 chuẩn mực kế toán. Đó là một cố gắng lớn, đáng ghi nhận. Song, việc nghiên cứu, ban hành các chuẩn mực kế toán là quan trọng nhưng quan trọng hơn là đưa chúng vào thực tiễn. Nghiên cứu, tiếp thu các chuẩn mực kế toán là công việc rất phức tạp, ngay cả với những cán bộ kế toán được đào tạo chính quy. Do đó, ban hành các chuẩn mực kế toán chưa phải đã là hoàn thành nhiệm vụ. Thực tiễn cho thấy, ở không ít DN nhỏ và vừa hiện nay, còn rất nhiều cán bộ kế toán như những "con nai vàng ngơ ngác" khi nghe nói đến chuẩn mực kế toán!

Đã đến lúc, gióng lên hồi chuông báo động về tình trạng coi thường công tác kế toán trong các DNVN.
Theo DĐDN

Thủ thuật Excel trong kế toán

Trong công tác kế toán việc ứng dụng Excel là hết sức cần thiết tuy nhiên để tăng tiện ích trong công việc chúng ta cần sử dụng một số thủ thuật như tạo hàm người dùng chuyển số thành chữ. Tôi sẽ giới thiệu với các bạn bộ code tôi viết trong ứng dụng VBA:

1. Hàm chuyển số thành chữ:

Public Function Docso(number)
' By Lam thue ke toan
' Date 25/12/2006
' Dich tu so ra thanh tien voi phong chu .VN

' Kiem tra truong hop dac biet voi so 0 va 1
If number = 0 Then
Dich = "Kh«ng."
ElseIf number = 1 Then
Dich = "Mét."
Else
' Neu khong phai 2 truong hop tren thi tiep tuc lam
so = Array("kh«ng", "mét", "hai", "ba", "bèn", "n¨m", "s¸u", "b¶y", "t¸m", "chÝn") 'mang so
DV = Array(".", "ngh×n", "triÖu", "tû", "ngh×n") 'mang don vi
SL = Len(Round(number, 0)) 'So luong ky tu trong chuoi da loai cac chu so thap phan
cap = Round(SL / 3 + 0.2, 0) 'Tinh xem chuoi nam trong pham vi mang don vi nao
Thua = SL Mod 3 'So ky tu cua mang don vi lon nhat
' Vong lap mang don vi
For i = 1 To cap
'Tinh so ky tu cua mang dang xet, Kiem tra xem co phai mang lon nhat khong
If i = cap And Thua <> 0 Then
b = Thua
Else
b = 3
End If
'Loc lay mang don vi can doc
ai = Left(Right(Round(number, 0), i * 3), b)
SLi = Len(ai)
'Kiem tra truong hop dac biet mang don vi dang xet bang khong het
If ai = "000" Then
If i = 1 Then
Dich = "."
Else
Dich = Dich
End If

Else
'Vong lap doc ky tu trong mang dang xet
For j = 1 To b
Hang = Array(DV(i - 1), "m­¬i", "tr¨m") 'Mang don vi tinh cua ky tu
Docso = Mid(ai, (b + 1 - j), 1) 'Loc lay ky tu can doc
'Kiem tra truong hop dac biet ky tu bang khong
If Docso = 0 Then
If j = 1 Then
Doc = "" & Hang(j - 1)
danhdau1 = 1 'Thong bao ky tu don vi cua mang doc bang khong
ElseIf j = 2 Then
If danhdau1 = 1 Then
Doc = ""
danhdau2 = 1 'Thong bao 2 ky tu dau tien cua mang den bang khong
Else
Doc = "linh" 'Truong hop dac biet khi chu so hang chuc bang khong
End If
Else
If danhdau2 = 1 Then
Doc = "" 'Truong hop dac biet khi ca 3 chu so trong mang deu bang khong
Else
Doc = so(Docso) & " " & Hang(j - 1)
End If
End If
ElseIf Docso = 1 And j = 2 Then
Doc = "m­êi" 'Tr­¬ng hop dac biet khi ky tu hang chuc cua mang bang mot
ElseIf Docso = 5 And j = 1 And b <> 1 Then
Doc = "l¨m" & " " & Hang(j - 1) 'Truong hop dac biet khi ky tu hang don vi cua mang bang 5
ElseIf Docso = 4 And j = 1 And SL <> 1 Then
Doc = "t­" & " " & Hang(j - 1) 'Truong hop dac biet khi ky tu hang don vi cua mang bang 4
Else
Doc = so(Docso) & " " & Hang(j - 1)
End If
Dich = Doc & " " & Dich 'Ket hop cac so da doc
Next
'Dua cac danh dau ve gia tri ban dau
danhdau1 = 0
danhdau2 = 0
End If
Next

End If

Docso = UCase(Left(Dich, 1)) & Mid(Dich, 2) 'Dua ra ket qua va sua ky tu dau tien thanh viet hoa.

End Function


2. Hàm đọc số tiền:

Public Function Doctien(sotien)
' By Lam thue ke toan
' Date 25/12/2006
' Dich tu so ra thanh tien voi phong chu .VN

' Kiem tra truong hop dac biet voi so 0 va 1
If sotien = 0 Then
Dich = "Kh«ng ®ång."
ElseIf sotien = 1 Then
Dich = "Mét ®ång."
Else
' Neu khong phai 2 truong hop tren thi tiep tuc lam
so = Array("kh«ng", "mét", "hai", "ba", "bèn", "n¨m", "s¸u", "b¶y", "t¸m", "chÝn") 'mang so
DV = Array("®ång.", "ngh×n", "triÖu", "tû", "ngh×n") 'mang don vi
SL = Len(Round(sotien, 0)) 'So luong ky tu trong chuoi da loai cac chu so thap phan
cap = Round(SL / 3 + 0.2, 0) 'Tinh xem chuoi nam trong pham vi mang don vi nao
Thua = SL Mod 3 'So ky tu cua mang don vi lon nhat
' Vong lap mang don vi
For i = 1 To cap
'Tinh so ky tu cua mang dang xet, Kiem tra xem co phai mang lon nhat khong
If i = cap And Thua <> 0 Then
b = Thua
Else
b = 3
End If
'Loc lay mang don vi can doc
ai = Left(Right(Round(sotien, 0), i * 3), b)
SLi = Len(ai)
'Kiem tra truong hop dac biet mang don vi dang xet bang khong het
If ai = "000" Then
If i = 1 Then
Dich = "®ång."
Else
Dich = Dich
End If

Else
'Vong lap doc ky tu trong mang dang xet
For j = 1 To b
Hang = Array(DV(i - 1), "m­¬i", "tr¨m") 'Mang don vi tinh cua ky tu
Docso1 = Mid(ai, (b + 1 - j), 1) 'Loc lay ky tu can doc
'Kiem tra truong hop dac biet ky tu bang khong
If Docso1 = 0 Then
If j = 1 Then
Doc = "" & Hang(j - 1)
danhdau1 = 1 'Thong bao ky tu don vi cua mang doc bang khong
ElseIf j = 2 Then
If danhdau1 = 1 Then
Doc = ""
danhdau2 = 1 'Thong bao 2 ky tu dau tien cua mang den bang khong
Else
Doc = "linh" 'Truong hop dac biet khi chu so hang chuc bang khong
End If
Else
If danhdau2 = 1 Then
Doc = "" 'Truong hop dac biet khi ca 3 chu so trong mang deu bang khong
Else
Doc = so(Docso1) & " " & Hang(j - 1)
End If
End If
ElseIf Docso1 = 1 And j = 2 Then
Doc = "m­êi" 'Tr­¬ng hop dac biet khi ky tu hang chuc cua mang bang mot
ElseIf Docso1 = 5 And j = 1 And b <> 1 Then
Doc = "l¨m" & " " & Hang(j - 1) 'Truong hop dac biet khi ky tu hang don vi cua mang bang 5
ElseIf Docso1 = 4 And j = 1 And SL <> 1 Then
Doc = "t­" & " " & Hang(j - 1) 'Truong hop dac biet khi ky tu hang don vi cua mang bang 4
Else
Doc = so(Docso1) & " " & Hang(j - 1)
End If
Dich = Doc & " " & Dich 'Ket hop cac so da doc
Next
'Dua cac danh dau ve gia tri ban dau
danhdau1 = 0
danhdau2 = 0
End If
Next

End If

Doctien = UCase(Left(Dich, 1)) & Mid(Dich, 2) 'Dua ra ket qua va sua ky tu dau tien thanh viet hoa.

End Function

Để tạo được hàm người dùng các bạn làm như sau:
Mở một file Excel mới vào Tools, Macro , Visual Basic Editor. Ở đây sẽ xuất hiện giao diện VBA các bạn chọn Insert, Module rồi copy 2 đoạn mã trên vào cửa sổ Module mới mở. Chọn Save as dưới dạng Add-in (có dạng *.xla).
Copy file xla vừa làm rồi mở một file Excel mới vào Tools, Add-in, trong hộp thoại Add-in chọn Browse, paste file xla vào cửa sổ Add-in vừa được mở ra, OK. Chở lại hộp thoại Add-in bấm chọn vào dòng Đổi số ra chữ, OK.
Thế là bạn đã có thể sử dụng 2 hàm docso() và doctien() giống như các hàm excel khác.
Chúc các bạn thành công.