'
'   Este script pone en pantalla la edad de la página
' en años, meses y días.
'   Para que funcione, hay que ponerle en 'inicio' la fecha
' de nacimiento de la página.
'
'   ©Agosto 2001  Daniel Clemente   (danielclemente _a_t_ ozu.es)
'            www.danielclemente.com
'    
'


inicio="24/10/01"
fecha=Now


If DateDiff("d", inicio, fecha)<=0 Then 

  Document.Write "Por cierto, tienes la fecha del ordenador atrasada. (No puede ser que hoy estemos a <font color='red'>" & Day(Now) & "-" & Month(Now) & "-" & Year(Now) & "</font> )"

Else

  restar=0

  m=Month(fecha)-Month(inicio)-1
  restar=0
  If m<0 Then m=m+12:restar=1


  a=Year(fecha)-Year(inicio)-restar
  

Dim Dias(12)


Dias (1)=31 : Dias (2)=28 : Dias (3)=31 : Dias (4)=30 : Dias (5)=31 : Dias (6)=30 : Dias (7)=31 : Dias (8)=31 : Dias (9)=30 : Dias(10)=31 : Dias(11)=30 : Dias(12)=31 
If (a Mod 4)=0 Then Dias(2)=29


d=Day(fecha)-Day(inicio)+Dias(Month(inicio))
If d>=Dias(Month(inicio)) Then d=d-Dias(Month(inicio)):m=m+1
 
If m>=12 Then a=a+1:m=m-12


Document.Write "La página tiene "

if a then
  document.write a
  if a>1 then document.write " años" else document.write " año"

  if m<>0 and d<>0 then document.write ", " else document.write " y "
end if

if m then
  document.write m
  if m>1 then document.write " meses" else document.write " mes"
  if d<>0 then document.write " y "
end if

if d then
  document.write d
  if d>1 then document.write " días" else document.write " día"

end if

document.write " de vida. "

document.write "<br><center><font color='red' size='-1'>(Siempre que hoy estemos a <font color='black'>" & Day(Now) & "-" & Month(Now) & "-" & Year(Now) & "</font>, claro)</font></center>"



End If