Adding minutes to a date in VBA

[orangehairedboy]

I'm trying to write a function which takes a date and time and a number of minutes, adds to minutes to the date/time and returns the new date/time.

For example, if I gave it "2/23/04", "22:00" and 150 minutes, it should return "2/24/04 00:30".

Anyone know how to do that?

 

[Yogi Anand]

How about ...

y040223h1a.xls
	A	B	C	D	E	F
2		02/23/2004	22	150	02/24/20040030
Sheet4

=b2+c2/24+d2/1440

would this do -- or do you still want a UDF?

 

[orangehairedboy]

It needs to be in VBA.

 

[Yogi Anand]

OK ...

Public Function y_OHG(d As Range, h As Range, m As Range)
    y_OHG = d + h / 24 + m / 1440
End Function

y040223h1a.xls
	A	B	C	D	E	F
2		02/23/2004	22	150	02/24/20040030
Sheet4

Dose it help?

 

[Yogi Anand]

And if you want to enter the date, the hours, and the minutes as arguments directly into the function, then you can use ...

Public Function y_OHG1(d As Date, h As Long, m As Long)
    y_OHG1 = (d + h / 24 + m / 1440)
End Function

y040223h1a.xls
	A	B	C	D	E	F
5					02/24/20040030
Sheet4

 

[orangehairedboy]

I'm only using VBA...not a worksheet. Here's what I have and it doesn't work:

Sub test()
    MsgBox y_OHG1("2/23/2004", "23:00", 120)
End Sub
Public Function y_OHG1(d As Date, h As Long, m As Long)
    y_OHG1 = (d + h / 24 + m / 1440)
End Function

 

[Juan Pablo González]

Take a look at the TimeSerial function:

?Now, Now + TimeSerial(0, 10, 0)
2/23/2004 10:16:42 PM       2/23/2004 10:26:42 PM

 

[orangehairedboy]

Now, THAT'S something I can work with! I was using timeserial, but I never thought about doing now+timeserial.

Good idea...as usual.

Thanks!