TimeSpan issue...

[newguy]

Can someone tell me why this does not work.

Public Function UnitTimeValue(ByVal time As Double) As String
   Dim ts As TimeSpan = TimeSpan.FromMinutes(time)
   Return ts.Hours & ":" & ts.Minutes.ToString("0#") & ":" & ts.Seconds.ToString("0#")
End Function

If I type in 450.50 I get [7:30:30], but when I type in 4500.50 I get [3:00:30]
Very confusing...

 

[newguy]

This works:

Return Fix(ts.TotalHours).ToString & ":" & Fix(ts.TotalMinutes).ToString("0#") & ":" & (ts.Seconds).ToString("0#")

Duh moment...

 

[jmcilhinney]

You don't ever need to use Fix and what you're doing there is not correct. You do need to use TotalHours but you don't need to use TotalMinutes:

Public Function UnitTimeValue(ByVal totalMinutes As Double) As String
    Dim time As TimeSpan = TimeSpan.FromMinutes(totalMinutes)

    Return String.Format("{0}:{1:00}:{2:00}", _
                         Math.Floor(time.TotalHours), _
                         time.Minutes, _
                         time.Seconds)
End Function

 

[newguy]

Thanks JMC, I admit TimeSpans are not my forte. I found the values I needed while debugging.