Question

如何根据给定费率（付款）生成时间（以小时和分钟为单位）？用户需要输入付款和费率才能获得总持续时间。如何完成这项任务？

示例：

rate = $2.00 per hours
payment = $5.00

结果：

duration = 02 h 30 minutes

谢谢。

Answer 1

使用TimeSpan简化您的代码......

Private Function GetDuration(hourlyRate as decimal, payment as decimal) As TimeSpan
    return TimeSpan.FromHours(payment / hourlyRate)
End Function

' ...

Dim duration = GetDuration(2, 5)
Console.WriteLine("{0} hours {1} minutes", duration.Hours, duration.Minutes)

小提琴：http://dotnetfiddle.net/2tvYMK

Answer 2

hours = payment \ rate;
minutes = (payment/rate - hours) * 60;

Answer 3

一旦你有小时数的小数点表示（即2.5），你所要做的就是：

取整数部分 - 即完整小时数;
从total中减去整数部分并乘以60;这是分钟数

这些方面应该有效：

Dim hours as Integer
Dim minutes as Integer

Dim time as Double

time = payment / rate

hours = CInt(time)
minutes = CInt((time - hours) * 60)

Console.WriteLine("duration = {0} h {1} minutes", hours, minutes)

Answer 4

使用TimeSpan结构。它将为您计算小时和分钟。

Dim rate As Double = 2.0
Dim payment As Double = 5.0
Dim time = TimeSpan.FromHours(payment / rate)
Dim duration = [String].Format("{0:00} h {1:00} minutes", time.Hours, time.Minutes)
' ==> "02 h 30 minutes"

您在使用资金时也可以使用Decimal类型。它具有在从二进制格式转换时不引入额外舍入误差的优点。但是，TimeSpan.FromHours预计小时数为Double。因此Double似乎适合这个小例子。

计算给定付款率的时间（小时和分钟）（在VB.net中）

4 个答案: