Работа с классом ClassDate
Представленный класс вставляется в модуль классов

В модуле формы создается объект класса ClassDate

Private dc as new ClassDate

Далее доступ к функциям и свойствам осуществляется с помощью объекта dc

- Поиск первого дня месяца
dim fd as date
dim mydate as date
mydate = проверяемая дата
fd = dc.FindFirstDayOfMonth(mydate)

- Поиск последнего дня месяца
dim ld as date
dim mydate as date
mydate = проверяемая дата
ld = dc.FindLastDayOfMonth(mydate)

-Преобразование в американский формат
dim ad as string
dim mydate as date
mydate = преобразуемая дата
ad = dc.TransferToAmericanFormat(mydate)

-Преобразование в российский формат
dim rd as string
dim mydate as date
mydate = преобразуемая дата
rd = dc.TransferToRussianFormat(mydate)

- Поиск первого дня недели
dim fdw as date
dim mydate as date
mydate = проверяемая дата
fdw = dc.FirstDayOfWeek(mydate)

- Поиск последнего дня недели
dim ldw as date
dim mydate as date
mydate = проверяемая дата
ldw = dc.LastDayOfWeek(mydate)

-Проверка, является ли введенный год високосным
dim ly as integer
dim f as boolean
f=dc.IsLeapYear(ly)
Если год високосный, то вернется значение true, иначе  false

-Вычисление количества полных лет
dim mybirthdate as date
dim ag as integer
ag = dc.Age(mybirthdate)
По введенной дате рождения определяется количество исполненных лет

-Проверка пересекаются ли два интервала дат
dc.IsIntervalCrossing(начальная дата первого интервала, конечная дата первого интервала, начальная дата второго интервала, конечная дата второго интервала)
Если интревалы пересекаются, то возвращает true, иначе - false


-Проверка вхождения двух интервалов дат один в другой 
dc.IsInInterval(начальная дата первого интервала, конечная дата первого интервала, начальная дата второго интервала, конечная дата второго интервала)
Если интревалы входят друг в друга - возвращается true. иначе - false