将数字转换为小时

Question

我正在尝试做一个简单的“总工作时间”计算器。

我有一个要写入的文本框，比方说，1.30，这需要 1 小时 30 分钟。我有另一个文本框，我会在其中放置相同的 1.30，然后我想要一个标签来添加它们并显示 3 小时。

但是，我找不到将数字转换为小时的正确代码，而是显示 2.6。我怎样才能让它显示 3 小时？

这是我的代码

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Label1.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBox1.Text = My.Settings.SaveTextBox()
    End Sub

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        My.Settings.SaveTextBox = TextBox1.Text()
    End Sub
End Class

Answer 1

使用 NumericUpDown 将使您不必检查用户是否真的在文本框中输入了数字。在属性 window 中将 NumericUpDownMinutes 设置为最大值 59。 PadLeft 将前导零添加到一位数分钟。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim Hours = NumericUpDownHours.Value.ToString
    Dim Minutes = NumericUpDownMinutes.Value.ToString
    lblTotal.Text = $"{Hours}.{Minutes.PadLeft(2, "0"c)}"
End Sub

获得四舍五入的时间

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Dim Hours = NumericUpDownHours.Value
    Dim Minutes = NumericUpDownMinutes.Value
    Dim RoundedHours = CInt(Hours + Minutes / 60)
    lblRoundedTotal.Text = RoundedHours.ToString
End Sub

将数字转换为小时

Convert numbers to hours

vb.net

winforms