VBA TimeValue | كيفية استخدام وظيفة قيمة الوقت في Excel VBA؟
قيمة الوقت في VBA هي وظيفة مضمنة يتم تصنيفها أيضًا ضمن دالة التاريخ والوقت في VBA ، هذه الوظيفة كما يوحي الاسم تعطينا القيمة الرقمية للتاريخ المقدم كوسيطة ، فهي تأخذ وسيطة واحدة وهي التاريخ و تُرجع القيمة العددية من الوسيطة.
ماذا تفعل وظيفة قيمة الوقت في VBA؟
ترجع وظيفة قيمة الوقت في VBA Excel جزء قيمة الوقت من التاريخ والوقت الكاملين. يتم تخزين التاريخ والوقت كأرقام تسلسلية في Excel. يمثل الرقم التسلسلي التاريخ ويمثل الرقم العشري الوقت. باستخدام وظيفة TimeValue ، يمكننا فقط الحصول على الرقم التسلسلي للوقت ، أي الرقم العشري.
بناء جملة وظيفة VBA TimeValue
بناء جملة الدالة VBA TimeValue كما يلي.
كما قلنا ، تقوم وظيفة TimeValue بإرجاع جزء الرقم التسلسلي للتاريخ المحدد والذي يتم تخزينه كقيمة نصية. الوقت ليس سوى الوقت الفعلي الذي نتطلع إليه للحصول على الرقم التسلسلي. تذكر قيمة الوقت يمكن فقط الحصول على الرقم التسلسلي من الوقت الذي يتم تخزينه كنص ، وليس كـ TIME.
أمثلة على دالة TimeValue مع Excel VBA
فيما يلي أمثلة على وظيفة VBA TimeValue.
يمكنك تنزيل قالب وظيفة VBA TimeValue هنا - قالب وظيفة VBA TimeValueمثال VBA TimeValue # 1
الآن ، انظر إلى المثال البسيط لوظيفة VBA TimeValue.
رمز:
Sub TIMEVALUE_Function_Example1 () 'قم بتحويل سلسلة الإدخال المحددة إلى وقت صالح وعرضها على الشاشة' تعريف المتغير Dim MyTime As Date 'تعيين الوقت لمتغير MyTime = TimeValue ("28-05-2019 16:50:45")' عرض الإخراج على الشاشة MsgBox "الوقت الحالي هو:" & MyTime ، vbInformation ، "VBA TIMEVALUE Function" End Sub
أول شيء أعلنته عن المتغير "MyTime" كتاريخ .
خافت ماي تايم كتاريخ
ثم قمت بتعيين القيمة للمتغير من خلال تطبيق TimeValue.
MyTime = TimeValue ("28-05-2019 16:50:45")
ثم في مربع الرسالة ، قمت بتعيين نتيجة المتغير.
MsgBox "الوقت الموفر هو:" & MyTime ، vbInformation ، "TIMEVALUE Function".
إذا قمت بتشغيل الكود باستخدام مفتاح F5 أو يدويًا ، فسنحصل على النتيجة على النحو التالي.
مثال VBA TimeValue # 2
بالنسبة للرمز نفسه ، سأعلن أن متغير VBA هو "مزدوج".
رمز:
Sub TIMEVALUE_Function_Example1 () 'قم بتحويل سلسلة الإدخال المحددة إلى وقت صالح وعرضها على الشاشة' تعريف المتغير Dim MyTime As Double 'تعيين الوقت لمتغير MyTime = TimeValue ("28-05-2019 16:50:45")' عرض الإخراج على الشاشة MsgBox "الوقت الحالي هو:" & MyTime ، vbInformation ، "VBA TIMEVALUE Function" End Sub
الآن إذا قمت بتشغيل رمز VBA يدويًا أو بالضغط على المفتاح F5 ، فسيتم عرض جزء الرقم التسلسلي من الوقت 16:50:45.
لفهمك بشكل أفضل ، سأقوم أولاً بإدخال الأرقام التي قدمها مربع رسالة VBA إلى إحدى الخلايا.
الآن سأقوم بتطبيق تنسيق الوقت للتحقق من النتيجة الدقيقة.
عندما تقوم بتحويله إلى تنسيق وقت ، يمكنك رؤية الوقت المحدد.
مثال VBA TimeValue # 3
الآن ، انظر إلى البيانات أدناه.
لدينا البيانات والوقت معًا من A1 إلى A14 خلية. بالنسبة للعمود الثاني ، نحتاج إلى استخراج القيمة الزمنية فقط. نظرًا لأن لدينا أكثر من خلية واحدة للتعامل معها ، فنحن بحاجة إلى استخدام حلقات لأداء نفس مجموعة المهام لجميع الخلايا.
لدينا بيانات من الخلية الأولى إلى الخلية الرابعة عشرة ، لذلك يجب أن تعمل الحلقة الخاصة بنا لمدة 14 مرة. نحتاج إلى استخدام حلقة FOR NEXT في VBA لذكر الحد الأدنى والحد الأعلى. الكود أدناه هو الكود المكتوب بالفعل لاستخراج قيمة الوقت من مجموعة التاريخ والوقت.
رمز:
Sub TimeValue_Example3 () Dim k As Integer For k = 1 To 14 Cells (k، 2) .Value = TimeValue (Cells (k، 1) .Value) Next k End Sub
عندما نقوم بتشغيل الكود ، سنحصل على القيم مثل أدناه.
إذا كنت ترغب في رؤية الوقت ، فقم بتطبيق تنسيق TIME عليه.
إذن ، هذه هي الطريقة التي تعمل بها وظيفة TIME VALUE في VBA & Excel.
