主题：代码W7可用，XP怎么不行了

各位狐长：现请教个问题，根据日期自动算年龄的代码，在W7操作系统上可用，换了XP操作系统无法运行，请各位指点下。谢谢。

Convert(SubString(Convert([进厂日期],'System.String'),1,4),System.Int16)-Convert(SubString(Convert([出生日期],'System.String'),1,4),System.Int16)+ IIf(Convert(SubString(Convert([进厂日期],'System.String'),6,2),System.Int16)*100+ Convert(SubString(Convert([进厂日期],'System.String'),9,2),System.Int16)- (Convert(SubString(Convert([出生日期],'System.String'),6,2),System.Int16)*100+ Convert(SubString(Convert([出生日期],'System.String'),9,2),System.Int16)) < 0,-1,0)

狐爸好，代码是在论坛上找到的，当时安装在W7操作的电脑上，最近更换台电脑是XP操作系统，具休要怎样修改请指教。