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

كيف يمكن تغيير نمط التاربخ بإستخدم ال Windows API

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

كيف يمكننى بإستخدم إمكانيات الـ Windows API التحكم فى خصائص ونمط التاريخ.

بمعنى لو كان تاريخ اليوم بالجهاز بالنمط التالى dd/mm/yyyy

فكيف يمكن عن طريق كود الـ Windows API تغيير نمط التاريخ الى النمط

yyyy/mm/dd

طبعا أنا لا أقصد طريقة ("format(date,"yyyy/mm/dd

mytrial_a.gif

نحن بحاجة لتدوين تجاربنا , نحن بحاجة إلى اكتشاف قيمة التجربة, هذه تجربتى مثيرة ومفيدة ...,

هنا
#2

السلام عليكم

تفضل

'************* Prof_1982 *****************
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
Private Const LOCALE_SSHORTDATE = &H1F



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

End Sub

Private Sub Command1_Click()
 SetDateFormat "DD/MM/YYYY"
End Sub

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

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

#3

هذا ما أريده بالضبط 000الف شكر يابروف وتقبل تحياتى

ولكن إذا أردت أولا عند تشغيل برامجى حفظ نمط التاريخ قبل إستعمال هذا الكود على أساس العوده إليه بعد أنهاء برنامجى 00 فكيف لى إضافة هذه الفكرة فى الكود الذى وضحته

شكرا يابروف00

mytrial_a.gif

نحن بحاجة لتدوين تجاربنا , نحن بحاجة إلى اكتشاف قيمة التجربة, هذه تجربتى مثيرة ومفيدة ...,

هنا
#4

السلام عليكم

يمكن استخدام الدلة GetDateFormat من دوال Api سوف اقوم بوضع مثال لها هنا

قريبا جدا

تحياتي لك

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

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

#5

أشكرك وأنتظر فكرتك

mytrial_a.gif

نحن بحاجة لتدوين تجاربنا , نحن بحاجة إلى اكتشاف قيمة التجربة, هذه تجربتى مثيرة ومفيدة ...,

هنا

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

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