Script som finner dager pr måned pr avdeling

Select DATEDIFF('d','01.01.2003',[SiOppDato]) as days from tblbiler where FKAvdeling = ???

vil jeg tro.....

Men spørgmålet er HVAD du vil have vist...

vil du have en kalender ?... eller bare hvor mange dage der er i en måned ?

mit svar giver di en liste over hvor mange dages forskel der er på 1.1.2003 til SiOppDato pr bil pr valgte afdeling

Sig til hvis der skal printes mere ud end blot antallet af dage

//Montago.

Jeg vil ha vist alle biler med antall dager pr mnd. sortert på avdeling og måned. Måned kan god vises i en egen kolonne hvis det er lettere å lage. Håper du forstår meg. Det som er viktig er at hvis det er lagt inn masse biler feks i 01.01.2003 og kun noen av dem er sagt opp, så skal også alle månedene vises.

Håper du forstår hva jeg mener takk for at du hjelper meg.

Fks:

Avdeling A

JANUAR 2003
--------------------------------------------------
Regnr      GjelderFra      SiOppdato        Antall dager
AA56567    01.01.2003      28.01.2003      28
AACC565    01.01.2003      05.02.2003      31
BC45454    05.01.2003      Løpende          26
TOTALT 3 biler a 85 dager.


FEBRUAR 2003
--------------------------------------------------
Regnr      GjelderFra      SiOppdato        Antall dager
AACC565    01.01.2003      05.02.2003      5
BC45454    05.01.2003      Løpende          30
TOTALT 2 biler a 35 dager.

det er dælme en hård udfordring... har siddet og bixet med det i 2-3 timer nu

Kan godt give deg mye mer point hvis du hjelper meg med dette da dette er et problem som jeg må løse. Jeg har også sittet mange timer med dette men det som bli problemet hos meg er at den gir feil i de mnd som det ikke er innmeldt(gjelderfra) noen biler.

Kan ikke du poste litt sql eller noe av det du har laget så kanskje vi kan klare dette sammen hvis du gidder. Og du kan se på noe av det jeg har laget.

Takk for hjelpen så langt!

//Morten

prøv det her:

<table>
<%
For numYear = 2003 to Year(Date)
    For numMonth = 1 to 12
        nextMonth = numMonth + 1
        SelYear = numYear
        if nextMonth = 13 then
            nextMonth = 1
            SelYear = SelYear + 1
        End if
        set rs = conn.exeucte("Select * from tblbiler where SiOppDato < #" & nextMonth & ".01." & SelYear & "#")
%>
    <tr>
        <td colspan="4"></td>
    </tr>
    <tr>
        <td>Regnr</td>
        <td>GjelderFra</td>
        <td>SiOppdato</td>
        <td>Antall dager</td>
    </tr>

<%       
        Do while not rs.eof
%>
    <tr>
        <td><%= rs("Regnr")%></td>
        <td><%= rs("GjelderFra")%></td>
        <td><%= rs("SiOppdato")%></td>
        <td><%= datediff("d","#" & numMonth & ".01." & numYear & "#","#" & nextMonth & ".01." & SelYear & "#") %></td>
    </tr>
<%           
        rs.movenext
        loop
    Next
Next
%>
</table>

nu får du dog kun de biler som har udløb i den angivne måned... tror jeg

Select'en bør selvfølgelig også tage de biler som først udløber senere... meen den er lidt mere tricky

Kan man ikke lave en sql som henter alle biler og der etter:

If gjelderFra is null then
datediff("d","#" & now()%>
Else
datediff("d","#" & numMonth & ".01." & numYear & "#","#" & nextMonth & ".01." & SelYear & "#") %>
End if

Hvis du skjønner hva jeg mener. Ikke tenk så mye på feil i koden da dette ble skrevet raskt.

hmm det skulle kunne lade sig gøre

Post et svar så får du noen point.

fik du det til at virke ?

Ja jeg fikk det til å virke, men måtte lage en sinnsykt masse kode for dette.

jeg tænkte lige...

Set rs= conn.execute("Select * from tblbiler")

Do while not rs.eof
  if IsDate(rs("SiOppDato")) Then
    response.write DateDiff( 'd',rs("GjelderfraDato"),rs("SiOppDato") )
  else
    response.write DateDiff( 'd',rs("GjelderfraDato"),now() )
  end if
rs.movenext
loop