operator - 未定义类型date和integer [英] operator - is not defined for types date and integer
本文介绍了operator - 未定义类型date和integer的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！
问题描述
子测试（）
Dim DOB日期
Dim RetirementDate As Date
DOB = 15 / 01/195
RetirementDate = DateSerial（年（DOB - 1）+ 60，月（DOB - 1）+ 1,1） - 1
MsgBox RetirementDate
结束Sub
Sub Test()
Dim DOB As Date
Dim RetirementDate As Date
DOB = 15/01/1950
RetirementDate = DateSerial(Year(DOB - 1) + 60, Month(DOB - 1) + 1, 1) - 1
MsgBox RetirementDate
End Sub
推荐答案
你可能会尝试更换
You may try to replace
Quote：
RetirementDate = DateSerial（年（DOB - 1）+ 60，月（DOB） - 1）+ 1,1） - 1
RetirementDate = DateSerial(Year(DOB - 1) + 60, Month(DOB - 1) + 1, 1) - 1
with
with
DOB = DOB.AddDays(-1)
RetirementDate = DateSerial(DOB.Year + 60, DOBM.Month + 1, 1) - 1
这篇关于operator - 未定义类型date和integer的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
查看全文
