/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
Dato fra uge nummer
Fra : Martin Kjelsmark Lar~


Dato : 09-12-02 22:03

Hej Ng,

Jeg er interesseret i dynamisk at finde startdatoen fra nogle bestemte uge
numre... Hvordan kan jeg lettest gøre dette?

mvh
Martin Kjelsmark



 
 
Jørn Andersen (10-12-2002)
Kommentar
Fra : Jørn Andersen


Dato : 10-12-02 02:39

On Mon, 9 Dec 2002 22:02:39 +0100, "Martin Kjelsmark Larsen"
<martin@kjelsmark.dk> wrote:

>Jeg er interesseret i dynamisk at finde startdatoen fra nogle bestemte uge
>numre... Hvordan kan jeg lettest gøre dette?

Der er - svjv - ikke nogen direkte metode. Start med en (tilfældig)
dato i det år, du ønsker at finde ugen i. Find mandagen i denne
tilfældige uge. Læg det nødvendige antal uger til.

Ex:
<%
Function FindMondayInWeek(ugenummer, aar)
   ' Det antages at man bruger mandag som første ugedag
   ' og at uge 1 er den første uge med mindst 4 dage i det nye år

   ' Tag en tilfældig dato i det ønskede år
   datStartDate = DateSerial(aar, 1, 15)
   ' Find mandag i "ugen"
   datStartDate = DateAdd("d", 1 - Weekday(datStartDate, 2),
datStartDate)
   ' Find ugenummer for den korrigerede tilfældige dato
   intUgenr = DatePart("ww", datStartDate, 2, 2)
   ' Find den ønskede dato ved at lægge 'uge-forskellen' til
   datDateWanted = DateAdd("ww", ugenummer - intUgenr, datStartDate)
   FindMondayInWeek = datDateWanted
End Function
%>

Bruges således:
<%
intWeekNumber = 50
lngYear = 2002

Response.Write "Week: " & intWeekNumber & "<br>" & vbcrlf
Response.Write "Year: " & lngYear & "<br>" & vbcrlf
Response.Write FindMondayInWeek(intWeekNumber, lngYear) & "<br>" &
vbcrlf
%>

Det kan sikkert optimeres en del, ligesom den inkonsekvente brug af
dansk og engelsk også kan forbedres ...
Ligeledes må man også afgøre, om det fx skal være muligt at ønske uge
77 i år 2003 etc. - prøv

Good luck!

--
Jørn Andersen,
Brønshøj

Martin Kjelsmark (10-12-2002)
Kommentar
Fra : Martin Kjelsmark


Dato : 10-12-02 09:05

> Det kan sikkert optimeres en del, ligesom den inkonsekvente brug af
> dansk og engelsk også kan forbedres ...
> Ligeledes må man også afgøre, om det fx skal være muligt at ønske uge
> 77 i år 2003 etc. - prøv
>
> Good luck!

Tak for hjælpen - Jeg arbejder videre med det.

mvh
Martin Kjelsmark

Søg
Reklame
Statistik
Spørgsmål : 177554
Tips : 31968
Nyheder : 719565
Indlæg : 6408852
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste