Help with rounding datetime

[Delta729]

Hi all,



I'm messing this up somehow and can't get this right. I'm using Access 2010 and have a button on a form to add the current datetime and add 2 additional hours, which works fine.
Me.DueTime = Now() + 2 / 24

What I'm trying to add to this is to make it round to the near half hour.
This is what I have tried, but getting a VBA error.
RoundTime(Me.DueTime = Now() + 2 / 24, 1800)

Any help would be great.
Thanks,

[pbaldy]

Presumably you got that here:

http://allenbrowne.com/round.html

Did you copy the function into a standard module in your db? Plus it would be:

Me.DueTime = RoundTime(Now() + 2 / 24, 1800)

[Delta729]

Thanks for the reply. Yes, that is where I got it. I pasted this in, but still getting a compile error? Sorry, I'm pretty much a complete novice when it comes to Access and especially VBA.

Private Sub Command118_Click()
Me.DueTime = RoundTime(Now() + 2 / 24, 1800)
End Sub

[pbaldy]

Can you post the db here?

[Delta729]

I could if I could figure out how do I add an attachment here?

[Rawb]

Can't you just use Access' builtin DateAdd() function?

Me!DueTime = DateAdd("hh", 2, Now())

Edit: Oops, missed the last part of the question. Ignore this post!

[pbaldy]

In the "Go Advanced" area there's a button to manage attachments. Compact/Repair, then zip and attach.

[Delta729]

Okay, I knocked the db down to only what was needed. It's the "add" button near the top right of the form.

[pbaldy]

You didn't copy Allen's function into a standard module like I mentioned (Insert/Module in the VBA editor).

[Delta729]

Oh, I completely misunderstood that. I thought it was just that top section (formula part - I guess). Thanks for reviewing and clarifying, this worked perfectly; now.

[pbaldy]

Happy to help!