أنت غير متصل حاليًا، وفي انتظار الإنترنت الخاص بك ليقوم بإعادة الاتصال

كيفية إعداد تطبيقات Visual Basic عن سنة 2000

هام: تمت ترجمة هذا المقال باستخدام برنامج ترجمة آلية لشركة مايكروسوفت بدلاً من الاستعانة بمترجم بشري. تقدم شركة مايكروسوفت كلاً من المقالات المترجمة بواسطة المترجمين البشر والمقالات المترجمة آليًا وبالتالي ستتمكن من الوصول إلى كل المقالات الموجودة في قاعدة المعرفة الخاصة بنا وباللغة الخاصة بك. بالرغم من ذلك، فإن المقالة المترجمة آليًا لا تكون دقيقة دائمًا وقد تحتوي على أخطاء إملائية أو لغوية أو نحوية، مثل تلك الأخطاء الصادرة عن متحدث أجنبي عندما يتحدث بلغتك. لا تتحمل شركة مايكروسوفت مسئولية عدم الدقة أو الأخطاء أو الضرر الناتج عن أية أخطاء في ترجمة المحتوى أو استخدامه من قبل عملائنا. تعمل شركة مايكروسوفت باستمرار على ترقية برنامج الترجمة الآلية

اضغط هنا لرابط المقالة باللغة الانجليزية162718
تمت أرشفة هذه المقالة. وتظهر "كما هي" ولن يتم تحديثها بعد الآن.
الموجز
قد تكون مهتماً على كيفية سيقوم بمعالجة التطبيقات تواريخ ما بعد 31 ديسمبر 1999 كـ مطور موجود. في يناير الأول من السنة 2000 ، سوف البرامج تعتقد وهو سنة 2000 1900 أو 1980 حتى ؟ الهدف من هذه المقالة هو للتأكد من أن لديك Visual Basic للتطبيقات ستعمل بشكل صحيح مع التواريخ بعد 31 ديسمبر 1999.
معلومات أخرى
تمرير سنة من رقمين في تاريخ (مثل 7/3/45) أثناء سيقوم بمعالجة كافة إصدارات Visual Basic سنوات أكبر من يوم (بتنسيق أربعة أرقام) ، يفرض Visual Basic افتراض القرن ما يتوافق مع التاريخ. ربما تكون أفضل طريقة تفسير هذا السلوك لإعطاء درس محفوظات Visual Basic سريعة.

الدرس المحفوظات Visual Basic

بالنسبة لكافة إصدارات Visual Basic لـ Windows (بما في ذلك المهام السابقة الخاصة به مثل Visual Basic DOS و QuickBasic) قبل ومتضمنة 3.0 ، دوماً تم سنوات ذات رقمين يفترض أن تكون في 1900s. تم إنشاء في كل إصدار مكتبة وقت تشغيل التعليمات البرمجية لتنفيذ هذا الافتراضي ولا لا تعتمد على إصدار نظام التشغيل أو القرن تاريخ النظام الحالي.

بين دورات تطوير لـ Visual Basic 3.0 و 4.0 emerged وحدات جديدة اثنين: Visual Basic for Applications "و" أتمتة OLE. قبل إلى ظهور هذه التقنيات ، مكتبة وقت تشغيل Visual Basic تضمين التعليمات البرمجية المسؤول عن تحويل سنة من رقمين إلى سنة تتكون من أربعة أرقام. كشف أتمتة OLE قدر كبير من الأداء الوظيفي الذي يمكنه الوصول إلى التطبيقات الأخرى. لم Visual Basic for Applications بحاجة إلى تنفيذ هذه التعليمات البرمجية; قد إجراء الاستدعاءات إلى مكتبات أتمتة OLE بدلاً من ذلك.

تم تطوير مع إمكانية التشغيل المتداخل ضع في اعتبارك 4.0 Visual Basic و بدأت تعتمد على مكتبات أتمتة OLE لتحويل سنوات ذات رقمين إلى سنوات تتكون من أربعة أرقام في معظم الحالات. الاستثناء إلى القاعدة هو الدالة DateSerial الذي تم تنفيذه في مكتبة وقت تشغيل Visual Basic بسبب Visual Basic يتطلب المزيد من الوظائف من قد توفر مكتبة أتمتة OLE في ذلك الوقت.

أثناء دورة تطوير Visual Basic 4.0 قررت Microsoft أن القيم الافتراضية المستخدمة في الإصدارات السابقة من Visual Basic تم الموثوقة ولكن ليس بالضرورة العملي. لذا، emerged قاعدة جديدة. يمكن تحويل سنة من رقمين إلى القرن الحالية من تاريخ النظام. ومن ثم، فإن تقييم Year(Date("1/1/00")) إلى القرن الحالي. تم تطبيق هذه القاعدة الجديدة في المكتبات أتمتة OLE المستخدمة من قبل Visual Basic 4.0 و Visual Basic for Applications. مكتبة وقت تشغيل Visual Basic 4.0 بتطبيق القاعدة الدالة DateSerial أيضاً.

Microsoft لاحقاً reconsidered و تغيير الافتراضي في أتمتة OLE (الآن التنفيذ ببساطة) مكتبات بدءًا من إصدار 2.20.4049 OleAut32.dll. لا يؤثر هذا التغيير على التطبيقات ذات 16 بت التي تعتمد على المكتبات التلقائية تطبيقات 32-بت. الآن، يتم تفسير سنة ذات بين 00 و29 (مثل 17) أنه 2017 بينما يتم تفسير سنة ذات بين 30 و 99 (مثل 72) على أنها 1972. توفر مكتبات التنفيذ جديدة وظائف يتطلب Visual Basic للدالة DateSerial. وبالتالي، 5.0 Visual Basic و الإصدارات اللاحقة يمكنك لم يعد تطبيق قواعد هذه الدالة في مكتبات وقت التشغيل الخاصة بهم.

شحن مكتبة التنفيذ المحدّث مع Internet Explorer الإصدار 3.0 والإصدارات الأحدث و حزمة الخدمة Service Pack 5 الخاصة بـ Windows NT 3.51 ، Windows NT 4.0, Windows 95 OSR 2 ، Office 97, 5.0 Visual Basic و المنتجات الأخرى.

ما لدى كافة هذه Mean إلى للمطورين الذين استخدام Visual Basic ؟

3.0 Visual Basic والإصدارات السابقة تحويل كافة السنوات إلى 1900s.

4.0 Visual Basic (16-بت) تحويل كافة السنوات القرن تاريخ النظام الحالي. استناداً إلى الدالة استخدام Visual Basic تحويل التاريخ استناداً إلى الافتراضيات في المكتبات التلقائية 16 بت أو مكتبة وقت التشغيل. لم يتم تعديلها القيم الافتراضية في المكتبات التلقائية 16-بت منذ إصداره حتى متوافقاً السلوك بغض النظر عن استخدام دالة التاريخ الذي 4.0 Visual Basic.

4.0 Visual Basic تحويل (32-بت) السنوات إلى سنوات تتكون من أربعة أرقام استناداً إلى الإعداد الافتراضي في المكتبات التلقائية فيما عدا عند استخدام دالة DateSerial يحوّل كافة السنوات القرن تاريخ النظام الحالي. المكتبات التلقائية 32-بت (OleAut32.dll الإصدار 2.10) المرفقة عند إصدار 4.0 Visual Basic تحويل كافة السنوات إلى القرن تاريخ النظام الحالي. تحويل مكتبات التنفيذ 32-بت لاحق (الإصدار OleAut32.dll 2.20 والإصدارات الأحدث) السنوات 1900s إذا كانت السنة برقمين بين 30 و 99. في حالة بين 00 و29 السنة من رقمين، يتم تحويل التاريخ إلى 2000s.

إصدارات Visual Basic تالي إلى 4.0 ، تحويل السنوات إلى استناداً إلى الافتراضي في المكتبات التلقائية لوظائف تاريخ كافة السنوات المكونة من أربعة أرقام. 5.0 Visual Basic التي يتم شحنها مع الإصدار 2.20.4054 تحويل سنوات ذات رقمين إلى 1900s إذا كانت السنة برقمين بين 30 و 99. في حالة بين 00 و29 السنة من رقمين، يتم تحويل التاريخ إلى 2000s.

ماذا إذا لا أريد هذه الافتراضيات ؟

قد تحتاج إلى استخدام مجموعة القواعد الخاصة بك بدلاً من الاعتماد على الإعدادات الافتراضية الأصلية إلى Visual Basic. على سبيل المثال، قد تحتاج إلى إدخال سنة برقمين ولديك 00 إلى 49 تتوافق مع سنة 2000 2049 ولديك 50 إلى 99 تتوافق مع سنوات 1950 1999.

عند قبول سلسلة تاريخ من المستخدم ، اختبار تنسيق السلسلة لتحديد عدد الأرقام التي تم إدخالها في السنة. استناداً إلى قواعد هذا التطبيق نموذج 11 1 45 في السنة 2045 ثم السنة 1945. ضمن رمز التطبيق تغيير السلسلة إلى استخدم السنة المكونة من أربعة أرقام المناسب ثم تحويل هذه السلسلة تاريخ مع سنة تتكون من أربعة أرقام إلى متغير تاريخ.

رمز نموذج

تقييم التعليمة البرمجية التالية البيانات المدخلة في مربع نص باسم txtDate عند النقر فوق cmdConvertDate. إذا كان التاريخ الذي يحتوي على سنة من رقمين، يتم تحويل التاريخ إلى تاريخ سنة من أربعة أرقام طبقاً قاعدة عينة. التعليمة البرمجية ثم يعرض التاريخ الأولي إدخال السنة كاملة كما المحول بواسطة رمز استناداً إلى قاعدة عينة وتحويل سنة كاملة حسب الإعدادات الافتراضية الأصلية إلى Visual Basic. وفي النهاية، يتم تحويل التاريخ المعروض في txtDate إلى تاريخ غير غامض مع المناسبة السنة من أربعة أرقام.

بمجرد تطوير "تعليمات برمجية لمعالجة القواعد الخاصة بك تفسير السنوات" ، يمكنك إنشاء التعليمات البرمجية هذا في عنصر تحكم مخصص 32-بت مع التحكم إنشاء الإصدار من Visual Basic. للحصول على مزيد من المعلومات على هذا المنتج على إنشاء عناصر التحكم المخصصة الخاصة بك الرجاء مراجعة موقع Microsoft على ويب Visual Basic في:

http://www.microsoft.com/vbasic

تتطلب هذه التعليمة البرمجية يمكن إدخال التواريخ بالتنسيق mm/dd/yy ولكن تعذر تغيير بسهولة لمعالجة تنسيق تاريخ آخر:

   Private Sub cmdConvertDate_Click()       Dim strYear As String       Dim intSlash As Integer       If IsDate(txtDate) or txtDate = "2/29/00" Then           'Find first date separator.           intSlash = InStr(txtDate, "/")           If intSlash > 0 Then               'Find second date separator.               intSlash = InStr(intSlash + 1, txtDate, "/")               If intSlash > 0 Then                   'Extract the year from the date.                   strYear = Mid(txtDate, intSlash + 1)                   If Len(strYear) = 2 Then                       If CInt(strYear) < 50 Then                       ' Less than 50: year = 20XX.                           strYear = "20" & strYear                       Else                       ' Greater than 50: year = 19XX.                           strYear = "19" & strYear                       End If                   End If                   MsgBox "Date Entered: " & txtDate                   MsgBox "Year (Our Rule): " & strYear                   MsgBox "Year (VB Default): " & Year(txtDate)               Else                   MsgBox "Date not in expected format!"               End If           Else               MsgBox "Date not in expected format!"           End If       Else           MsgBox "Not a valid date!"       End If       '  Clarify date in txtDate.       txtDate.Text = Left(txtDate.Text, intSlash) & strYear   End Sub				
مراجع
تعليمات Microsoft Visual Basic الملف; البحث على: أنواع بيانات متغير; والتاريخ IsDate الدالة; دالتي CDate و CVDate;

(ج) ١٩٩٧ شركة Microsoft ، كافة حقوق محجوز. المساهمات بواسطة حسنين Sceppa ، شركة Microsoft
IsDate سنة 2000 CDate تاريخ Y2K

تحذير: تمت ترجمة هذه المقالة تلقائيًا

خصائص

رقم الموضوع: 162718 - آخر مراجعة: 02/24/2014 08:26:49 - المراجعة: 3.3

Microsoft Visual Basic 6.0 Learning Edition, Microsoft Visual Basic 6.0 Professional Edition, Microsoft Visual Basic Enterprise Edition for Windows 6.0, Microsoft Visual Basic Control Creation Edition, Microsoft Visual Basic 5.0 Learning Edition, Microsoft Visual Basic 5.0 Professional Edition, Microsoft Visual Basic 5.0 Enterprise Edition, Microsoft Visual Basic 4.0 Standard Edition, Microsoft Visual Basic 4.0 Professional Edition, Microsoft Visual Basic 4.0 Professional Edition, Microsoft Visual Basic 4.0 16-bit Enterprise Edition, Microsoft Visual Basic 4.0 32-Bit Enterprise Edition, Microsoft Visual Basic 2.0 Standard Edition, Microsoft Visual Basic 3.0 Professional Edition, Microsoft Visual Basic 1.0 Standard Edition

  • kbnosurvey kbarchive kbmt kbhowto KB162718 KbMtar
تعليقات