Dim fractionalDay As Single
fractionalDay! = TimeValue("06:00:00")
Print fractionalDay!
' Output: .25
' LotusScript assigns the value 0.25 to the variable
' fractionalDay, since 6:00 AM represents a time value
' of 6 hours, or one-quarter of a 24-hour day.