احصل على الكود الوظيفي للوحدات والعشرات والمئات من الأرقام

احصل على رمز الوحدات والعشرات والمئات من الأرقام، ويمكن للأصدقاء الذين يحتاجون إليه الرجوع إليه. انسخ رمز الكود كما يلي:

رقم الوظيفةسبليت (عدد)

خافت ط، الطول

الطول = لين (الأعداد)

لأني = 1 للطول

NumberSplit=NumberSplit & num mod 10 & , 'remainder

num = num / 10 'قابل للقسمة

التالي

NumberSplit=يسار(NumberSplit,Len(NumberSplit)-1)

وظيفة النهاية