منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[نقاش+كود] احتساب عدد الايام بين تأريخين والاعتماد على التأريخ الحقيقي - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : [نقاش+كود] احتساب عدد الايام بين تأريخين والاعتماد على التأريخ الحقيقي (/showthread.php?tid=8771)

[نقاش+كود] احتساب عدد الايام بين تأريخين والاعتماد على التأريخ الحقيقي - مبرمج بلا حدود - 04-05-13

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
تحية طيبة
احبتي في الله ارغب بأحتساب عدد الايام بين تأريخين محددين
انا الحمدلله وبفضل الله كتبت الكود ولكن بالدوت نت ^_^ واتمنى احد يحوله للفيجوال 6 وهو كود عبارة تيكست بوكس عدد 2 يكتب فيها تأريخين وزر واحسب عدد الايام بين التيكستين.
هذا الكود
PHP كود :
Dim vD1 As Date
        Dim vD2 As Date
        Dim vTS As New TimeSpan()
        vD1 = TextBox3.Text
        vD2 = TextBox4.Text
        vTS = vD2 - vD1
        Me.TextBox9.Text = vTS.TotalDays.ToString 
وارغب بشئ ثاني هل يمكن احتساب الوقت الحقيقي بدون الاعتماد على تأريخ الحاسبة الظاهر في شريط المهام خوفا من التغير من قبل المستخدم
يعني فرضا لدي تيكست بوكس واحدة وادخل فيها تأريخ معين وبعد مرور شهر يعني ثلاثون يوم يظهر لي رسالة معينة


شكرا جزيلا واتمنى ان يكون نقاش يعجبكم وهادف بأذن الله
بارك الله فيكم ورعاكم الله


[نقاش+كود] احتساب عدد الايام بين تأريخين والاعتماد على التأريخ الحقيقي - مبرمج بلا حدود - 04-05-13

بخصوص الكود بالفيجوال بيسك 6 واحتساب الفرق بين تأريخين
هذا الكود
PHP كود :
On Error GoTo 1

Text3.Text = DateDiff("d", Text1.Text, Text2.Text) & " يوم"
Exit Sub
1 MsgBox ("من 
فضلك أدخل التاريخ بشكل صحيح")

****
بقى كيفية احتساب الوقت الحقيقي بدون الاعتماد على تاريخ الحاسبة الموجود في شريط المهام يعني بالاعتماد على الرجستري
وكيفية جعل البرنامج يظهر لي رسالة بعد عدد ايام انا احددها

[نقاش+كود] احتساب عدد الايام بين تأريخين والاعتماد على التأريخ الحقيقي - مبرمج بلا حدود - 04-05-13

بأنتظار معلوماتكم

[نقاش+كود] احتساب عدد الايام بين تأريخين والاعتماد على التأريخ الحقيقي - @@أبورائد@@ - 04-05-13


السلام عليكم ورحمة الله وبركاته



مبرمج بلا حدود كتب :
بخصوص الكود بالفيجوال بيسك 6 واحتساب الفرق بين تأريخين
هذا الكود
PHP كود :
On Error GoTo 1

Text3.Text = DateDiff("d", Text1.Text, Text2.Text) & " يوم"
Exit Sub
1 MsgBox ("من 
فضلك أدخل التاريخ بشكل صحيح")

****
بقى كيفية احتساب الوقت الحقيقي بدون الاعتماد على تاريخ الحاسبة الموجود في شريط المهام يعني بالاعتماد على الرجستري
وكيفية جعل البرنامج يظهر لي رسالة بعد عدد ايام انا احددها




الســـــــؤال.....!

من أين هذا الوقت الحقيقي؟ هل تقصد من الآنترنت! لا اعتقد أن يوجد غير ذلك...






السلام عليكم ورحمة الله وبركاته

[نقاش+كود] احتساب عدد الايام بين تأريخين والاعتماد على التأريخ الحقيقي - مبرمج بلا حدود - 05-05-13

وعليكم السلام ورحمة الله وبركاته
حياكـ الله استاذ واهلا وسهلا بكـ
اقصد بالوقت الحقيقي الوقت الذي تعتمد عليه الحاسبة والذي يكون عادة في الرجستري.
يعني مثلا لدي تيكست اكتب فيه تاريخ معين ويكون لدي عداد يحسب الايام بعد التأريخ المكتوب في التيكست فمثلا لو كتبت تاريخ 4/4/2013 سوف يعمل العداد على حسب عدد الايام ابتداءاً من هذا اليوم فمثلا وصلنا بالتاريخ الى 10/4/2013 فسوف يكون لدينا 6 ايام وعندما يقوم المستخدم بأرجاع تاريخ الحاسبة الى مثلا 4/4/2013 فسوف يعود العداد الى البداية انا اريد حتى لو قام المستخدم بتغير التاريخ فلن يتأثر العداد هذا ما اريده ببساطة. ومن الله التوفيق

[نقاش+كود] احتساب عدد الايام بين تأريخين والاعتماد على التأريخ الحقيقي - @@أبورائد@@ - 05-05-13


السلام عليكم ورحمة الله وبركاته



عملت لك هذه الدالة للتأكد من صلاحية التشغيل التجريبي للبرنامج
استدعيها في بداية تشغيل البرنامج في الـ Form_Load


PHP كود :
' التأكد من صلاحية اللتشغيل التجريبي للبرنامج
Public Sub CheckExpire()
    
    ' قراءة عدد الأيام من الرجيستري
    Dim regdy As Integer
    regdy = Val(GetSetting(App.CompanyName, "myProgram", "Days"))
    
    ' التاكد من مدة التشغيل التجريبي للبرنامج
    If regdy > 30 Then

        MsgBox "عفواً..." & vbNewLine & "إنتهيت مدة تجربة البرنامج"

        ' الخروج من البرنامج
        End

    End If
    
    '--------------------------------------------
    
    ' قراءة تاريخ التشغيل الأول من الرجيستري
    Dim dt As String
    dt = GetSetting(App.CompanyName, "myProgram", "FirstDate")
    
    ' إذا لم يجد تاريخ التشغيل الأول في الرجيستري
    If dt = "" Then

        ' إحفظ تاريخ التشغيل الأول في الرجيستري
        SaveSetting App.CompanyName, "myProgram", "FirstDate", Format$(Now, "d/M/yyyy")
        
    ' إذا وجد تاريخ التشغيل الأول في الرجيستري
    Else
        
        ' معرفة فرق الأيام بين التاريخ الأول للتشغيل وتاريخ اليوم
        Dim dy As Integer
        dy = DateDiff("d", dt, Now)
        
        ' إذا كان فرق الأيام بين التاريخ الأول للتشغيل وتاريخ اليوم أكبر عدد الأيام في الرجيستري
        If dy > regdy Then

            ' إحفظ فرق الأيام الجديد في الرجيستري
            SaveSetting App.CompanyName, "myProgram", "Days", dy

        End If
        
    End If
    
End Sub 





السلام عليكم ورحمة الله وبركاته

[نقاش+كود] احتساب عدد الايام بين تأريخين والاعتماد على التأريخ الحقيقي - مبرمج بلا حدود - 06-05-13

وعليكم السلام ورحمة الله وبركاته
باركـ الله فيكـ استاذ وجزاكـ الله وخير
وجعله الله في موازين حسناتكـ ان شاء الله
ربي يحفظكـ وشكرا جزيلا جدا جدا جدا
رعاكـ الله

RE: [نقاش+كود] احتساب عدد الايام بين تأريخين والاعتماد على التأريخ الحقيقي - اسلام الكبابى - 07-05-15

بارك الله فيك
ولكن المرفق يرفض التحميل
ليتك ترفقه مرة أخرى