رفتن به مطلب
برای استفاده از انجمن و عضـویت کلیک کنید.
شایان آباد

Calculating the next scheduled time

پست های پیشنهاد شده

شایان آباد    6,146

بنیان گذار و مدیر فنی

Dim t As Long = FindNextTime(Array As Double(5, 6.5, 20))

Log($"Next time is: $DateTime{t}"$)

 

Sub FindNextTime(Times As List) As Long

Times.Sort(True)

For Each st As Double In Times

If SetHours(st) > DateTime.Now Then

Return SetHours(st)

End If

Next

Return DateTime.Add(SetHours(Times.Get(0)), 0, 0, 1)

End Sub

 

Sub SetHours(st As Double) As Long

Dim hours As Int = Floor(st)

Dim minutes As Int = 60 * (st - hours)

Return DateUtils.SetDateAndTime(DateTime.GetYear(DateTime.Now), _

DateTime.GetMonth(DateTime.Now), DateTime.GetDayOfMonth(DateTime.Now), hours, minutes, 0)

End Sub

 

Dim now = DateTime.Time(DateTime.Now) As String

 

Sub Service_Start(...)

If now => $"$Time{t}"$ Then

Log ("The current time is: " & now)

Log("Next start time is : " $Time{t}"$

CallSubDelayed(Main, "Button1_ Click")

Else

Log(" the time now is: " & now)

Log("the next start time is : " $Time{t}"$)

CallSubDelayed(Main, "Button2_Click")

End If

End Sub

 

 

به اشتراک گذاری این ارسال


لینک به ارسال

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

برای اینکه بتوانید دیدگاهی ارسال کنید نیاز دارید که کاربر سایت شوید

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید

ورود به حساب کاربری

  • کاربران آنلاین در این صفحه   0 کاربر

    هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.

×