ISAppointment.EndTime

Description

The date and time the appointment is to finish.

Syntax

object.EndTime

Part	Attribute	Type	Description
`object`	Required	ISAppointment	The `object` always implements the ISAppointment interface

Restriction: This property is readonly.

Return Value

DateTime

Example

Display the date and time the appointment is to finish.

Dim aPatient
Dim aProvider
Dim aFilter 
Dim aAppointments
Dim aFirstAppointment
Dim aEndTime

Set aPatient = Profile.SelectPatient
set aProvider = Profile.LoadProvider("MM")
set aFilter = Profile.CreateAppointmentFilter

aFilter.ProviderID = aProvider.Id
aFilter.PatientId = aPatient.Id
aFilter.DateFrom = #01/01/2018#
aFilter.DateTo = #01/01/2019#

set aAppointments = Profile.LoadAppointments(aFilter)

if aAppointments.Count > 0 then
  set aFirstAppointment = aAppointments.Item(0)
  aEndTime = aFirstAppointment.EndTime
  Profile.MsgBox(aEndTime)
else
  Profile.MsgBox("aAppointments.Count = 0")
end if

Note:

In Profile Client v8 on User Interface EndTime is auto calculated from the 'Start Time' and 'for' fields and can be found in Appointment Window > End Time fields.

Version information

Added in v7.8.0