1 hour meeting time

[Guest]

I'm trying to set up the end time for an appointment as 1 hr more to have 1
hr meeting (not 30 min as a default).
.Start = dtStartDate & " " & dtStartTime ' it's working
dtEndTime = dtEndTime + 1
.End = dtStartDate & " " & dtEndTime ' error
Could anybody help me how to do it?

Thanks

 

[Dmitry Streblechenko]

Why are you using strings instead of datetime? if dtEndTime is "10:30pm",
dtEndTime + 1
will be a "10:30pm1" srting, which makes no sense.
Also, adding 1 to a datetime variable adds 24 hours. One hour is 1/24.
Try
..End = .Start + 1/24

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

 

[Guest]

This is where Date functions come in handy:

objAppt.End = DateAdd("h", 1, objAppt.Start)

 

[Guest]

Thank you very much, Eric.

This is where Date functions come in handy:

objAppt.End = DateAdd("h", 1, objAppt.Start)

--
Eric Legault (Outlook MVP, MCDBA, old school WOSA MCSD, B.A.)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/