تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تحويل تاريخ الجهاز لفورمات محدد
#1
السلام عليكم ورحمة الله وبركاته ,,,
اخوني عندي مشكلة بالنسبة للتواريخ في برنامجي حيث انني استخدم اداة DTpiker 
وهي لاتقبل الا فورمات MM/dd/yyyy

المشكلة انني قم بتغير نظام الويندوز  الى الفورمات شهر /يوم /سنة 
لكن عند بداية كل شهر يقوم بتحويل التاريخ تلقائي عندما يجد ان الشهر اكبر من اليوم 
يقوم بتحويله الى الفورمات القديم

واصبح البرنامج عندي لايعمل بشكل جيد لانه يعتمد على التواريخ 


هل يوجد طريقة عند فتح البرنامج يقوم البرنامج بتحويل  بتحويل فورمات الويندوز الى MM/dd/yyyy
وعند اغلاقه يقوم بارجاع الفورمات القديم 

وشكراً جزيلاً لكم
الرد
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

ممكن تغيير فورمات الاداة DTPicker

جرب التالي

PHP كود :
Private Sub Form_Load()
DTPicker1.Format dtpCustom
DTPicker1
.CustomFormat "dd" "/" "MM" "/" "yyyy"
End Sub 


اما تغيير فورمات الويندوز عند تشغيل البرنامج وارجاعه الي ماكان عليه عند اغلاق البرنامج

جرب التالي

PHP كود :
Option Explicit
Private Const LOCALE_SSHORTDATE = &H1F
Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
Private Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As LongByVal LCType As LongByVal lpLCData As String) As Boolean
Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As LongByVal LCType As LongByVal lpLCData As StringByVal cchData As Long) As Long
Dim lLocal 
As Long
Dim length 
As Long
Dim buf 
As String 1024
Dim a
Private Sub Form_Load()
 
   lLocal GetSystemDefaultLCID()
 
   length GetLocaleInfo(lLocalLOCALE_SSHORTDATEbufLen(buf))
 
   a Left$(buflength 1)
 
   If SetLocaleInfo(lLocalLOCALE_SSHORTDATE"MM/dd/yyyy") = False Then
    End 
If
End Sub

Private Sub Form_Unload(Cancel As Integer)
 If 
SetLocaleInfo(lLocalLOCALE_SSHORTDATEa) = False Then
 End 
If
End Sub 

بالتوفيق .
الرد
تم الشكر بواسطة: asemshahen5 , hannileo , hannileo


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  السلام عليكم ورحمة الله وبركاته برجاء المساعدة فى تحويل تقرير اكتف ريبورت ل بى دي اف mhareek 9 160 28-11-20, 01:49 PM
آخر رد: sendbad100
  [vb6.0] كيف استطيع ادراج تاريخ من خلال التقويم مباشرة iisys 4 1,802 23-04-20, 03:31 AM
آخر رد: alaanet_system@yahoo.com
  كيف يمكن تحويل برنامج الVB6 الى EXE اسلام الكبابى 3 486 22-03-20, 05:03 PM
آخر رد: اسلام الكبابى
  البحث بين تاريخ باستخدام ادة calender date.ocx gonm64 4 632 05-01-20, 12:15 AM
آخر رد: Ahmed_Mansoor
  ماهي جملة sql لعرض عدد سجلات محدد gonm64 8 876 17-08-19, 02:12 PM
آخر رد: سعود
  [سؤال] تعديل على كود تحويل الرقم الى نص(التفقيط) رجاءً haider kh 2 680 26-03-19, 09:10 PM
آخر رد: Microformt
  تحويل الارقام من الانجليزية للعربية dr.mostashar 7 1,254 22-02-19, 09:57 PM
آخر رد: AL_BRNS
  [كود] تحويل لغة الكتابة تلقائيا hachemi 3 4,445 06-01-19, 12:58 AM
آخر رد: عماد البشبيشى
  سؤال - كيف يتم تحويل المصفوفه الثنائيه الى احاديه اسامه الجبوري 5 1,469 01-01-19, 04:44 PM
آخر رد: عبدالله الصافي
  [vb6.0] كيفية الاتصال بقاعدة البيانات علي شبكة دون طلب اسم الجهاز وكلمة المرور kamalgadir 0 718 05-12-18, 05:58 PM
آخر رد: kamalgadir

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم