79 lines
2.4 KiB
VB.net
79 lines
2.4 KiB
VB.net
Public Class TimeHelpers
|
|
|
|
''' <summary>
|
|
''' Converts an amount of seconds to a TimeSpan.
|
|
''' </summary>
|
|
''' <param name="Seconds">The seconds to convert.</param>
|
|
Public Shared Function ConvertSecondToTime(ByVal Seconds As Integer) As TimeSpan
|
|
Dim minutes As Integer = 0
|
|
Dim hours As Integer = 0
|
|
|
|
While Seconds > 60
|
|
minutes += 1
|
|
Seconds -= 60
|
|
|
|
If minutes > 60 Then
|
|
minutes = 0
|
|
hours += 1
|
|
End If
|
|
End While
|
|
|
|
Dim reSpan As New TimeSpan(hours, minutes, Seconds)
|
|
Return reSpan
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Returns the amount of time the player has played.
|
|
''' </summary>
|
|
Public Shared Function GetCurrentPlayTime() As TimeSpan
|
|
Dim PTime As TimeSpan = Core.Player.PlayTime
|
|
|
|
Dim diff As TimeSpan = (Date.Now - Core.Player.GameStart)
|
|
PTime += diff
|
|
|
|
Return PTime
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Returns the time to display as string.
|
|
''' </summary>
|
|
''' <param name="DateTime">The DateTime to display.</param>
|
|
''' <param name="ShowSeconds">To show the seconds or not.</param>
|
|
Public Shared Function GetDisplayTime(ByVal DateTime As Date, ByVal ShowSeconds As Boolean) As String
|
|
Return GetDisplayTime(New TimeSpan(DateTime.Hour, DateTime.Minute, DateTime.Second), ShowSeconds)
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Returns the time to display as string.
|
|
''' </summary>
|
|
''' <param name="Time">The TimeSpan to display.</param>
|
|
''' <param name="ShowSeconds">To show the seconds or not.</param>
|
|
Public Shared Function GetDisplayTime(ByVal Time As TimeSpan, ByVal ShowSeconds As Boolean) As String
|
|
Dim days As Integer = Time.Days
|
|
Dim hour As Integer = Time.Hours
|
|
If days > 0 Then
|
|
hour += days * 24
|
|
End If
|
|
|
|
Dim hours As String = hour.ToString()
|
|
If hours.Length = 1 Then
|
|
hours = "0" & hours
|
|
End If
|
|
Dim minutes As String = Time.Minutes.ToString()
|
|
If minutes.Length = 1 Then
|
|
minutes = "0" & minutes
|
|
End If
|
|
Dim seconds As String = Time.Seconds.ToString()
|
|
If seconds.Length = 1 Then
|
|
seconds = "0" & seconds
|
|
End If
|
|
|
|
Dim t As String = hours & ":" & minutes
|
|
If ShowSeconds = True Then
|
|
t &= "." & seconds
|
|
End If
|
|
Return t
|
|
End Function
|
|
|
|
End Class
|