ISAppointment.Day

Description

The day of the week the appointment is to start.

Syntax

object.Day

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

Restriction: This property is readonly.

Return Value

string

Example

Display the day of the week the appointment is to start.

Dim aPatient
Dim aProvider
Dim aFilter 
Dim aAppointments
Dim aFirstAppointment
Dim aDay

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)
  aDay = aFirstAppointment.Day
  Profile.MsgBox(aDay)
else
  Profile.MsgBox("aAppointments.Count = 0")
end if

Note:

In Profile Client v8 on User Interface Day cannot be found, it is auto calculated based on the date in Appointment Window > Start Time fields.

Version information

Added in v7.8.0