Trang 1/3 1 2 3 cuốicuối
Hiển thị kết quả tìm kiếm từ 1 đến 10 trên tổng số: 21
  1. #1
    Tham gia ngày
    12 2006
    Bài gởi
    14
    Cảm ơn
    4
    Được cảm ơn 11 lần trong 6 bài viết

    Kiểm tra Mã số thuế hợp lệ bằng Excel

    Chào các bác,
    Theo tôi được biết mã số được tạo theo một quy luật nhất định, với 10 con số đầu người ta có thể kiểm tra được MST bạn gõ vào có đúng hay không.
    Bác nào có thể tạo ra 1 file hoặc 1 hàm để kiểm tra tính hợp lệ của mã số thuế được không? xin cảm ơn !

  2. #2
    Tham gia ngày
    08 2006
    Bài gởi
    3,267
    Cảm ơn
    1,733
    Được cảm ơn 3,747 lần trong 1,767 bài viết
    Trích Nguyên văn bởi gnurtel
    Chào các bác,
    Theo tôi được biết mã số được tạo theo một quy luật nhất định, với 10 con số đầu người ta có thể kiểm tra được MST bạn gõ vào có đúng hay không.
    Bác nào có thể tạo ra 1 file hoặc 1 hàm để kiểm tra tính hợp lệ của mã số thuế được không? xin cảm ơn !
    Hình như trong trang web của Tổng cục Thuế có nói về vấn đề này đấy. Bạn thử tham khảo xem.


    Thân!
    -----------------------------------------------------------------------------------
    Một ngày mới bắt đầu bằng ÁNH MẮT - NỤ CƯỜI !!!!

    -------------------------------------------------------------------------
    TanPhu Investment Co.,ltd
    http://skstanphu.com
    tronghieu@skstanphu.com

  3. Thành viên sau cảm ơn Mr Okebab về bài viết này:


  4. #3
    Tham gia ngày
    08 2006
    Bài gởi
    3,815
    Cảm ơn
    4,143
    Được cảm ơn 4,423 lần trong 2,270 bài viết
    Gọi số thứ 1 là S1, 9 là S9
    MOD(10-(S1*31+S2*29+S3*23+S4*19+S5*17+S6*13+S7*7+S8*5+S9* 3),11)
    Bạn check lại có OK không. Còn đây là addins tôi lấy trên GPE.
    Function tccheck(mst) As Boolean
    If Len(mst & "") > 11 Then
    MsgBox "Tax code checked must have as most 10 digits"
    Exit Function
    End If
    If IsNumeric(mst) Then
    msttext = Format(mst, "0000000000")
    Else
    msttext = mst
    End If

    skt = CDbl(Mid(msttext, 1, 1)) * 31
    skt = skt + CDbl(Mid(msttext, 2, 1)) * 29
    skt = skt + CDbl(Mid(msttext, 3, 1)) * 23
    skt = skt + CDbl(Mid(msttext, 4, 1)) * 19
    skt = skt + CDbl(Mid(msttext, 5, 1)) * 17
    skt = skt + CDbl(Mid(msttext, 6, 1)) * 13
    skt = skt + CDbl(Mid(msttext, 7, 1)) * 7
    skt = skt + CDbl(Mid(msttext, 8, 1)) * 5
    skt = skt + CDbl(Mid(msttext, 9, 1)) * 3

    tccheck = (CDbl(Mid(msttext, 10)) = 10 - skt Mod 11)
    End Function

  5. #4
    Tham gia ngày
    01 2007
    Bài gởi
    80
    Cảm ơn
    22
    Được cảm ơn 27 lần trong 11 bài viết
    Mình xin giải thích rõ hơn một chút, quy luật của một mã số thuế bất kỳ là:
    Gọi số thứ 1 là S1, 9 là S9; số thứ 10 là S10
    Nếu giá trị của MOD(10-(S1*31+S2*29+S3*23+S4*19+S5*17+S6*13+S7*7+S8*5+S9* 3),11) bằng đúng S10 thì mã số thuế đấy là đúng đấy các bạn ạ.

    Và vì mã số thuế có thể có lúc là "0101567589-001" nên mình xin mạn phép sửa đổi code trên một tẹo để nó kiểm tra đúng trong mọi trường hợp:
    Code:
    Function tccheck(mst1) As Boolean
    mst = Mid(mst1, 1, 10)
    If IsNumeric(mst) Then
    msttext = Format(mst, "0000000000")
    Else
    msttext = mst
    End If
    skt = CDbl(Mid(msttext, 1, 1)) * 31
    skt = skt + CDbl(Mid(msttext, 2, 1)) * 29
    skt = skt + CDbl(Mid(msttext, 3, 1)) * 23
    skt = skt + CDbl(Mid(msttext, 4, 1)) * 19
    skt = skt + CDbl(Mid(msttext, 5, 1)) * 17
    skt = skt + CDbl(Mid(msttext, 6, 1)) * 13
    skt = skt + CDbl(Mid(msttext, 7, 1)) * 7
    skt = skt + CDbl(Mid(msttext, 8, 1)) * 5
    skt = skt + CDbl(Mid(msttext, 9, 1)) * 3
    tccheck = (CDbl(Mid(msttext, 10)) = 10 - skt Mod 11)
    End Function
    thay đổi nội dung bởi: levanduyet, 05-05-09 lúc 08:36 AM

  6. Có 2 thành viên cảm ơn NHG về bài viết này:


  7. #5
    Tham gia ngày
    01 2007
    Bài gởi
    2
    Cảm ơn
    1
    Được cảm ơn 0 lần trong 0 bài viết
    Bạn có thể tra mã số thuế trong trang web của Tổng cục Thuế, nhưng trong đó họ cảnh báo đó chỉ là để tham khảo thôi chứ mình thấy cũng chưa cập nhật đâu. (nhưng mình cũng hay tra thấy cũng khá chính xác đấy)

  8. #6
    Tham gia ngày
    06 2006
    Nơi Cư Ngụ
    TP Hội An
    Bài gởi
    2,128
    Cảm ơn
    3,733
    Được cảm ơn 5,403 lần trong 1,680 bài viết
    Ah cái này đã có bên www.webketoan.com nếu bạn tìm không ra mình sẽ tìm ở nhà và gửi cho bạn.

  9. Thành viên sau cảm ơn yeudoi về bài viết này:


  10. #7
    Tham gia ngày
    08 2007
    Nơi Cư Ngụ
    Bình Dương
    Bài gởi
    11
    Cảm ơn
    143
    Được cảm ơn 0 lần trong 0 bài viết
    Chú yeudoi ơi bên đó em tìm hỏng ra , hay là chú share qua email của cháu nha bdnatuan@gmail.com
    thay đổi nội dung bởi: bdnatuan, 30-08-07 lúc 12:48 PM

  11. #8
    Tham gia ngày
    06 2006
    Nơi Cư Ngụ
    TP Hội An
    Bài gởi
    2,128
    Cảm ơn
    3,733
    Được cảm ơn 5,403 lần trong 1,680 bài viết
    ôi bữa nay mình có thêm một đứa cháu nữa. uh để chú tìm lại thử.

  12. #9
    Tham gia ngày
    06 2006
    Nơi Cư Ngụ
    TP Hội An
    Bài gởi
    2,128
    Cảm ơn
    3,733
    Được cảm ơn 5,403 lần trong 1,680 bài viết
    Trích Nguyên văn bởi bdnatuan
    Chú yeudoi ơi bên đó em tìm hỏng ra , hay là chú share qua email của cháu nha bdnatuan@gmail.com
    Đây là file của bạn nào mình không nhớ nữa.Bạn xem thử
    Tập tin đính kèm Tập tin đính kèm

  13. Có 5 thành viên cảm ơn yeudoi về bài viết này:


  14. #10

    Cong thuc thue C#

    Private Function MSTcheck(ByVal mst1) As Boolean

    Dim msttext, skt, mst As String

    If Len(mst1 & "") = 13 Or Len(mst1 & "") = 10 Then
    mst = Mid(mst1, 1, 10)
    If IsNumeric(mst) Then
    msttext = mst
    Else

    Exit Function
    End If
    msttext = mst

    skt = CDbl(Mid(msttext, 1, 1)) * 31
    skt = skt + CDbl(Mid(msttext, 2, 1)) * 29
    skt = skt + CDbl(Mid(msttext, 3, 1)) * 23
    skt = skt + CDbl(Mid(msttext, 4, 1)) * 19
    skt = skt + CDbl(Mid(msttext, 5, 1)) * 17
    skt = skt + CDbl(Mid(msttext, 6, 1)) * 13
    skt = skt + CDbl(Mid(msttext, 7, 1)) * 7
    skt = skt + CDbl(Mid(msttext, 8, 1)) * 5
    skt = skt + CDbl(Mid(msttext, 9, 1)) * 3
    MSTcheck = (CDbl(Mid(msttext, 10)) = 10 - skt Mod 11)
    End If
    End Function

Trang 1/3 1 2 3 cuốicuối

Thông tin về chủ đề này

Users Browsing this Thread

Hiện có 1 người đang xem đề tài này. (0 thành viên và 1 khách)

Đề tài tương tự

  1. Tài liệu h/dẫn xác định TN tính thuế, quyết toán thuế TNDN năm 2012, thuế Nhà thầu
    Viết bởi Kế Toán Già Gân trong chuyên mục Bổ sung kiến thức Kế Toán
    Trả lời: 0
    Bài mới gởi: 17-09-12, 03:27 PM
  2. Bộ cài hỗ trợ Excel 2003 để gửi phụ lục excel kê khai thuế qua mạng
    Viết bởi trung.aof trong chuyên mục Excel và Kế Toán
    Trả lời: 0
    Bài mới gởi: 30-08-12, 11:15 PM
  3. Tặng File in tờ khai mã số thuế TNCN trên Excel 2010 - Kết xuất ra File gửi cục thuế
    Viết bởi cao mạnh sơn trong chuyên mục Bổ sung kiến thức Kế Toán
    Trả lời: 1
    Bài mới gởi: 24-06-11, 10:35 AM
  4. Xung quanh các vấn đề thuế miễn giảm, hoàn thuế GTGT-thuế TNDN hạch toán như thế nào?
    Viết bởi Kế Toán Già Gân trong chuyên mục Bổ sung kiến thức Kế Toán
    Trả lời: 0
    Bài mới gởi: 31-08-09, 08:51 AM
  5. Thay đổi thuế Thuế NK và thuế GTGT hàng NK thì định khoản thế nào?
    Viết bởi ThuNghi trong chuyên mục Bổ sung kiến thức Kế Toán
    Trả lời: 7
    Bài mới gởi: 17-07-08, 11:09 AM

Bookmarks

Bookmarks

Quyền Sử Dụng Ở Diễn Ðàn

  • Bạn không thể đăng đề tài mới
  • Bạn không thể đăng trả lời
  • Bạn không thể đăng file đính kèm.
  • Bạn không thể sửa bài viết.
  •  

Mudim v0.8 Tắt VNI Telex Viqr Tổng hợp
Chính tả Bỏ dấu kiểu mới  [Bật/Tắt (F9)]