ببین عزیزم اون کد، مد ، ها را ولش کن یک چیزی که خودم استفاده میکنم اینکه میشه تو یک درخواست زمان اولیه ثبت کنی و در زمان بعدی به هر مقدار فاصله ای که بخواهی چکاپ انجام بدی که ببینی چه قدر گذشته میتونی از کد استفاده کنی.
این کد خودم نمشتم که بهت میگم چه کار
اول میتونی این کدو کپی کنی تو ماژول یا خود اصلی main اصلی برنامه ات
Public Function CHour(ByVal Seconds As Long) As String
Dim lTmpMinutes As Long: Dim lTmpSeconds As Long: Dim lTmpHours As Long
If Seconds > 59 Then lTmpSeconds = Seconds Mod 60: If Seconds > 3599 Then CSec = Format(Fix(Seconds / 3600), "00") & ":" & Format(Seconds / 60 - (60 * Fix(Seconds / 3600)), "00") & ":" & Format(lTmpSeconds, "00") Else CSec = "00:" & Format(Fix(Seconds / 60), "00") & ":" & Format(lTmpSeconds, "00") Else CSec = "00:00:" & Format(Seconds, "00")
CHour = CSec
End Function
کارش حالا چیه اینه که اگر بهش عدد به ثانیه بدی میتونی برات تبدیل میکنه به زمان (00:00:00)
که جالبی کار به این شکله که حتی بیخودی علیه سیستم دنیا با کمترین قدرت را داشته باشی تغییر ۱ ثانیه نداری و پردازش هم خیلی خیلی میاری پایین
این کد از حداقل با محاسبه ۳ عملیات ریاضی تا حداکثر ۶ الی ۷ عمل ریاضی این کارو انجام میده.
این لینک همون کده ولی تو سایت دیگه گذاشتم
https://anotepad.com/notes/grsi9b
اگر به کارت اومد که هیچی اگر که نه بگو تا از یک روشی دیگه بهت بگم
پاسخ با نقل قول