Я хотел бы получить дату проверки или прогноз на основе чередования с другой датой?Как мне поступить об этом?
Спасибо!
Enum EnumSiteInspectionFrequency As Integer ' alternating with WRA
None = 0 ' None
Yearly = 12 '12 months
SecondYearly = 24 '24 months
End Enum
Sub Calculate()
Dim SiteName as String = "Worksite Name Here"
Dim SiteInspectionFrequency = EnumSiteInspectionFrequency.SecondYearly
' Dates
Dim LastInspection As Date = DateTime.Parse("01/01/2010")
Dim LastSafetyInspection As Date = DateTime.Parse("22/03/2010")
Dim DueInspection As Date
' The due inspection either can be 24 months (second yearly) but it has to alternate with the last safety inspection.
End Sub