Lægge datoer sammen ?

Jeg har et script som jeg gerne vil kunne trække summen af alle dage, måneder, år ud af og lægge dem sammen. På den måde for man et samlet \"medlemstal\" på ex 200 år 4 måneder 4 dage. Er det muligt??

<%
mypage = request(\"whichpage\")

    If  mypage = \"\" then
      mypage = 1
    end if

    mypagesize = request.cookies(\"paging\")(\"pagesize\")

    If  mypagesize = \"\" then
      mypagesize = 35
    end if
   
       
       
%>   
      <table border=0 width=\"100%\" cellspacing=0 cellpadding=2 style=\"border:1px solid #4682B4;\">
        <tr bgcolor=\"#4682b4\">
          <td class=\"whitesmallerheader\" width=\"20%\">Brugernavn</td>
          <td class=\"whitesmallerheader\" width=\"13%\">Medlem siden</td>
          <td class=\"whitesmallerheader\" width=\"15%\">Antal Hilsner</td>
          <td class=\"whitesmallerheader\" align=right width=\"16%\">Clean siden:</td>
          <td class=\"whitesmallerheader\" align=right width=\"28%\"> Idag Cleantime
            ialt:</td>
          <td class=\"whitesmallerheader\" align=right width=\"8%\">Hilsner</td>
        </tr>
        <%   
        OpenDB sConnUsers
        sSQL = \"SELECT * FROM users where Public = Yes order by BirthDate DESC\"
        rs.Open sSQL,,,adCmdTable
        i = 0
       
        set guestConn = Server.CreateObject(\"ADODB.Connection\")
        guestConn.Open sConnUserGuest  \'Åben til offenligbeskeder

    If rs.EOF or rs.BOF then
        Response.Write \"\"
    Else

        rs.movefirst
        num = 0
        rs.pagesize = mypagesize
        maxpages = cint(rs.pagecount)
        maxrecs = cint(rs.pagesize)
        rs.absolutepage = mypage
        howmanyrecs = 0
        rec = 1
        do until rs.EOF or (rec = mypagesize+1)
            if strI = 0 then
                CColor = \"#FFFFE0\"
            else
                CColor = \"#DDDDDD\"
            end if

        sBirthdate = rs(\"Birthdate\")
        sUserName = rs(\"UserName\")
        sEmail = rs(\"eMail\")
        sICQ = rs(\"ICQ\")
        sYahoo = rs(\"Yahoo\")
        sAIM = rs(\"AIM\")
        signupdt = rs(\"CreateDate\")
        sFirstName = rs(\"FirstName\")
        sLastName = rs(\"LastName\")
        fullname = sFirstName &\" \"&sLastName
        if rs(\"GenderMale\") = True then sGender = \"Mand\" else sGender = \"Kvinde\"
        if rs(\"NoSend\") = True then sNoSend = \"Nej\" else sNoSend = \"JaTak\"
        sCountry = rs(\"CountryCode\")
       
        sql = \"SELECT COUNT(ID) AS CountBesked FROM messages WHERE To = \'\" & sUserName & \"\';\"
        set guestRS = guestConn.Execute(sql)       
       
    %>
        <tr bgcolor=\"<%=Ccolor%>\">
          <td class=\"smallertext\" width=\"20%\"><b><a href=\"/dev/myDeV/users.asp?username=<%=sUserName%>\"><%=susername%></a></b><BR>
            <%=fullname%></td>
          <td class=\"smallertext\" width=\"13%\"><%=signupdt%></td>
          <td class=\"smallertext\" width=\"15%\"> <%=guestRS(\"CountBesked\")%>
<!--            <div align=\"right\"><%=sGender%></div>-->
          </td>
          <td class=\"smallertext\" align=right width=\"16%\"><%=sBirthdate%></td>
          <td class=\"smallertext\" align=right width=\"28%\">
            <%
dato = sBirthdate
years = Datediff (\"yyyy\",dato,date)
dato = dateAdd(\"yyyy\",years,dato)
mounths = Datediff (\"m\",dato,date)
if mounths < 0 then
  dato = dateAdd(\"yyyy\",-1,dato)
  mounths = Datediff (\"m\",dato,date)
  years = years - 1
end if
dato = dateAdd(\"m\",mounths,dato)
days = Datediff (\"d\",dato,date)
if days < 0 then
  if mounths > 0 then
    mounths = mounths - 1
  else
    years = years - 1
    mounths = 11
  end if
  dato = dateAdd(\"m\",-1,dato)
  days = Datediff (\"d\",dato,date)
end if
dinStr = years & \" år \" & mounths & \" måneder \" & days & \" dage\"
Response.Write dinStr
%>
          </td>
          <td class=\"smallertext\" align=right width=\"8%\"><a href=\"/dev/live/messenger/sendmessage.asp?txtTo=<%=sUsername%>\"><%=sNoSend%></a></td>
        </tr>
        <%
      rs.MoveNext
            strI = strI + 1
            if strI = 2 then
                strI = 0
            end if
            rec = rec + 1
        loop
    end if
guestConn.Close
 
%>
      </table>
<BR><%rs.close%>
<table width=\"100%\">
<tr>
    <td>&nbsp;</td>
    <td align=right width=100>
    <% if maxpages > 1 then %>
    <table width=\"95%\" border=0 align=\"right\">
      <tr>
                <td valign=\"top\"><b>Sider: </b></td>
        <td valign=\"top\"><% Call Paging() %></td>
      </tr>
    </table>
<% else %>
<% end if %>
</tr></Table>

<%
sub Paging()
    if maxpages > 1 then
        if Request.QueryString(\"whichpage\") = \"\" then
            pge = 1
        else
            pge = Request.QueryString(\"whichpage\")
        end if
        scriptname = request.servervariables(\"script_name\")
        Response.Write(\"<table border=0 width=100% cellspacing=0 cellpadding=1 align=top><tr>\")
        for counter = 1 to maxpages
            if counter <> cint(pge) then
                ref = \"<td align=right>&nbsp;\" & widenum(counter) & \"<a href=\'\" & scriptname
                ref = ref & \"?whichpage=\" & counter
                ref = ref & \"&pagesize=\" & request.cookies(\"paging\")(\"pagesize\")
                if top = \"1\" then
                    ref = ref & \"<b>\"
                    ref = ref & \">\" & counter & \"</b></a></td>\"
                    Response.Write ref
                else
                    ref = ref & \"\'>\" & counter & \"</a></td>\"
                    Response.Write ref
                end if
            else
                Response.Write(\"<td align=right>&nbsp;\" & widenum(counter) & \"<b>\" & counter & \"</b></td>\")
            end if
            if counter mod 15 = 0 then
                Response.Write(\"</tr><tr>\")
            end if
        next
        Response.Write(\"</tr></table>\")
    end if
    top = \"0\"
end sub
%>