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

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

ملاحظه :

اشكر الاخ المبدع / asmarsou  حيث فعلاً افادني في موضوع سابق بالاكواد وكذلك الشكر موصول للاستاذ/ [b]سعود  [/b]
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.


الرد }}}
تم الشكر بواسطة: سعود , 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
حياك استاذ/ ابو سعود

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


الرد }}}
تم الشكر بواسطة:
#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 ك ب / التحميلات : 121)
الرد }}}
تم الشكر بواسطة: محمد مسافر
#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)محمد مسافر كتب : شكرأ استاذي سعود عرفت الاشكاليه وكل شي تمام الان بارك الله فيك .

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] حساب الوقت (دخول و خروج الموظف) Kamil 0 322 05-01-24, 08:04 PM
آخر رد: Kamil
  [مشروع] إغلاق أو إعادة تشغيل الكمبيوتر بعد وقت محدد Kamil 0 230 17-12-23, 03:44 PM
آخر رد: Kamil
  كتابة التاريخ بعدة صيغ العتيق 0 400 19-09-23, 12:58 AM
آخر رد: العتيق
  [مثال] كتابة التاريخ و الوقت بعدة صيغ asmarsou 0 544 20-12-22, 09:56 PM
آخر رد: asmarsou
  [مشروع] كيفية البحث عن ملف محدد باسم معين في الكمبيوتر asmarsou 5 1,386 18-07-22, 11:11 AM
آخر رد: سعود
  [مشروع] رد - افيدوني جزاكم الله خيرا كود حساب أصناف معينه سعود 2 993 08-07-22, 09:22 AM
آخر رد: سعود
Rainbow [كود] حساب وقت التاريخ المتبقي مع اضافه مقطع تشغيل صوتي محمد مسافر 1 902 15-06-22, 10:09 AM
آخر رد: asmarsou
  برنامج تدمير ملفات مجلد معين محدد سعود 0 1,190 02-01-22, 02:58 PM
آخر رد: سعود
  [VB.NET] كيفية حساب الوحدات فى برامج المبيعات والمخازن units caculate in stock keromero 5 4,252 30-07-21, 05:20 PM
آخر رد: atefkhalf2004
  اضافه حساب سلام و محبه 1 1,275 08-05-21, 05:52 AM
آخر رد: MOHAMEDSALEH

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


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