是否根据VB.Net中的其他两个日期替换“到期”日期？

Question

我想得到一个‘到期’或预计检验日期的基础上与另一个日期交替？我该怎么做呢？

谢谢！

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

Answer 1

使用vb.net时间跨度回答问题