تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  التعامل مع الملفات الصوتية ........دردشة برمجية RaggiTech 7 3,793 26-12-16, 02:40 AM
آخر رد: sayed fox
  التعامل مع جهاز الكمبيوتر من Command Prompt silverlight 7 444 22-12-16, 06:07 PM
آخر رد: silverlight
Video [درس فيديو] هام مرة اخري تحذير للجميع في التعامل مع try والتكرار لعدد كبير ali.alfoly 1 227 13-12-16, 03:59 PM
آخر رد: Fantastico
  [مقال] دوال التعامل مع النصوص Strings - VB.NET ابو ليلى 5 750 12-12-16, 10:32 PM
آخر رد: ابو ليلى
  [درس فيديو] تحذير هام في التعامل مع For و Try ali.alfoly 3 368 07-12-16, 12:43 AM
آخر رد: silverlight
Wink [مقال] كفية التعامل مه الجملة الشرطية IF alims 8 4,544 19-11-16, 01:06 AM
آخر رد: LoveVb
  [مقال] معلومات مهمة عن متغير التاريخ ( Date ) Dev Saeed 0 369 24-08-16, 10:44 AM
آخر رد: Dev Saeed
Big Grin [مقال] كفية التعامل مع حلقة التكرار For , For Each alims 8 4,087 01-11-15, 11:51 PM
آخر رد: adel27
  [VB.NET] التعامل مع الصور في vb net أحمد النجار 2 1,348 03-06-15, 10:45 PM
آخر رد: أحمد النجار
Lightbulb [مقال] التعامل مع اختصارات الملفات Shortcuts Magic Sword 1 730 03-11-14, 12:03 PM
آخر رد: alzahrani

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


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