Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.
>>main Option Explicit Private Sub Timer1_Timer() UpLbl.Caption = FormatCount(GetTickCount, DaysHoursMinutesSecondsMilliseconds) End Sub >>module Public Enum TimeFormatType DaysHoursMinutesSecondsMilliseconds = 0 DaysHoursMinutesSeconds = 1 DHMSMColonSeparated = 2 DaysHoursMinutes = 3 End Enum Public Function FormatCount(Count As Long, Optional FormatType As TimeFormatType = 0) As String Dim Days As Long, Hours As Long, Minutes As Long, Seconds As Long Count = Count \ 1000 Days = Count \ (24& * 3600&) If Days > 0 Then Count = Count - (24& * 3600& * Days) Hours = Count \ 3600& If Hours > 0 Then Count = Count - (3600& * Hours) Minutes = Count \ 60 Seconds = Count Mod 60 Select Case FormatType Case 0 FormatCount = Days & " days, " & Hours & " hours, " & Minutes & " minutes, " & Seconds & " seconds" Case 1 FormatCount = Days & ":" & Hours & ":" & Minutes & ":" & Seconds Case 2 FormatCount = Days & " days, " & Hours & " hours, " & Minutes & " minutes" End Select End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.