Vb.net将文本框与时间和组合框值相乘

时间:2019-01-25 17:30:46

标签: vb.net

我有一个带时间值的蒙版文本框(任务持续时间为“ hh:mm”)和一个1-10的组合框。

我如何用组合框来残缺被屏蔽的文本框,以获取它在“ hh:mm”中的总持续时间。

我将txttime1作为保存时间的第一个文本框。 (隐藏的文本框)

Cmb1为1-10,表示必须将txttime1乘以多少次。

Txtdura1作为乘法的答案。基本上是事件的总持续时间。

任何方向都很好。

2 个答案:

答案 0 :(得分:0)

将小时和分钟彼此分开,创建一个TimeSpan对象,并将其乘以ComboBox中的因子:

Dim duration As TimeSpan = TimeSpan.Parse(txttime1.Text)
Txtdura1 = duration.Multiply(Integer.Parse(Cmb1.Text)).ToString("hh\:mm")

相关文档:

答案 1 :(得分:0)

将字符串从文本框中转换为TimeSpan。然后更改为TotalDoubleutes,它是Double,以便您可以执行乘法。取乘法结果并将其更改为TimeSpan .FromMinutes。然后,您可以通过多种方式格式化结果。

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    Dim ts As TimeSpan = TimeSpan.ParseExact(TextBox2.Text, "h\:m", CultureInfo.CurrentCulture)
    Dim dblTotalMinutes As Double = ts.TotalMinutes
    Dim Multiplier As Integer = CInt(ComboBox1.SelectedItem)
    Dim MultipliedMinutes As Double = dblTotalMinutes * Multiplier
    Dim MultipliedTimeSpan As TimeSpan = TimeSpan.FromMinutes(MultipliedMinutes)
    'For days:hours:minutes
    TextBox3.Text = MultipliedTimeSpan.ToString("d\:hh\:mm")
    'Total Hours as double
    TextBox4.Text = MultipliedTimeSpan.TotalHours.ToString
End Sub