End Date display for all-day appointment

[Sriram N A]

I have a custom form for recording notifications from people proceeding out
of office, which are dropped into a public folder.

The time office takes a report using the Advanced Find feature from the
entries in the folder.

Though the start and end dates are correctly displayed in the form, there is
some confusion since the report indicates the _next_ day for the end date,
like so:

Duration: 2 days
Start: Monday 14-Feb-05 12:00 AM
End: Wed 16-Feb-05 12:00 AM

I guess one way to handle this would be to define a user-defined field in
the folder which subtracts 1 minute from the end date for display purposes,
but there does not appear to be a way to do this without defining the field
in the form also.. or is there an easier way?

Sriram

 

[Guest]

Yes, bound controls need to be bound to a field in order to change its
display value. You could add a Label control, and calculate the result you
want when the form loads. This code subtracts one minute from the End time
on a Label1 control on the second page:

Function Item_Open()
Item.GetInspector.ModifiedFormPages("P.2").Controls(Label1).Caption =
DateAdd("m", -1, Item.End)
End Function