سؤال عن تحديد مدة عمل البرنامج بالايام ؟

Dim a1 As Date = "1429/4/11" 'أول يوم بدأ بتشغيل البرنامج

Dim a As Date = Date.Today.ToString

MsgBox(DateDiff(DateInterval.Day, a1, a, FirstDayOfWeek.Saturday, FirstWeekOfYear.Jan1))

عفوا يا اخي لم افهم طريقة عمل الكود

هل يوجد كود افضل من هذا

ارجو الافادة

اخي الكريم

اعتقد انك ممكن تستخدم الدوال الاتيه

GetSetting و ايضا SaveSetting علشان تسجل البرنامج بالريجستري

من هنا ممكن تبدا علي ما اعتقد

اخوك عمر

في البداية أعمل مديول جديد ولكن أسمة Module Class1

وأدرج فضاء الاسماء Imports Microsoft.Win32

وضع هذا الكود في المديول

Imports Microsoft.Win32
Module Class1
	Public Sub new_Key(ByVal new_date As Date)
		Try
			Dim reg As Registry
			reg.ClassesRoot.CreateSubKey("new_date")
			Dim ms2 As Microsoft.Win32.RegistryKey
			ms2 = Microsoft.Win32.Registry.ClassesRoot
			ms2 = ms2.OpenSubKey("new_date", True)
			ms2.SetValue("new_date", new_date)
			ms2.Close()
		Catch ex As Exception
		End Try
	End Sub
	Public Function Return_Key(ByVal new_date As Date) As Date
		Try
			Dim ms2 As Microsoft.Win32.RegistryKey
			ms2 = Microsoft.Win32.Registry.ClassesRoot
			ms2 = ms2.OpenSubKey("new_date", True)
			Return ms2.GetValue("new_date").ToString()
			ms2.Close()
		Catch ex As Exception
			Return Date.Now
		End Try
	End Function
	Public Function Return_day(ByVal new_date As Date) As Int32
		If Return_Key(new_date) = Date.Now Then new_Key(new_date)
		Dim new_date1 As Date = Return_Key(new_date)
		Return (DateDiff(DateInterval.Day, new_date1, new_date, FirstDayOfWeek.Saturday, FirstWeekOfYear.Jan1))
	End Function
End Module

وطريقة أستدعاء الناتج هي

 
Return_day(Date.Now)

نرجوا اكمال الدرس

أنضم إليكم

نرجوا إكمال الدرس