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

Ðề tài: Kiểm tra Mã số thuế hợp lệ bằng Excel

  1. 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. 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. 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

  4. 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

  5. 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)

  6. 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.

  7. 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

  8. ôi bữa nay mình có thêm một đứa cháu nữa. uh để chú tìm lại thử.

  9. 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

  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.
  •