PfsHoliday

Remarks:

The Holiday object contains information on a holiday from the feiertage.txt. This object contains a name and a date for the holiday. On loading the project only the holidays of the current year are acquired.

Properties:

Samples:

''''''''''''''''''''''''''''''''''''''''''''''
'''''''''Giving out all Holidays''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''
Sub holidaytest()

Dim mypfs As PfsEngine
Set mypfs = MyWorkspace.ActiveDocument.PFS
Dim i As Double

Debug.Print mypfs.CountryName

	For i = 1 To mypfs.Holidays.Count - 1
			Debug.Print "--" & i
			Debug.Print mypfs.Holidays.Item(i).Name
			Debug.Print mypfs.Holidays.Item(i).Date
	Next i

End Sub