23-05-13, 02:37 AM
23-05-13, 03:14 AM
أخي العزيز مبتدئ إليك الحل من وجهة نظري المتواضعة
بداية أنشئ في MySettings خاصية سمها TheDate تكون من نوع Date
ثم أنشئ Label1 في الفورم
ثم قم بكتابة الكود التالي في Form1_Load
ثم قم بالمحاولة مع تغيير التاريخ وشاهد النتيجة
تقبل تحياتي
بداية أنشئ في MySettings خاصية سمها TheDate تكون من نوع Date
ثم أنشئ Label1 في الفورم
ثم قم بكتابة الكود التالي في Form1_Load
كود :
If My.Settings.TheDate = Nothing Then
My.Settings.TheDate = Date.Today.ToString()
My.Settings.Save()
Else
Dim CurrentDate As DateTime = Date.Today.ToString
Dim TotalDaysBetween As Integer = CurrentDate.Subtract(My.Settings.TheDate).Days
Label1.Text = TotalDaysBetween
End Ifتقبل تحياتي