Trimming TIME off your project

[yeah]

Actually, this has more 2 do with trimming TIME itself.

Say I've got dim TDstamp as date and I set TDstamp = #5/19/2018 10:47:46 AM#

Then later, I want to modify the value to #5/19/2018 10:47: AM# (trimming off the seconds, you see)

Seeking simple (elegant preferred) suggestion that would result in the following...



Debug.Print ElegantFN(TDstam)
5/19/2018 10:47:00 AM

Any and all contributions will be met with the utmost level of appreciation.

yeah... Me!MyOldLady = Now()

[ArviLaanemets]

= INT(TDstamp) + ROUND((TDstamp-INT(TDstamp))*(12*60),0)/(12*60)

[yeah]

= INT(TDstamp) + ROUND((TDstamp-INT(TDstamp))*(12*60),0)/(12*60)

Thanks, ArviLaanemets. I'll have a go at it.
Kind regards,
yeah

[Micron]

or just Format(TDstamp,"mm/dd/yyyy") ?
EDIT: never mind. Don't know why I thought the whole time portion wasn't needed. I'll shut up now.

EDIT2:
Wait a sec! Why not just format as "mm/dd/yyyy hh:mm" ?

[yeah]

or just Format(TDstamp,"mm/dd/yyyy") ?
EDIT: never mind. Don't know why I thought the whole time portion wasn't needed. I'll shut up now.

EDIT2:
Wait a sec! Why not just format as "mm/dd/yyyy hh:mm" ?

Answer: Because that does not evaluate to #5/19/2018 10:47:00 AM#

[yeah]

= INT(TDstamp) + ROUND((TDstamp-INT(TDstamp))*(12*60),0)/(12*60)

? DateValue(TDstamp) & " " & Hour(TDstamp) & ":" & Minute(TDstamp) returns a string that can be recognized as a time/date representation.
But it's a string and would have 2B operated on with DateValue to turn it into a calculable time 'n date value. So I like yours better.
I was hoping for a one-shot wonder - something that didn't resemble half-a-paragraph on a typed page.

[isladogs]

Format(TDStamp,"mm/dd/yyyy hh:nn") & ":00 " & Format(TDStamp,"AMPM")
OR
Format(TDStamp,"mm/dd/yyyy hh:nn:00 AMPM")