Tid istedet for dato??

altså hvis man kikker på siden idag, imorgen vil der været gået en dag mere

du skal bruke DateDiff funksjonen:

http://www.activeserverpages.dk/iishelp/vbscript/htm/vsfctdatediff.htm

/nute

Jeg har brug for at der hvor der står
<%=sBirthdate%> kommer antallet af År,måneder,dage siden vedkommende blev \"født\"


<!--#include virtual=\"/dev/_db.asp\"--><%
bRequireLogin = True
    bDontCount = False
    sPageTitle = \"Counselor - Listen over medlemmerne\"
    bAdminOnly = False
    lSubjectID = 0
    sTitleBar = \" :: start :: Brugerlisten\"
    %>
<!--#include virtual=\"/dev/_header.asp\"-->
      <p class=\"smallaction\" align=\"left\"> M&aelig;rkedagskalenderen - Dem med
        kortest cleantime st&aring;r f&oslash;rst!<br>
      <p class=\"smallertext\" align=\"right\">Står der ja under hilsner, vil de gerne
        have en :-)</p>
     

<%
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=\"18%\">Brugernavn</td>
          <td class=\"whitesmallerheader\" width=\"20%\">E-Mail</td>
          <td class=\"whitesmallerheader\" width=\"8%\">K&oslash;n</td>
          <td class=\"whitesmallerheader\" width=\"23%\">Medlem siden</td>
          <td class=\"whitesmallerheader\" align=right width=\"22%\">Clean siden</td>
          <td class=\"whitesmallerheader\" align=right width=\"9%\">Hilsner</td>
        </tr>
        <%   
        OpenDB sConnUsers
        sSQL = \"SELECT * FROM users where Public = Yes order by BirthDate DESC\"
        rs.Open sSQL,,,adCmdTable
        i = 0

    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 = \"Ja\"
        sCountry = rs(\"CountryCode\")
    %>
        <tr bgcolor=\"<%=Ccolor%>\">
          <td class=\"smallertext\" width=\"18%\"><b><a href=\"/dev/myDeV/users.asp?username=<%=sUserName%>\"><%=susername%></a></b><BR>
            <%=fullname%></td>
          <td class=\"smallertext\" width=\"20%\"><a href=\"mailto:<%=sEmail%>\"><%=sEmail%></a></td>
          <td class=\"smallertext\" width=\"8%\"><%=sGender%></td>
          <td class=\"smallertext\" width=\"23%\"><%=signupdt%></td>
          <td class=\"smallertext\" align=right width=\"22%\"><%=sBirthdate%></td>
          <td class=\"smallertext\" align=right width=\"9%\"><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
%>
      </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
%>
<!--#include virtual=\"/dev/_footer.asp\"-->

Kan du sætte det ind i koden for mig, jeg er ikke så hård til det her endnu :-)

Bytt ut:

<%=sBirthdate%>

med

<%
tmpYear = Year( sBirthdate )
daysInYear = 365
if( ( (tmpYear mod 4 = 0) AND (tmpYear mod 100 <> 0) ) OR ( tmpYear mod 400 = 0 ) ) then
  daysInYear = 366
end if
yearDiff  = DateDiff( \"yyyy\", dato, date() )
monthDiff = DateDiff( \"m\", dato, date() ) - (yearDiff * 12 )
dayDiff  = DateDiff( \"d\", dato, date() ) - (yearDiff * daysInYear )
response.write yearDiff & \" år \" & monthDiff & \" mnd \" & dayDiff & \" dager\"
%>

Den blir ikke helt korrekt på grunn av kalkulering av skuddår ikke er helt korrekt...

/nute

Det virker ikke, den skriver det samme hele vejen ned: 102 år -2 mnd -41 dager ??

09-07-2001 dette er datoformatet
9juli2001

Den skal tage fra en bestem dato til dags dato?

Ja, den skal tage fra den dato folk registrerer som startdato. Men det skal stå på siden hvor mange år måneder dage de har været med.

eageleye vil du have det site??

Jo men jeg ved ikke hvad jeg skal bruge den til?? er det en web-site?

det er et komplet databasedrevet site der har helt vildt mange funktioner :-). det fylder ca 2 mb med tomme databaser :-)

hvis det kunne fange din interesse kunne det jo være du fik nogen af de bugs jeg ikke kan finde ud af til at virke ;-) det kunne jo være godt for mig.

dato = \"09-07-2000\"

years = Datediff (\"yyyy\",dato,date)
dato = dateAdd(\"yyyy\",years,dato)
mounths = Datediff (\"m\",dato,date)
dato = dateAdd(\"m\",mounths,dato)
days = Datediff (\"d\",dato,date)
dinStr = years & \" år \" & mounths & \" måneder \" & days & \" dage.\"

Response.Write dinStr &\"<br>\"

hvor skal jeg sætte det ind i koden?

Skal det være i stedet fot sBirtgdate eller bagefter?

<td class=\"smallertext\" align=right width=\"22%\"><%=sBirthdate%></td>

Bliver til:

<td class=\"smallertext\" align=right width=\"22%\">
<%
years = Datediff (\"yyyy\",dato,date)
dato = dateAdd(\"yyyy\",years,dato)
mounths = Datediff (\"m\",dato,date)
dato = dateAdd(\"m\",mounths,dato)
days = Datediff (\"d\",dato,date)
dinStr = years & \" år \" & mounths & \" måneder \" & days & \" dage.\"
Response.Write dinStr
%></td>

Det skal nog lige en :
dato = sBirthdate

før:
years = Datediff (\"yyyy\",dato,date)

<%
dato = sBirthdate
years = Datediff (\"yyyy\",dato,date)
mounths = Datediff (\"m\",dato,date)

25-12-1999 bliver til: 2 år -2 måneder 0 dage ??

04-11-2000 bliver til: 1 år -1 måneder 21 dage.

Laver den nedtælling med de sidste måneder og dage eller hvad?

er du der ????

Kan man også lave såden at hver gang en rammer et helt år så bliver der automatisk sendt en mail til alle medlemmer??

ja nu den gal igen.. jeg hra skrvet til dig engang men det indlæg er ikke kommet med.
Jeg er ved at kikke på det og har fundet ud af at datediff kun kikker på det man vil havde.
2 sec.. så kommer der noget

Prøv lige nu:


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
  dato = dateAdd(\"m\",-1,dato)
  days = Datediff (\"d\",dato,date)
  mounths = mounths - 1
end if
dinStr = years & \" år \" & mounths & \" måneder \" & days & \" dage.\"
Response.Write dinStr

Ja man kan tjekke på:

if Cint(days)=0 and Cint(mounths)=0 then
  \'Send mail
end if

Det var lidt bedre nu er der kun en der har probs
7 år -1 måneder 29 dage. han har været med 7 år imorgen.

Det lyder let, men siger mig ikke meget om hvordan jeg kan gøre det i praksis. Jeg ville jo gerne køre det sammen med det du lavede for mig før med emailen. men den ligger jo på en anden side.
Hvis du nu sender mig en mail så sender jeg dig webstedet. Om ikke andet er det godt at bygge videre på.

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

Nu er den der !!!!!!! Du er faeme hård til det her :-)
Vil du hjælpe mig med at få lavet det der automail system??

Jeg har også et her :
http://www.eksperten.dk/spm/112486

det med automail er nok svære end bare lige.
Nu ved jeg ikke hvordan dine sider virker men hvis der er mange som besøger dem så bliver er måske send mails mange gange og med mange medlemmer vil siden måske tage lang tid at loade hvis der skal sendes en mail til alle.

Er det ikke bare så den sender om natten ved midnat?? Jeg har ca 50 besøgende om dagen for tiden