ugen i minutter

Er du sikker på, at det ikke skal være?:

    <%    for i = 0 to 59 ' 1440 min på en dag %>
        <td>
        <%
                if i < 10 then response.write "0"
                response.write i
        %>
        </td>



i stedet for



    <%    for i = 0 to 60 ' 1440 min på en dag %>
        <td>
        <%    if len((minute(time())+i) mod 60) < 2 then
                response.Write("0" & (minute(time())+i) mod 60)
            else
                response.Write((minute(time())+i) mod 60)
            end if%>
        </td>



Ellers starter den jo med nuværende minuttal..
Dvs, hvis klokken på din computer er 12:16, vil den starte med 16.
Hvis klokken er 01:21, vil den starte med 21..

Så i stedet for at bruge "minute(time())", skal du bare bruge "i"..

Jeg går ud fra, at du bruger modulus, for at finde ud af, at minuttallet er under 10, og derfor skal tilføje et "0", så der f.eks. kommer til at stå "01", "02", osv..
Her kan du igen bare bruge i.. Check om i er under 10.. hvis det er sandt udskriv "0"..

Lige en detalje mere..

Som du måske har lagt mærke til, har jeg ændret "60" til "59":

    <%    for i = 0 to 59 ' 1440 min på en dag %>

Det er fordi der kun er 10 enheder (minutter) på en time.

Men hvis du kører loopen 0-60, vil du have 61 enheder, fordi både 0 og 60 tælles med.

Men 60 er jo 0, i den næste time, så den skal ikke med..

Eksempel: Hvis du kigger på et digitalur, vil du aldrig se "60" som minuttal.. :-)

hey thesurfer

koden er tiltænkt at skulle starte med nuværende minuttal, mit problem er bare at finde ud af hvor mange minutter der er tilbage inden næste time starter. Derefter skal alle 60 minutter bruges til de resterende timer i ugen.

modulus kender jeg ikke, har du et ex.

Kender ASP kun til 10 minutter (enheder) på en time?

Hey igen,

jeg fik tid til at udvide koden, og resulatatet er OK.

kode:
Dim arrDage, varDage, varHour, k, varMin, varTime %>
<%    varTime = hour(time())%>
<%    varMin = minute(time())%>
<table border="1">
    <tr>
    <%    for k = 0 to 6 %>
            <td>
            <%    response.Write(WeekdayName(Weekday(Date+k)))%>
                <table border="1">
                    <tr>
                    <%    if k = 0 then
                            for j = 0 to (23-varTime)%>
                                <td>
                            <%    varHour = ((hour(time)+j) mod 24)
                                if len(varHour) < 2 then varHour = "0" & varHour %>
                                    <%=varHour&" "&(WeekdayName(Weekday(Date+k)))%>
                                    <%    if j = 0 then %>
                                            <table border="1">
                                                <tr>
                                            <%    for i = 0 to (59-varMin) ' 1440 min på en dag %>
                                                    <td>
                                                    <%    if len((minute(time())+i) mod 60) < 2 then
                                                            response.Write("0" & (minute(time())+i) mod 60)
                                                        else
                                                            response.Write((minute(time())+i) mod 60)
                                                        end if%>
                                                    </td>
                                                <%    next%>
                                                </tr>
                                            </table>
                                    <%    else%>
                                            <table border="1">
                                                <tr>
                                                <%    for i = (0-varMin) to (59-varMin) ' 1440 min på en dag %>
                                                        <td>
                                                        <%    if len((minute(time())+i) mod 60) < 2 then
                                                                response.Write("0" & (minute(time())+i) mod 60)
                                                            else
                                                                response.Write((minute(time())+i) mod 60)
                                                            end if%>
                                                        </td>
                                                <%    next%>
                                                </tr>
                                            </table>
                                    <%    end if%>
                                </td>
                        <%    next
                        else
                            for j = (0-varTime) to (23-varTime)%>
                                <td>
                            <%    varHour = ((hour(time)+j) mod 24)
                                if len(varHour) < 2 then varHour = "0" & varHour %>
                                    <%=varHour&" "&(WeekdayName(Weekday(Date+k)))%>
                                    <%    if j = 0 then %>
                                            <table border="1">
                                                <tr>
                                            <%    for i = 0 to (59-varMin) ' 1440 min på en dag %>
                                                    <td>
                                                    <%    if len((minute(time())+i) mod 60) < 2 then
                                                            response.Write("0" & (minute(time())+i) mod 60)
                                                        else
                                                            response.Write((minute(time())+i) mod 60)
                                                        end if%>
                                                    </td>
                                                <%    next%>
                                                </tr>
                                            </table>
                                    <%    else%>
                                            <table border="1">
                                                <tr>
                                                <%    for i = (0-varMin) to (59-varMin) ' 1440 min på en dag %>
                                                        <td>
                                                        <%    if len((minute(time())+i) mod 60) < 2 then
                                                                response.Write("0" & (minute(time())+i) mod 60)
                                                            else
                                                                response.Write((minute(time())+i) mod 60)
                                                            end if%>
                                                        </td>
                                                <%    next%>
                                                </tr>
                                            </table>
                                    <%    end if%>
                                </td>
                        <%    next
                        end if%>
                    </tr>
                </table>
            </td>
    <%    next%>
    </tr>
</table>


nogen kommentarer?

Det ser fint ud, mht minuttal.

Hvad med teksten der står øverst?

F.eks. 19 søndag, 20 søndag, 21 søndag, osv..

Måske ville det være en god ide, at skifte linie engang i mellem, så man ikke skal scrolle så meget?

Nu kommer så udfordringen. Et db udtræk fx: 1030 samt fx: 1240 skal nu være grunddata for farvning af minuttallene :)

Selv layoutet er endnu ikke udarbejdet, da jeg først vil ha tiden sat op. Tiden er nu sat op og arbejdet med layoutet baseret på db data kan begynde.

Resultatet skal være en visuellisering af aktive tider for genstande.

nogen der har mod på udfordringen?

Her er et forslag med rødfarvning af optagede perioder. PS. skrevet i python.
http://www.databassen.dk:8090/bauerdata/python-program-eksempler/ugeoversigt

jeg er ikke til at lære et nyt sprog for nuværende...

mskjoldp> Det kan jeg vist desværre ikke hjælpe med.

Bauedata >>> http://support.microsoft.com/kb/276494
Dit udemærkede python program, som er den eneste løsning på den stillede opgave
kan nemt fungere i ASP. Det er en af styrkerne ved ASP at det så nemt kan integrere
løsninger som alledere fungerer og man derved sparer tid = penge på sine projekter.
ASP har en komando som hedder <%LANGUAGE=python%>
den sættes ind i starten af programmet.
herefter omslutts din python kode med
<%
python kode
%>
Dine print sætninger erstattes med Response.write()
og voila mskjold behøver ikke at lære et nyt sprog
han kan bare bruge bauerdata's løsning og komme videre med sine opgaver
eller han kan vente på at nogle eksperter skriver programmet til ham i rent asp

spradebassen> Hmm.. du skriver at bauerdata's kode virker, og smider selv et svar?

jeg afprøver python koden ved lejlighed og vender tilbage...

Til Spradebassen.
Mange tak for et konstruktivt indlæg og en posetiv ånd som klæder eksperten.dk
Du må meget gerne få poient for dit svar.

tak for indlæg, jeg er lidt flov over ikke at have testet ex endnu, men jeg har prioriteret tiden hårdt. opgaven skal stadigvæk løses, men ikke endnu, så ha tålmodighed med mig :-/

jeg har ikke haft tid til at teste men lukker hermed spg og takker for input