ISService.GetServicePriceByDate

Example

Display the number of the services and some information about the linked service price for the specified date.

Dim aFilter
Dim aServices
Dim aService
Dim aServicePrice
Dim aMessage
Dim i

Set aFilter = Profile.CreateServicesFilter
aFilter.Description = "Injection"
set aServices = Profile.LoadServicesByFilter(aFilter)

aMessage = "Services Count = " & aServices.Count & vbNewLine
for i = 0 to aServices.Count - 1
  set aService = aServices.Item(i)   
  aMessage = vbNewLine & aMessage & "The service '" & aService.Description & "'" &_
    vbNewLine  
  set aServicePrice = aService.GetServicePriceByDate("MSP", #10/14/2019#)
  if aServicePrice is nothing then
    aMessage = "No service price set"
  else
    aMessage = aMessage & vbNewLine & "The standart price for the service '" &_
    aService.Description & "' is " & aServicePrice.StandardPrice & vbNewLine 
  end if
next                       

Profile.MsgBox(aMessage)