Converting a Date-Time code to seconds

Hello all
I am running into a problem converting a date-time code value into seconds, I can get the days & hours just fine, but figuring out the minutes and seconds is baffling me !
I do have a working Function for the converting to seconds based on the following:
=TCode2Secs(Day(cell),Hour(cell),Minutes(cell),Seconds(cell))
but I would prefer to have it just have the cell referenced just once :
=TCode2Secs2(cell)
So far I have got this

Please Login or Register  to view this content.

Any help would be greatly appreciated

If I was doing this with a formula I would just multiply by 86400, e.g. if date/time in A1

=A1*86400

Can't you do the same in VBA.......or am I misunderstanding your intent?

Thanks daddylonglegs, thats exactly what I wanted, I just over-thought the problem I guess
there is some additional processing going on in the UDF, but the seconds conversion was the problem !

Thanks again