Avatar billede lund_dk Praktikant
31. august 2006 - 15:49 Der er 2 kommentarer og
1 løsning

Sidste 5 hverdage (tag højre for weekend)

Hvor finder jeg de sidste 5 hverdage?

lørdag / søndag må ikke vise

Eks er det onsdag, skal tir,man,fre,tor,ons vises

er det fredag, skal tors,ons,tirs,man,fre vises
Avatar billede lund_dk Praktikant
31. august 2006 - 17:57 #1
Har fundet dette, måske det kan bruges til noget?

<%
dato = now()
if DatePart("w", dato) = 1 OR DatePart("w", dato) = 7 then
  response.write "Det er en Lørdag eller Søndag"
else
  response.write "Der er en hverdag i dag"

end if
%>
Avatar billede lund_dk Praktikant
31. august 2006 - 20:00 #2
jeg fandt dette som jeg kunne bruge..

<%
Function weekNr(dtmDate)
    weekNr = DatePart("ww", dtmDate, vbMonday, vbFirstFourDays)
    If weekNr > 52 Then
        If DatePart("ww", int(dtmDate) + 7 , vbMonday, vbFirstFourDays) = 2 Then weekNr = 1
    End If
End Function

function Weekday2(dtmDate)
    datenr = 0
    if Weekday(dtmDate) = 1 then
        datenr = 7
    else
        datenr = Weekday(dtmDate)-1
    end if
    Weekday2 = datenr
end function

Function WeekStart(ugenr, aar)
    WeekStart = DateAdd( "ww", ugenr, "01-01-" & aar )
    if NOT weekNr(WeekStart) = ugenr then
        if weekNr(WeekStart) > ugenr then
            WeekStart = DateAdd( "ww", ugenr-(weekNr(WeekStart)-ugenr), WeekStart)
        else 'weekNr(WeekStart) < ugenr
            WeekStart = DateAdd( "ww", ugenr+(weekNr(WeekStart)-ugenr), WeekStart)
        end if
    end if
   
    MyWeekday = Weekday2(WeekStart)
    if NOT MyWeekday = 1 then
        WeekStart = Dateadd("d",1-MyWeekday,WeekStart)
    end if
End Function

myweek = weekNr(Day(Now) & "-" & Month(Now) & "-" & Year(Now))
myYear = Year(Now)
startdate = WeekStart(myweek,myYear)
%>




<%
for i = 0 to 4
usedate = DateAdd("d",i,startdate)
dbDato = Replace(dbDato,"-","/")

%>
<%=day(usedate)%>. <%=WeekdayName(weekday(usedate))%><br/>

<%
next
%>
Avatar billede lund_dk Praktikant
31. august 2006 - 20:02 #3
lukker
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester