I would like to get a 'due' or predicted inspection date based on alternating with another date? How would I go about this ?
Thankyou!
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