Option explicit
Dim x, y, z, b, mo
x=inputbox("enter date")
x=cdate(x)
y=date()
z=datediff("m",x,y)
b=z/12
mo=z mod 12
print("years=" &b)
print("months=" &mo)
Dim x, y, z, b, mo
x=inputbox("enter date")
x=cdate(x)
y=date()
z=datediff("m",x,y)
b=z/12
mo=z mod 12
print("years=" &b)
print("months=" &mo)
No comments:
Post a Comment