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

موضح لكم في المرفق اداه لحساب التاريخ من تاريخ اليوم الذي نحن فيه الى تاريخ قادم 21/11/2022 بمعنى تحسب الفتره المتبقيه كماهو موضح ولكن مااريده تكرماً منكم تغيير الفتره المتبقيه التي تظهر بالاشهر الى ايام متبقيه بحيث تظهر عدد ايام , ساعات , دقائق , ثواني الى تاريخ  21/11/2022  وموضح لكم شرح في الصوره لما اريده , ومن ضمن الملاحظات ايضاً  ان يظهر الوقت المتبقي الى تاريخ 21/11/2022 حتى الساعه 1 ظهراً في نفس اليوم وليس الى نهايه اليوم الساعه 12 ليلاً .

ملاحظه :

اشكر الاخ المبدع / asmarsou  حيث فعلاً افادني في موضوع سابق بالاكواد وكذلك الشكر موصول للاستاذ/ [b]سعود  [/b]


الملفات المرفقة صورة/صور
   

.rar   الوقت المتبقي.rar (الحجم : 74.22 ك ب / التحميلات : 13)
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.


الرد }}
تم الشكر بواسطة: سعود , asmarsou
#2
هل تقصد هذا:
PHP كود :
Private Function Betweentwodate(d1 As DateTimed2 As DateTime) As Integer
        Return DateDiff
(DateInterval.Dayd1d2)
 
   End Function 

PHP كود :
Private Sub Timer1_Tick(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer1.Tick
        lbltime
.Text Betweentwodate(NowCDate("11/21/2022").ToShortDateString) & GetDateSpanText(NowCDate("11/21/2022").ToShortDateString)
 
   End Sub 
=====* التوقيع *======
=================
الرد }}
تم الشكر بواسطة:
#3
حياك استاذ/ ابو سعود

جربت الاكواد ومااشتغل موضح لك الاشكاليه في المشروع هل ياتري الاشكاليه في تنسيق التاريخ عندي في الجهاز جربت اكثر من تنسيق .


الملفات المرفقة صورة/صور
   

.rar   الوقت المتبقي.rar (الحجم : 75.68 ك ب / التحميلات : 9)
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.


الرد }}
تم الشكر بواسطة:
#4
(20-06-22, 05:56 PM)محمد مسافر كتب : حياك استاذ/ ابو سعود

جربت الاكواد ومااشتغل موضح لك الاشكاليه في المشروع هل ياتري الاشكاليه في تنسيق التاريخ عندي في الجهاز جربت اكثر من تنسيق .

اخي العزيز جرب تغيير تنسيق التاريخ في الكود الخاص بالمؤقت من 11/22/2022 الى 22/11/2022 و انشاء الله تشتغل معاك
الرد }}
تم الشكر بواسطة:
#5
(20-06-22, 06:05 PM)asmarsou كتب :
(20-06-22, 05:56 PM)محمد مسافر كتب : حياك استاذ/ ابو سعود

جربت الاكواد ومااشتغل موضح لك الاشكاليه في المشروع هل ياتري الاشكاليه في تنسيق التاريخ عندي في الجهاز جربت اكثر من تنسيق .

اخي العزيز جرب تغيير تنسيق التاريخ في الكود الخاص بالمؤقت من 11/22/2022 الى 22/11/2022 و انشاء الله تشتغل معاك

اهلين اخي العزيز جربت مانفع في حاجه محتاجه لتعديل اشكرك على تعاونك واهتمامك .
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.


الرد }}
تم الشكر بواسطة: asmarsou
#6
حسب اللي انا متعود عليه اليوم يكون بالمنتصف:
=====* التوقيع *======
=================
الرد }}
تم الشكر بواسطة:
#7
اسعد الله صباحكم

حاولت وجربت مانفع اذا امكن ممكن استاذ/ سعود توضحلي ايش الخطا عندي واذا امكن ترسل لي المشروع جاهز علشان اتاكد اكون شاكر لكم جميعاً .
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.


الرد }}
تم الشكر بواسطة:
#8
(21-06-22, 06:40 AM)محمد مسافر كتب : اسعد الله صباحكم

حاولت وجربت مانفع اذا امكن ممكن استاذ/ سعود توضحلي ايش الخطا عندي واذا امكن ترسل لي المشروع جاهز علشان اتاكد اكون شاكر لكم جميعاً .

طيب ماهي رسالة الخطأ؟
قد تصلحها بنفسك و تستفيد.

PHP كود :
       lbltime.Text GetDateSpanText(NowCDate("7/21/2022").ToShortDateString
كودك الاول جيد ولا شيء فيه الا فقط تنسيق التاريخ

ايضا عدل على الدالة لتكون هكذا
PHP كود :
Public Shared Function GetDateSpanText(ByVal fromDate As DateTimeOptional ByVal toDate As DateTime Nothing) As String
        Try
            Dim days 
As Integer 0hours As Integer 0minuts As Integer 0sec As Integer 0
            If toDate 
Nothing Then toDate DateTime.Now

            
'Do Until toDate.AddYears(-1) < fromDate
            ' 
   years += 1
            
'    toDate = toDate.AddYears(-1)
            '
Loop

            
'Do Until toDate.AddMonths(-1) < fromDate
            ' 
   months += 1
            
'    toDate = toDate.AddMonths(-1)
            '
Loop

            Do Until toDate
.AddDays(-1) < fromDate
                days 
+= 1
                toDate 
toDate.AddDays(-1)
 
           Loop


            Do Until toDate
.AddHours(-1) < fromDate
                hours 
+= 1
                toDate 
toDate.AddHours(-1)
 
           Loop
            Do Until toDate
.AddMinutes(-1) < fromDate
                minuts 
+= 1
                toDate 
toDate.AddMinutes(-1)
 
           Loop

            Do Until toDate
.AddSeconds(-1) < fromDate
                sec 
+= 1
                toDate 
toDate.AddSeconds(-1)
 
           Loop

            Return String
.Format("{0} Days {1} Houres {2} Minutes {3} Seconds"dayshoursminutssec)
 
       Catch ex As Exception
            Return 
"     Error"
 
       End Try
 
   End Function 

المثال معدل مرفق


الملفات المرفقة
.zip   الوقت المتبقي.zip (الحجم : 80.95 ك ب / التحميلات : 13)
=====* التوقيع *======
=================
الرد }}
تم الشكر بواسطة: محمد مسافر
#9
(21-06-22, 07:44 AM)سعود كتب :
(21-06-22, 06:40 AM)محمد مسافر كتب : اسعد الله صباحكم

حاولت وجربت مانفع اذا امكن ممكن استاذ/ سعود توضحلي ايش الخطا عندي واذا امكن ترسل لي المشروع جاهز علشان اتاكد اكون شاكر لكم جميعاً .

طيب ماهي رسالة الخطأ؟
قد تصلحها بنفسك و تستفيد.

PHP كود :
       lbltime.Text GetDateSpanText(NowCDate("7/21/2022").ToShortDateString
كودك الاول جيد ولا شيء فيه الا فقط تنسيق التاريخ

ايضا عدل على الدالة لتكون هكذا
PHP كود :
Public Shared Function GetDateSpanText(ByVal fromDate As DateTimeOptional ByVal toDate As DateTime Nothing) As String
        Try
            Dim days 
As Integer 0hours As Integer 0minuts As Integer 0sec As Integer 0
            If toDate 
Nothing Then toDate DateTime.Now

            
'Do Until toDate.AddYears(-1) < fromDate
            ' 
   years += 1
            
'    toDate = toDate.AddYears(-1)
            '
Loop

            
'Do Until toDate.AddMonths(-1) < fromDate
            ' 
   months += 1
            
'    toDate = toDate.AddMonths(-1)
            '
Loop

            Do Until toDate
.AddDays(-1) < fromDate
                days 
+= 1
                toDate 
toDate.AddDays(-1)
 
           Loop


            Do Until toDate
.AddHours(-1) < fromDate
                hours 
+= 1
                toDate 
toDate.AddHours(-1)
 
           Loop
            Do Until toDate
.AddMinutes(-1) < fromDate
                minuts 
+= 1
                toDate 
toDate.AddMinutes(-1)
 
           Loop

            Do Until toDate
.AddSeconds(-1) < fromDate
                sec 
+= 1
                toDate 
toDate.AddSeconds(-1)
 
           Loop

            Return String
.Format("{0} Days {1} Houres {2} Minutes {3} Seconds"dayshoursminutssec)
 
       Catch ex As Exception
            Return 
"     Error"
 
       End Try
 
   End Function 

المثال معدل مرفق

شكرأ استاذي سعود عرفت الاشكاليه وكل شي تمام الان بارك الله فيك .
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.


الرد }}
تم الشكر بواسطة: سعود
#10
(21-06-22, 12:31 PM)محمد مسافر كتب : شكرأ استاذي سعود عرفت الاشكاليه وكل شي تمام الان بارك الله فيك .

العفو  و فيك بارك الله.
الحمدلله.
=====* التوقيع *======
=================
الرد }}
تم الشكر بواسطة: محمد مسافر



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


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