moon wrote:
Or this...

Sub Test()
Dim myVar As Single
Dim myDate As Date
myVar = 0.96
myDate = "9/29/06 12:33"
MsgBox myDate + myVar
End Sub


I didn't know it was that simple. I assumed that the OP was getting a
type-mismatch error (else why all this concern about type conversion?)
- so I typed "date" in Help and saw the DateAdd function and thought
"bingo". I seldom play around with dates in my code - learn something
new every day.

-semiopen


"Kevin" schreef in bericht
...
Try this:

Sub test()

Dim myVar As Single
Dim myDate As Date
Dim myResult As Date
Dim myMinutes As Long


myVar = 0.96
myMinutes = Round(myVar * 24 * 60) 'myVar times # of minutes in a day
myDate = "9/29/06 12:33"
myResult = DateAdd("n", myMinutes, myDate)
MsgBox myResult

End Sub

-------------------------------------

I don't know if there is a more elegant way

-semiopen

Worked like a charm. Never knew about the dateadd function. Things like
timevalue, datevalue, and cdate are all over the place. Thank you!

-Kevin