VBA应用定义或对象定义的错误

Question

提前感谢任何人的时间。我在网站上搜寻了我的错误声明的各种示例，但是通用主题似乎是不正确的参考，我认为这是我的错误，但尚未找到它。我也想知道我是否错误地定义了任何变量。

这是查看一个工作簿中两个不同工作表的过程。各个ID位于两个工作表的A列中。该程序应检查ID是否匹配，然后检查CurrentHx表中的当前日期是否在SzConMeds表中该药物条目的开始日期和停止日期之内。如果是这样，它将药物名称添加到输出变量中。如果不是，它将移至下一个SzConMeds工作表行。该虚拟数据集每张纸中只有500行。

func setComperehensiveDate(longDate:Double){

        let dbl = TimeInterval(longDate)

        let date = Date(timeIntervalSince1970: dbl / 1000)


        resultDate = date

    }

 func getComperehensiveDate()->Date{

        print("bbbbbb",resultDate!)
        return resultDate!
    }