tags:

views:

17

answers:

1

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
A: 

Question answered using vb.net Timespan

Jeremy Child