jag108
Active Member
- Joined
- May 14, 2002
- Messages
- 433
- Office Version
- 365
- 2016
- Platform
- Windows
- MacOS
Good Day All,
Trying to convert a double type value into Days, Hours, Minutes. This is monitoring server up times, I keep getting a overflow error.
Trying to convert a double type value into Days, Hours, Minutes. This is monitoring server up times, I keep getting a overflow error.
VBA Code:
Function ConvertTime()
Dim seconds As Double
seconds = 1493674.94405120
ConvSec = seconds Mod 60
ConvMin = (seconds Mod 3600) \ 60 ' [COLOR=rgb(65, 168, 95)]OK[/COLOR]
ConvHour = (seconds Mod (3600 * 24)) \ 3600 ' [COLOR=rgb(184, 49, 47)]Fails[/COLOR]
ConvDays = seconds \ (3600 * 24)
ConvertTime = ConvDays & " days " & ConvHour & " hours " _
& ConvMin & " minutes and " & ConvSec & " seconds"
End Function