مقایسه دو زمان و محاسبه نرخ تعریف شده

[iran_sky]

سلام دوستان
سوال مربوط کافی نت تایمره
بر فرض مثال الان ساعت 1:46 حدود 23 دقیقه بعد 2:9 دقیقه
چطوری من این 23 دقیق رو از بین این دو زمان استخراجش کنم
بعد در ساعتی 1500 تومان محاسبه و نرخ رو بده
با تشکر
ممنون میشم راهنمایی کنید

[amirzandi]

dim d1 as datetime
dim d2 as datetime

dim ts as timespan = d2-d1

dim price as decimal = ts.totalhours * 1500

[iran_sky]

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

[Hybrid]

سلام ،

یکی از راه ها اینه که بیای هر دو زمان رو به دقیقه تبدیل کنید و بعد از همدیگه تفریق بشن و بعد دوباره تبدیل به ساعت بشن.

راه حل دوم :


کدها با هم جور در نمیاد
یک برنامه کنسول بسازید و قطعه کد زیر رو که واستون نوشتم داخلش بنویسید و نتیجه رو مشاهده کنید.


Dim First As DateTime = #6/12/2010 6:32:00 PM#
Dim Last As DateTime = #6/13/2010 10:47:00 PM#
Dim Result As TimeSpan = Last - First
Console.WriteLine("Ekhtelaf saat : " + Result.Hours.ToString())
Console.WriteLine("Ekhtelaf Daghighe : " + Result.Minutes.ToString())
Console.ReadLine()

نتیجه کد بالا 4 ساعت و 15 دقیقه هست.

موفق باشید

[amirzandi]

چیش جور در نمی یاد؟

[iran_sky]

با سلام
متغییر هایی که از نوع datetime گرفته ای روی 12:00:00
ثابته زمانی که تایم رو قطع میکنی هزینه رو 0 ریال میزنه

[iran_sky]

با سلام
اول از همه تشکر میکنم از این دو دوست عزیز که زحمت کشیدن منو راهنمایی میکنند :تشویق:

تقریبا کد های این دو عزیز رو با مخطوط کردم جواب داد .

Label7.Text = Now.Hour & ":" & Now.Minute & ":" & Now.Secondزمان استارت
Label8.Text = Now.Hour & ":" & Now.Minute & ":" & Now.Secondزمان خاتمه
Dim d1 As DateTime = "#" & Label7.Text & "#"
Dim d2 As DateTime = "#" & Label8.Text & "#"
Dim ts As TimeSpan = d2.Subtract(d1)
Label9.Text = ts.ToString
Dim price As Decimal = ts.TotalHours * 1000
MsgBox(price)

یا علی