محاسبه اختلاف دو ساعت مختلف

[Salar82 901]

سلام

اینم یه آموزش دیگه از بنده؛ قصد داریم اختلاف دو تایم مختلف رو بصورت دقیق حساب کنیم.

برای شروع، اول باید ساعاتی رو که می‌خوایم اختلافشون رو بدست بیاریم، از طریق تابع DateTime، به صورت زیر وارد می‌کنیم و هرکدوم رو برابر یه متغیر از نوع Long قرار می‌دیم:

Dim t1 As Long = DateTime.TimeParse("22:14:12") 
Dim t2 As Long = DateTime.TimeParse("23:24:14")

 

حتماً توجه داشته باشید که فرمت ساعت وارد شده باید به صورت hh:mm:ss باشه.

در ادامه برای اینکه بتونیم اختلاف اونا رو بدست بیاریم، از کتابخونه DateUtils استفاده می‌کنیم:

کتابخونه DateUtils به صورت پیشفرض در B4A وجود دارد.

Dim p As Period = DateUtils.PeriodBetween(t1 , t2)

 

در اینجا با متد DateUtils اختلاف ساعت را برابر با متغیر p از نوع Period(برای دسترسی به ساعت، دقیقه و ثانیه‌ی اختلاف) قرار می‌دهیم.

و در آخر برای پیاده کردن اختلاف ساعت، به صورت زیر عمل می‌کنیم:

Log(p.Hours & " hours, " & p.Minutes & " minutes , " & p.Seconds & "second") ' Return 1 hours , 10 minutes , 2 second

 

از متدهای زیر می‌توانیم از اختلاف بدست آمده همچون کد بالا استفاده کنیم:

p.Hours ———-> گرفتن ساعت اختلاف بدست آمده

p.Minutes ——–> گرفتن دقیقه اختلاف

p.second ———> گرفتن ثانیه اختلاف

 

امیدوارم براتون مفید بوده باشه.

[mahfelsoft 130]

دوست عزیز من به یه مسئله ای برخوردم . من دیروز این کدها رو استفاده کردم و مشکلی نبود اما از دیشب که ساعت ها یک ساعت برگشتن عقب برنامه ساعت ورود به نرم افزار رو همون ساعت قبلی میگیرن . برای همین موقع محاسبه یک ساعت اشتباه در میاد . اگر هم بخوام خودم دستی 1 ساعت رو اضافه کنم خوب ممکنه بعد درست بشه . به نظر شما این مسئله خودش حل میشه ؟ یا خودم دستی بهش 1 ساعت اضافه کنم ؟

[Kazemi 1]

در 2 ساعت قبل، mahfelsoft گفته است :

دوست عزیز من به یه مسئله ای برخوردم . من دیروز این کدها رو استفاده کردم و مشکلی نبود اما از دیشب که ساعت ها یک ساعت برگشتن عقب برنامه ساعت ورود به نرم افزار رو همون ساعت قبلی میگیرن . برای همین موقع محاسبه یک ساعت اشتباه در میاد . اگر هم بخوام خودم دستی 1 ساعت رو اضافه کنم خوب ممکنه بعد درست بشه . به نظر شما این مسئله خودش حل میشه ؟ یا خودم دستی بهش 1 ساعت اضافه کنم ؟

باید ساعت رو از خود گوشی بگیری و بعد اختلافش رو با یه ساعت دیگه بدست بیاری...

گوشی خودش ساعتش اتوماتیک تغییر می کنه

[mahfelsoft 130]

در 2 ساعت قبل، Kazemi گفته است :

باید ساعت رو از خود گوشی بگیری و بعد اختلافش رو با یه ساعت دیگه بدست بیاری...

گوشی خودش ساعتش اتوماتیک تغییر می کنه

خوب چطور ساعت رو از خود گوشی بگیرم ؟

[Salar82 901]

سلام

در 16 دقیقه قبل، mahfelsoft گفته است :

خوب چطور ساعت رو از خود گوشی بگیرم ؟

باین صورت:

DateTime.ParseTime(DateTime.Now)

 

[montazeranmahdi 101]

در ۱ ساعت قبل، mahfelsoft گفته است :

خوب چطور ساعت رو از خود گوشی بگیرم ؟

DateTime.TimeFormat = "hh:mm"
label1.text=DateTime.Time(DateTime.Now)