تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مثال] طريقة تحويل تاريخ مدخل يدوياً كنص الى متغير من نوع تاريخ
#1
السلام عليكم  و رحمة الله و بركاته  ،، 

كيف الحال اخواني و زملائي  // 

اليوم  سويت كود  و احببت ان اشارككم اياه  ،،  و لكن قبل ان تستخدموا الكود هناك قيود  و هي 
1/ ان يكون التاريخ النصي المدخل  يحوي السنة  و تكون رقم رباعي يعني بهذا الشكل 1437 أو 2015
2/ أن تحدد فورمات  (هيئة) التاريخ الذي سيدخل
3/ ان تحدد العلامة التي ستفصل بين ارقام التاريخ 


المميزات  في الـ Function  :
1/ تحويل  نص الى  Object   من  نوع  DateTime   أهم ميزه 
2/ يدعم الادخال  هجري او ميلادى  بمدى معين للتاريخ الهجري  بحيث يكون التاريخ اقل من  1450 سنة (تقويم ام القرى)
3/ يوجد مثال لطريقة الاستخدام للكود في وصف الكود
4/ يتعرف على التاريخ هل هو ميلادي ام هجري (باستخدام السنة)


و هذا هو الكود :


PHP كود :
    ''' <summary>
    ''' 
تحويل التاريخ من قيمة نصيه الى قيمة تاريخ
    
''' </summary>
    ''' 
<example>This is a code example:
    '''   <code>
    '''
       Dim myDate As DateTime ConvertFromStringToDate("1416/12/1")
    '''   </code>
    ''' 
</example>
    ''' <param name="DateAsString">التاريخ المدخل كنص</param>
    ''' 
<param name="DateFormat">هيئة التاريخ</param>
    ''' <param name="SpiltChar">الفاصله التي تفصل ارقام التواريخ</param>
    ''' 
<returns>DateTime</returns>
    ''' <remarks></remarks>
    Public Shared Function ConvertFromStringToDate(ByVal DateAsString As String, Optional ByVal DateFormat As String = "yyyy/MM/dd", Optional ByVal SpiltChar As Char = "/") As DateTime
        If DateAsString.Trim <> Nothing Then
            Dim theSpiltDate As String() = Split(DateAsString, SpiltChar)
            Dim culture As IFormatProvider
            Dim yearNo As String = ""
            For Each Number As String In theSpiltDate
                If Number.Length = 4 And Information.IsNumeric(Number) = True AndAlso (Val(Number) > 1300 Or Val(Number) < 2100) Then yearNo = Number
            Next
            If yearNo.Trim = Nothing Then Return Now
            If Val(yearNo) < 1450 Then
                culture = New System.Globalization.CultureInfo("ar-SA", True)
            Else
                culture = New System.Globalization.CultureInfo("en-US", True)
            End If

            Dim myDate As DateTime = DateTime.ParseExact(DateAsString.Trim, DateFormat.Trim, culture)
            Return myDate
        Else
            Return Now
        End If
    End Function 


و الله المستعان
اسم معرفي : محمد يحيى
الرد }}}
تم الشكر بواسطة: HASAN6.0
#2
بارك الله فيك
Don't Be The Perfect one
be the right one
الرد }}}
تم الشكر بواسطة:
#3
عاشت الايادي
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة سهلة للاتصال بقاعدة بيانات SQL مع اضافة ايقونات للتحكم في تدفق البيانات ggtt17121985 0 542 06-11-23, 10:16 AM
آخر رد: ggtt17121985
  [مشروع] تحويل الهجري الى ميلادي والميلادي الى هجري بشرط سعود 4 6,259 13-07-23, 06:55 AM
آخر رد: glal
  [VB.NET] برنامج تحويل النصوص بصوت عربي مسموع ثم حفظ الصوت بصيغة wav (تم اعادة الرفع) abo ragab 2 1,599 02-04-23, 10:21 PM
آخر رد: naz123
Wink [مشروع] مشروع تحويل النص الى صوت مسموع والتحكم برفع الصوت وتغيير سرعته مع السورس كود ahmadpal 8 4,746 04-08-22, 05:08 AM
آخر رد: abo ragab
  [مشروع] ضغط و فك الضغط بابسط طريقة (تحتاج تطوير) سعود 0 867 31-07-22, 03:43 AM
آخر رد: سعود
  [مشروع] تحويل الصور الى نصوص واستعادتها سعود 11 2,153 21-07-22, 05:46 AM
آخر رد: سعود
  [VB.NET] برنامج تحويل النصوص بصوت عربي مسموع ثم حفظ الصوت بصيغة wav abo ragab 3 1,561 01-07-22, 01:26 AM
آخر رد: abo ragab
Rainbow [كود] حساب التاريخ والوقت بالايام والساعات والثواني الى تاريخ محدد محمد مسافر 9 1,687 21-06-22, 03:03 PM
آخر رد: سعود
Video [درس فيديو] طريقة سحب الصور والنصوص وافلاتها لادراجها في مكانها ahmadpal 2 2,542 06-04-22, 01:31 AM
آخر رد: ابو روضة
  [VB.NET] مثال طريقة جعل البرنامج يعمل مع بداية تشغيل النظام معاند الحظ 2 2,125 03-02-22, 05:20 AM
آخر رد: أبووسم

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


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