年龄代码1
效果:
代码:
<LI> <H2>寶貝年齡</H2>
熙熙出生于2007年9月21日,
<SCRIPT LANGUAGE="vbscript">
Dim ToDay, y, m, d,m2
ToDay = Date()
Birth = #2007-9-21# '宝宝的出生年月写在这
y = DateDiff("yyyy", Birth, ToDay)
If Month(ToDay) < Month(Birth) Then y = y -1
Birth = DateAdd("yyyy", y, Birth)
m = DateDiff("m", Birth, ToDay)
If Day(ToDay) < Day(Birth) Then m = m-1
m2=0
if m<0 then
y=y-1
m2=12+m
else
m2=m
end if
Birth = DateAdd("m", m, Birth)
d =DateDiff("d", Birth, ToDay)
document.write("现在" & y & "岁" & m2 & "个月" & d & "天")
</SCRIPT>
使用说明:
1、把上面的代码中红色的部分改成自己宝宝的实际情况
2、把修改后的代码放入博客设置的首页公告里 >>>直达设置