多列組合框和日期數據類型

Question

我想製作一個程序來計算某人醒了多久。用戶只需輸入他醒來的時間。但是，我所遇到的兩個問題：

1. 我需要爲用戶PM和AM之間的選擇，但我不知道如何使多個列的組合框的組合框。

2. 如何使用Date類型變量進行計算？因爲我需要獲得當前時間，並在用戶醒來時減去。

下面的代碼現在：

Public Class Form1 
    Dim wokeup As Date 
    Dim now As Date 
    Dim awake As Date 

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load 
     now = DateAndTime.TimeOfDay 
     ComboBox1.Text = "AM" 


    End Sub 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click 
     wokeup = TextBox1.Text 
     Label2.Text = wokeup 

    End Sub 
End Class 

Answer 1

1）我不知道你所說的「多列」的意思，但我猜測，你只需要用戶AM之間進行選擇下午。

Combobox1.Items.Add("AM") 
Combobox1.Items.Add("PM") 
Combobox1DropDownStyle = ComboBoxStyle.DropDownList 

2）減去您可以使用下面的時間間隔：

Dim timeAwake as TimeSpan = Date.Now.Subtract(CDate(Textbox1.Text)) 

您可能需要添加當前日期的Textbox1.Text前如果文本框只包含一個時間。從timeAwake，您可以使用timeAwake.TotalHours獲得總清醒時間。