الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة في التاريخ

مغلق
بدأه hg_12345 في 26 نوفمبر 2004 · 5 رد · 590 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

أخواني الأعزاء

عندما أقوم بعرض التاريخ ببرنامج معمول على الفيجول بيسك

يظهر لي الشهر قبل اليوم

مثلاً: إذا كان اليوم 6

و الشهر 8

يظهر لي كالتالي

8/6/2004

مع أني عندما نقلت البرنامج إلى جهاز آخر ظهر صحيحاً

و قد حاولت أن أغير تنسيق النص

يعني الإزاحة و العربي و الإنجليزي و ظهرت نفس المشكلة الشهر قبل اليوم

طبعا ً التاريخ باستخدام هذا الكود

text1=Date

ففكرت و حاولت بطريقة أخذ اليوم و الشهر و ترتيبها يدوياً باستخدام ما يلي

A=Mid(date,1,2)

A=Mid(date,2,4)

ثم جمعها

لكن المشكلة أني لو نقلت هذا البرنامج على جهاز آخر ستظهر بالمقلوب

السؤال ؟

هل من طريقة أعرف بهارقم اليوم و الشهر

دون استخدام Date؟

أو هل من حل آخر ؟

#2

السلام عليكم،

طلبك يا اخي العزيز يتمثل بالحل التالي

Text1.Text = Format(Date, "yyyy/mm/dd")

وسارفق مثال مع هذه المشاركة

vbdate.zip

#3

المشكلة في انه جهازك يعرض التاريخ

yyyy/dd/mm

يمكن تغيير ذلك من الاعدادات الاقليمية

لانه انا حصلت معايا المشكلة في الفيجوال بيسك بس 6

و لم يفلح في حل المشكلة عمل فورمات للتاريخ في الفيجوال لانه ظل متأثرا بطريقة عرض الجهاز للتاريخ

Mahmoud Magdy

MVP - Exchange Server. MCITP (Windows Server 2008, Exhcange Server 2010,/2007),CCNP, MCTS(OCS 2007 R2, SCCM 2007)

Tech Lead

Ingazat Information Technology

Follow me on twitter: http://www.twitter.com/_busbar

my blog: http://autodiscover.wordpress.com

Link with me on linkedin: http://www.linkedin.com/profile?viewProfile=&key=71027694

or on experts-exchange.com: http://www.experts-exchange.com/M_1426100.html

#4 
Text1.Text = Format(Date, "yyyy/mm/dd")
#5

أضم صوتى لحل الأخ أشرف الوادية

وأضيف

أن كنت تستخدم قواعد بيانات مع أكسس وعليك قراءة التاريخ مهما كان تنسيقه مع الجهاز

فعليك والدالة DateValue('TheDate')

فهى تحضر التاريق بقيمته وليس تنسيقه ومن ثم تعرضه حسب تنسيق الجهاز

والله أعلى وأعلم

عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :

( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )

رواه الطبراني في الكبير

#6

هذه الدالة لتغير تنسيق التاريخ في جهازك دون الذهاب الي لوحة التحكم ووو .

Private Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Long
Private Const LOCALE_IDATE = &H21 ' short date format ordering
Private Const LOCALE_SSHORTDATE = &H1F ' short date format string



Public Sub SetDateFormat(ByVal theFormat As String)

Dim strBuffer As String
Dim Res As Long

strBuffer = theFormat & Chr(0)
Res = SetLocaleInfo(LOCALE_IDATE, LOCALE_SSHORTDATE, strBuffer)

End Sub

فقط استدعي الدالة بالشكل التالي : مع تغيير تنسيق التاريخ كما تريد

SetDateFormat "DD/MM/YYYY"

دعواتكم لي

الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.

إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.

هذا الموضوع مغلق.

مواضيع مشابهة