ISProvider.VersionOnDate

Example

Display the most recent version of the provider and the version on the specified date.

sub main()

  Dim aFilter 
  Dim aProviders
  Dim aDate
  Dim aMessage

  Set aFilter = Profile.CreateProvidersFilter
  aFilter.Category = 2 'pcProvider
  aFilter.Code = "VE1"

  set aProviders = Profile.LoadProvidersByFilter(aFilter)

  aDate = #06/10/2019#
  aMessage = GetProviderCollectionInfo(aProviders, aDate)

  Profile.MsgBox(aMessage)
end sub


function GetProviderCollectionInfo(aProviders, aDate)
  Dim aProvider
  Dim aProviderOnDate
  Dim aInfo
   
  aInfo = ""

  for each aProvider in aProviders
    aInfo = aInfo & vbNewLine & vbNewLine & aProvider.FullName

    set aProviderOnDate = aProvider.VersionOnDate(aDate)
    if aProviderOnDate is nothing then    
      aInfo = aInfo & vbNewLine & " - " & aProvider.FullName &_
        " (" & aProvider.Id & ") " & "  -  No Version on this date"
    else            
      aInfo = aInfo & vbNewLine & "     CURRENT VERSION: " &  aProvider.FullName &_
        "  (ID: " & aProvider.Id & ") " & " (Code: " & aProvider.Code & ")" &_
        vbNewLine & "      VERSION ON DATE:  " & aProviderOnDate.FullName &_
        "  (ID: " & aProviderOnDate.Id & ") " & "  (Code: " &_
        aProviderOnDate.Code & ")" 
    end if 
  next   
  GetProviderCollectionInfo = aInfo
end function