15-08-21, 11:51 AM (آخر تعديل لهذه المشاركة : 15-08-21, 12:14 PM {2} بواسطة aftfm.)
الف شكر اخي العزيز ابو انس
هذا الكود يعطي تاريخ اليوم فقط
والمطلوب في حال تغيير التاريخ في اداة مربع نص يظهر اسم اليوم حسب التاريخ المدخل
هذا الكود يعطي نتيجة ولكنها غير دقيقة حيث في الادارة
ME.txtReturnDate
يتم كتابة التاريخ يدوياً بالهجري ولكن لحظت انها تعمل بالميلادي
كيف احول التاريخ المكتوب في الاداة من هجري الى ميلادي على اداة label
كود :
Dim todaydate As String = String.Empty
Dim hc As New UmAlQuraCalendar()
Dim day As String = hc.GetDayOfWeek(Me.txtReturnDate.MyDate).ToString().ToLower().Trim()
Select Case day
Case "friday"
day = "الجمعة"
Exit Select
Case "saturday"
day = "السبت"
Exit Select
Case "sunday"
day = "الأحد"
Exit Select
Case "monday"
day = "الأثنين"
Exit Select
Case "tuesday"
day = "الثلاثاء"
Exit Select
Case "wednesday"
day = "الأربعاء"
Exit Select
Case "thursday"
day = "الخميس"
Exit Select
End Select
Me.txtDaysName.Text = day
17-08-21, 06:10 PM (آخر تعديل لهذه المشاركة : 17-08-21, 06:20 PM {2} بواسطة ابراهيم ايبو.)
السلام عليكم ورحمة الله وبركاته
اخي الكريم هل تدخل دائما التاريخ الهجري ام ممكن تدخل تاريخ ميلادي ايضا؟
اذا كان الاثنين فهنا يجب ان نشير الى نوع التاريخ هجري ام ميلادي بوساطة CheckBox
وان كان هجريا فيجب تحويله الى ميلادي ليجلب اسم اليوم
وان كان ميلاديا يجلب اسم اليوم
تفضل المثال
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات