Phần mềm kế toán Fast 2008.f đây

Mình có hàm tính mã kiểm tra của FAST10, gửi các bác xài chơi, nếu được thì Alô cho mình hay nhé. Tel: 0907472672 . E-mail: phamhqthanh@yahoo.com

1. Viết bằng visual Foxpro
*FUNCTION makiemtra_fast10
LPARAMETERS x
x1 = val(subs(x,1,1))
x2= val(subs(x,2,1))
x3 = val(subs(x,3,1))
x4 = val(subs(x,4,1))
x5 = val(subs(x,5,1))
x6 = val(subs(x,6,1))
x7 = val(subs(x,7,1))
xx1 = mod(x1+x2+x3+x4+x5+x6,10)
xx2 = mod(xx1*x3+1,10)
xx3 = mod(xx2*x4+5,10)
xx4 = mod(xx3*x5+6,10)
xx5 = mod(xx4*x6+7,10)
xx6 = mod(x2+x4+x6,10)
mkt = str(xx1,1)+str(xx2,1)+str(xx3,1)+str(xx4,1)+str(xx5,1)+str(xx6,1)
RETURN mkt
*ENDFUNC

2. Viết bằng VBA
Function makiemtra_fast10(x As String)
x1 = Val(Mid(x, 1, 1))
x2 = Val(Mid(x, 2, 1))
x3 = Val(Mid(x, 3, 1))
x4 = Val(Mid(x, 4, 1))
x5 = Val(Mid(x, 5, 1))
x6 = Val(Mid(x, 6, 1))
x7 = Val(Mid(x, 7, 1))
xx1 = (x1 + x2 + x3 + x4 + x5 + x6) Mod 10
xx2 = (xx1 * x3 + 1) Mod 10
xx3 = (xx2 * x4 + 5) Mod 10
xx4 = (xx3 * x5 + 6) Mod 10
xx5 = (xx4 * x6 + 7) Mod 10
xx6 = (x2 + x4 + x6) Mod 10
mkt = Trim(Str(xx1)) + Trim(Str(xx2)) + Trim(Str(xx3)) + Trim(Str(xx4)) + Trim(Str(xx5)) + Trim(Str(xx6))
makiemtra_fast10 = mkt
End Function

Chúc các bác thành công!

vocucdn mã hoá được tên công ty thật là tuyệt vời. vocucdn có thể hướng dẫn giúp anh em được không?

nếu được xin gửi giúp vào email: vhtritueviet@gmail.com. Thanks

trantruong đã viết:

nếu được xin gửi giúp vào email: vhtritueviet@gmail.com. Thanks

Ở trên có sẵn hết rồi, sao bạn không tìm hiểu nhỉ? Bạn muốn sử dụng miễn phí mà phải tới tận nhà nhỉ?
Không có ai giúp bạn kiểu đó đâu.

Lâu rồi mới thấy hoangduong? Khỏe không bạn? Cuối năm được đếm tiền nhiều không bạn? Rảnh add xhunghd@yahoo.com của tớ để có dịp onlineÎtò chuyện nhé. G,L!!!

Xhung hả? Cám ơn cũng khoẻ, Còn Hùng ra sao?

Nay cùng Tâm bên Ezsoft.vn làm cái diễn đàn về phần mềm kế toán 3TSOFT. Xhung ghé qua xem thử góp ý nhé.

OK! Tớ sẽ qua tham quan. Ah tớ có cái giáo trình FAST này http://www.mediafire.com/?avaddgqdsksw6gm. Cậu xem có cái giáo trình nào full không tớ cái. Đang tính phổ cập FAST toàn công ty nhưng ở tớ không thuận lợi học sử dụng kế toán máy nên tự sưu tầm tài liệu cho mấy cô già,cô trẻ use

Mình không có cái này Hùng ơi. Cái này Hùng tự làm hả. Hùng cũng giỏi về mấy món này nhỉ?

Thanks bác xhung về món giáo trình Fast Cons nhé.

khekhe... 3 cái tên công ty quan trọng nhất mà bạn không cảm ơn tớ. Puồn quá. Lần đầu bỡ ngỡ hỏi công ty họ nói nhỏ 1T/tên công ty đó. Giáo trình của tớ build đáng giá nhiều T quá

Cái này tốt quá, làm giáo trình như thế mới gọi là giáo trình chứ. Cám ơn bạn Hùng. Có thấy nick của Hùng bên ezsoft.vn.
Hy vọng có nhiều góp ý

CIC.com đã viết:

khekhe... 3 cái tên công ty quan trọng nhất mà bạn không cảm ơn tớ. Puồn quá. Lần đầu bỡ ngỡ hỏi công ty họ nói nhỏ 1T/tên công ty đó. Giáo trình của tớ build đáng giá nhiều T quá

Ba cái tên coog ty đó trong các bộ fast kia cũng có mà.

Mình thử cài rồi, nhưng bên tính giá thành, cập nhật định mức không có, giờ làm sao ta?