تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
دالة التعامل مع التاريخ الهجري
#1
الموضوع صاحبه هو الأخ أبو عبد الملك
رابط الموضوع على منتدى فيجوال بيسك العرب
http://vb4arab.com/vb/showthread.php?t=18398

أنا نقلت الموضوع لأنى شايف أنه مهم وشرحه بطريقه جميله

---------------------------------------------------

السلام عليكم ةرحمة الله وبركاته

في السعوديه نعاني من مشاكل استخدام التاريخ الهجري ومشاكل الويندوز..
بعض التواريخ لا تدخل كامله بينما في ام القرى كامله فعند ادخال 30/8 مثلا ستتحول الى 1/9
وفي بعض المسائل الدقيقه لا نريد ان تتحول

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

اعمل مشروع جديد واضف فئه كالتالي

PHP كود :
PublicClass ProssesDate
Public m_Day AsInteger
Public m_Mounth AsInteger
Public m_Year AsInteger
Public DateValue AsLong

PublicFunction compiledDatePart
(ByVal dd AsIntegerByVal mm AsIntegerByVal yyyy AsIntegerAsLong
Dim dds AsString 
dd.ToString
Dim mms AsString 
mm.ToString
Dim yyyys AsString 
yyyy.ToString
If dds.Length 1 Then dds "0" dds
If mms.Length 1 Then mms "0" mms
Dim c AsString 
yyyys mms dds
compiledDatePart 
CType(cLong)
m_Day dd
m_Mounth 
mm
m_Year 
yyyy
MakeDateValue
(ddmmyyyy)
Return 
compiledDatePart
EndFunction

PublicFunction ReturnDateFromNumber
(ByVal n AsLongAsBoolean
Dim ns AsString
ns 
CType(nString)
m_Day Right(ns2)
m_Mounth Mid(ns52)
m_Year Left(ns4)
MakeDateValue(m_Daym_Mounthm_Year)
EndFunction

Sub MakeDateValue
(ByVal dd AsIntegerByVal mm AsIntegerByVal yyyy AsInteger)
DateValue dd + (mm 30) + ((yyyy 12) * 30)
EndSub
EndClass 

ثم من الفورم اعمل زر امر وأدخل الكود التالي

PHP كود :
PrivateSub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
Dim aa AsNew ProssesDate
Dim ddd AsLong
Dim dd
mmyyyy AsInteger
Dim dv AsLong
ddd 
aa.compiledDatePart(121420)
aa.ReturnDateFromNumber(ddd)
 
dd aa.m_Day
mm 
aa.m_Mounth
yyyy 
aa.m_Year
dv 
aa.DateValue
EndSub 
جرب واقرأ النتائج

طبعا الموضوع فكره ويحتاج الى تنقيح
شكرا وانتظر الاقتراحات



http://www.elfouadsoft.com
mohamed_tegara@yahoo.com
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [درس فيديو] تحذير هام في التعامل مع For و Try ali.alfoly 3 78 منذ 59 دقيقة مضت
آخر رد: silverlight
Wink [مقال] كفية التعامل مه الجملة الشرطية IF alims 8 3,514 19-11-16, 01:06 AM
آخر رد: LoveVb
  [مقال] معلومات مهمة عن متغير التاريخ ( Date ) Dev Saeed 0 212 24-08-16, 10:44 AM
آخر رد: Dev Saeed
Big Grin [مقال] كفية التعامل مع حلقة التكرار For , For Each alims 8 3,468 01-11-15, 11:51 PM
آخر رد: adel27
  [VB.NET] التعامل مع الصور في vb net أحمد النجار 2 1,005 03-06-15, 10:45 PM
آخر رد: أحمد النجار
  التعامل مع الملفات الصوتية ........دردشة برمجية RaggiTech 6 2,932 19-12-14, 11:11 PM
آخر رد: sniperjawadino
Lightbulb [مقال] التعامل مع اختصارات الملفات Shortcuts Magic Sword 1 628 03-11-14, 12:03 PM
آخر رد: alzahrani
  الكامل في VB.Net (التعامل مع الأقراص و المجلدات و الملفات) rinawi 3 1,251 25-05-13, 01:11 PM
آخر رد: shaker.soft
  معلومة ::: التعامل مع Registry RaggiTech 3 778 06-10-12, 07:55 PM
آخر رد: RaggiTech
  من الميزات القادمة مع vb2010 التعامل مع اللغات الديناميكية RaggiTech 0 339 05-10-12, 01:28 AM
آخر رد: RaggiTech

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


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