冰楓論壇

標題: 請問如何讓物件裡的時間相加? [打印本頁]
作者: ZhangBowei    時間: 2020-8-24 19:52
標題: 請問如何讓物件裡的時間相加?
比如說
ComboBox1 跟 ComboBox2 裡面的Text時間 相加後顯示於Label裡

15:30 + 19:30  =  4



作者: love6610716    時間: 2020-8-24 19:52
Dim moment As DateTime = DateTime.ParseExact(time_str, "HH:mm tt", Nothing)

moment.Hour
moment.Minute

各別相加之後再輸出就可以了
DateTime 詳細用法 https://docs.microsoft.com/zh-tw ... ur?view=netcore-3.1
作者: ZhangBowei    時間: 2020-8-24 20:36
love6610716 發表於 2020-8-24 19:52
Dim moment As DateTime = DateTime.ParseExact(time_str, "HH:mm tt", Nothing)

moment.Hour

有沒有更具體一些
作者: 乂Boyue乂    時間: 2020-8-24 20:49
為什麼

15:30 + 19:30  =  4
作者: love6610716    時間: 2020-8-24 20:52
本帖最後由 love6610716 於 2020-8-24 20:55 編輯
  1. Dim startTime As New DateTime(0, 0, 0, 2, 30, 0)     ' 2:30 AM
  2. Dim endTime As New DateTime(0, 0, 0, 10, 0, 0)     ' 10:00 AM

  4. Dim duration As TimeSpan = endTime - startTime        'Subtract start time from end time

  6. Console.WriteLine(duration)
複製代碼
Result:
7:30:00

這是其中一種用法, 你也可以用我上面說的 Time.Hour, Time.minute 去做

*補充
DateTime(Int32, Int32, Int32, Int32, Int32, Int32, Int32, Calendar, DateTimeKind) 這是DateTime建構子的"完整"參數
參數分別代表 年、月、日、時、分、秒、毫秒以及國際標準時間 (UTC) 或本地時間
作者: ZhangBowei    時間: 2020-8-24 20:54
乂Boyue乂 發表於 2020-8-24 20:49
為什麼

15:30 + 19:30  =  4


上班工時這是個舉例
不然要多少...?
作者: love6610716    時間: 2020-8-24 21:22
  1.         Dim MyTime As Date = DateTime.ParseExact("15:30", "HH:mm", Nothing)
  2.         Dim MyTime2 As Date = DateTime.ParseExact("19:30", "HH:mm", Nothing)
  3.         Dim duration As TimeSpan = MyTime2 - MyTime        'Subtract start time from end time

  5.         Console.WriteLine(duration.ToString("hh\:mm")) 'Subtract start time from end time
複製代碼
輸出: 04:00
作者: ZhangBowei    時間: 2020-8-24 22:27
love6610716 發表於 2020-8-24 21:22
輸出: 04:00

02.png

效果如圖

前者時間隨機後者時間也隨機的
但顯示出來的幾小時是自動算好的




歡迎光臨 冰楓論壇 (https://bingfong.com/) Powered by 冰楓