במקום לכתוב יותר מידי הסברים לפני ואחרי, כתבתי הערות בקוד עצמו.
הקוד כולל שדה טקסט אשר מאפשר הזנת מספר ולאחר לחיצה על כפתור ה Submit הדף יודע להשתמש בפונקציה להצגת המספר במילים.
במקרה של שאלות, אתם מוזמנים להשאיר תגובה בתחתית העמוד.
הקוד לדוגמא:
<%thenum = Request("thenum")%>
<%
Function Number2Words(theNumber)
'הכנסת המילים למערך כאשר בשדה הראשון שמספרו 0 אין נתונים
numbers1 = array("","אחת","שתיים","שלוש","ארבע","חמש","שש","שבע","שמונה","תשע")
numbers2 = array("","עשר","עשרים","שלושים","ארבעים","חמישים","שישים","שבעים","שמונים","תשעים")
numbers3 = array("","מאה","מאתיים")
'מעבר לכל אורך המספר
for LoopK = 1 To Len(theNumber)
'הכנסת הספרה הנוכחית למשתנה
curDigit = mid(theNumber,LoopK,1)
'הכנסת מיקום הספרה הנוכחית למשתנה
curIndex = Len(theNumber)-LoopK+1
Select Case curIndex 'בהתאם למיקום
Case 3: if curDigit < 3 Then 'בעברית רק 100 ו200 הוא מילה בפני עצמה
finalNumber = finalNumber & numbers3(curDigit) & " "
Else 'השאר הוא שם הספרה בצרוף המילה מאות
finalNumber = finalNumber & numbers1(curDigit) & " מאות "
End if
Case 2: 'בספרת העשרות אנו מבקשים את הערך מהמערך המתאים
finalNumber = finalNumber & numbers2(curDigit) & " "
Case 1: 'בספרת האחדות אנו מבקשים את הערך מהמערך המתאים, בצרוף 'ו' רק במידה ואינו 0
if curDigit <> 0 Then finalNumber = finalNumber & "ו" & numbers1(curDigit)
End Select
Next
'החזרת הערך הסופי
Number2Words = finalNumber
End Function
Response.Write Number2Words(thenum)
|