vb.net重载决策失败 原因是可访问的dateadd能够不经收缩即可被调用

求高人指点
我想根据开始时间、周期、时间单位，算出结束时间，比如2012-01-01开始，时间单位是月，周期数是3，结束日期就是2012-04-01，以下是我的代码：
If units = "年" Then

            edate = DateAdd(DateInterval.Year, cycle, sdate)
        ElseIf units = "月" Then
            
            edate = DateAdd(DateInterval.Month, cycle, sdate)
            Exit Sub
        ElseIf units = "季度" Then
            edate = DateAdd(DateInterval.Quarter, cycle, sdate)
            Exit Sub
        ElseIf units = "天" Then
            
            edate = DateAdd(DateInterval.Day, cycle, sdate)
            Exit Sub
        End If
vb.net dateadd 重载决策失败

补充：.NET技术 ,  VB.NET