فصل ۱۱ — Function تبدیل مبلغ عددی به عبارت برای چاپ Check

برای چاپ Check، مبلغ عددی باید به عبارت انگلیسی تبدیل شود. Function نمونهٔ NumWord() Amount را می‌گیرد و Stringی می‌سازد که Million، Thousand، Hundred، Tens و Ones را به ترتیب پردازش می‌کند.

ساختار NumWord

Function Arrayای از واژه‌های عددی و Variableهایی برای بخش‌های مختلف عدد می‌سازد. Loop از بخش‌های بزرگ‌تر به کوچک‌تر حرکت می‌کند، با Integer Division و Mod بخش جاری را جدا می‌کند و واژهٔ متناظر را به Result می‌افزاید. Flagهایی مانند TensDone جلوگیری می‌کنند یک بخش دوبار ترجمه شود.

حد و خروجی

Procedure برای Range مشخص‌شده در کتاب تا 999,999,999 طراحی شده و می‌تواند عبارتی مانند “Nine Hundred Ninety Nine Million Nine Hundred Ninety Nine ...” تولید کند. بخش Cents را می‌توان جداگانه به قالب Check افزود.

استفاده در Report

پس از قرار گرفتن Public Function در Standard Module، Control Source یک TextBox روی Check Report می‌تواند از NumWord برای تبدیل Field مبلغ استفاده کند. اصل فصل این است که Function پیچیده را یک‌بار بنویسید و سپس در چند Query/Form/Report دوباره استفاده کنید.

شکل‌ها و عناصر بصری این بخش