الأرقام مع الأصفار الرائدة، باستخدام VB6

Question

كيف يمكنني إضافة الأصفار الرائدة إلى رقم؟ علي سبيل المثال:

Dim stracctnumber as String
stracctnumber = 987654321

إذا stracctnumber أقل من 15 حرفا، ثم قم بإضافة الأصفار الرائدة إلى رقم الحساب.

يجب أن يكون الرقم النهائي

stracctnumber = "000000987654321"

هل يستطيع أي أحد مساعدتي؟

Answer 1

stracctnumber = Format(stracctnumber, String(15, "0"))

Answer 2

strAcct = Right("000000000000000" & strAcct, 15)

لاحظ أن التسلسلات "باهظة الثمن" نسبيا. إذا كان هذا هو فقط للعرض، بدلا من تعديل القيمة الأساسية، فكر في استخدام Format() وظيفة.

Answer 3

B8 = Format((Format(B2, "###,###")), "@@@@@@@")

هذا هو إضافة مسافات إلى اليسار.

يعمل بشكل رائع في VBA Excel .....