date function needed(2)

What I need is a function that has a parameter of hour and minute. Then have it return the date for the next date with the hour and minute given. For example, if the hour fed into it was 9 and the minute was 30, then if the current date and time is 3/17/04 10:30AM then the function would return 3/18/04 9:30AM. On the other hand, if the example was 13 and 30 fed into it and the date currently is 3/17/04 2:30 PM, then the function would return 3/18/04 1:30PM. On the other hand, if the time was 3/17/04 8:00 AM and the numbers was 9, 30, then it would return 3/17/04 9:30AM. Must be coded with Visual Basic 6.0. Should be just the main procedure and the function. Should be something like this sub main dim newdate as date newdate=calculatedate(9, 30) end sub public function calculatedate(whathour as integer, whatminute as integer) dim newvalue as date calculatedate=newvalue end function ## Deliverables The source code only to show the new date obtained based on the parameters sent in. ## Platform Windows 2000, Windows XP