Gennemsnit pr indværende og sidste år

Du har en dato fra sidste år, hvor du startede. Lav en DateDiff på den imod en DateAdd("d", "01/01/2002",-1)
Det skulle give dig antallet af dage, sidste år, fra du startede.

Ligeledes kan du lave en DateDiff på dags dato og så den 1. januar, for at finde antallet af dage i år.

- Rou

Prøv at søge her på eksperten med søgeord: datediff - så finder du svar med det samme. :-)

Hehe - what do you know - fandt sq selv en løsning, som kan bruges til hver en tid.

Indeværende år:

<%
        strDay = Day(Date)
        strMonth = Month(Date)
        strYear = Year(Date)
        %>
        Gennemsnit pr. dag i år <%=strYear%>:
<%
                                            Set Conn = Server.CreateObject("ADODB.Connection")
                                            Conn.Open "jupiter_count"
                                            SQLstmt = "SELECT COUNT(ID) AS Count FROM Taeller WHERE Year = '" & strYear & "' AND IP <> '10.1.1.13';"
                                            Conn.Execute (SQLstmt)
                                            Set rs = conn.Execute(SQLstmt)
                                           
                                            strYearDate = "1-1-"&strYear

                                            strNow = Date()
                                           
                                            strDateDiff = Datediff("d",strYearDate,strNow)
                                           
                                            snitThisYear = CInt(rs("Count"))/CInt(strDateDiff)
                                           
                                            Response.Write Round(snitThisYear)
                                          %>

Gennemsnit sidste år:

<%
        strDay = Day(Date)
        strMonth = Month(Date)
        strYear = Year(Date)-1
        %>
        Gennemsnit pr. dag i år <%=strYear%>:

<%
                                            Set Conn = Server.CreateObject("ADODB.Connection")
                                            Conn.Open "jupiter_count"
                                            SQLstmt = "SELECT COUNT(ID) AS Count FROM Taeller WHERE Year = '" & strYear & "' AND IP <> '10.1.1.13';"
                                            Conn.Execute (SQLstmt)
                                            Set rs = conn.Execute(SQLstmt)
                                           
                                            sql1 = "SELECT TOP 1 * FROM Taeller WHERE Year = '"&strYear&"' ORDER BY Id ASC;"
                                            Set rs1 = Conn.Execute(sql1)
                                           
                                            strYearDate = "31-12-"&strYear

                                            strStart = rs1("Day")&"-"&rs1("Month")&"-"&rs1("Year")
                                                                                   
                                            strDateDiff = Datediff("d",strStart,strYearDate)
                                           
                                            snitLastYear = CInt(rs("Count"))/CInt(strDateDiff)
                                           
                                            Response.Write Round(snitLastYear)
                                          %>

Sådan kan det klares - måske andre kan bruge det også! ;0)

rou:
Er faktisk også lidt det jeg fandt ud af - men du får 15 point, selv om jeg ikke har fået mail fra eksperten om at du har svaret!???

coltau:
Vidste godt at jeg skulle bruge noget datediff, men det gør det jo ikke alene! ;0)

Håber I kan leve med den fordeling.