الگوریتم قبوض پرداختی در اکسل

[mokaram]

با سلام خدمت دوستان

در این فایل آموزشی به بررسی موضوع الگوریتم قبوض و اینکه چطوری میشه صحت شناسه پرداخت و شناسه

قبض را چک کنیم وحتی مبلغ پرداختی هر قبض را بدست آوریم می پردازیم

ساختار کلی کدها به صورت زیر می باشد


http://s5.picofile.com/file/8156538668/1.jpg

برای به دست آوردن رقم های کنترلی ( شناسه قبض یکی و شناسه پرداخت دو تا ) طبق تصویر زیر عمل می کنیم


http://s6.picofile.com/file/8177748468/%D8%B4%D9%86%D8%A7%D8%B3%D9%87_%D9%82%D8%A8%D8%B6. jpg

توضیح درباره بدست آوردن عدد کنترلی شناسه قبض:

از سمت راست شروع به دادن ضریب می کنیم به طوری که اولین عدد ضریب 2 را می گیره و عدد های بعدی یکی به 2 اضافه میشه تا زمانیکه ضریب به 7 برسه

بعد مجدد ضریب از 2 شروع میشه. مجموع عددها تقسیم بر 11 باقیمانده ای داره که اگر 0 یا 1 بود مستقیما به عنوان عدد کنترلی نوشته میشه در غیر اینصورت

مجدد از عدد 11 کم میشه و جواب به عنوان عدد کنترلی درج میشه

توضیح درباره بدست آوردن عدد کنترلی اول شناسه پرداخت :

مثل عملیات بالا انجام میشه

توضیح درباره بدست آوردن عدد کنترلی دوم شناسه پرداخت :

همون عملیات بالا با این تفاوت که ابتدا هر دو عدد ( شناسه قبض به صورت کامل به شناسه پرداخت چسبیده میشه و عملیات مورد نظر روی آن اعمال میشه )

نحوه به دست آوردن مبلغ قبض :

از فرمول زیر استفاده می شود


Int(ShenasePardakht / 100000) * 1000

[~M*E*H*D*I~]

خیلی عالی بود محمد رضا جان ممنون