---
title: "översätt denna kod..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/86049-översätt-denna-kod"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Mira"
published: "2003-09-15T14:24:37.000Z"
updated: "2003-09-16T07:16:26.000Z"
replies: 3
views: 262
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/86049-översätt-denna-kod"
---

# översätt denna kod...

## #1 — Mira, 2003-09-15T14:24Z

Har ett kalender-script med kod som jag inte riktigt förstår.
Kan någon översätta åt mej?
Observera att kodsnuttarna inte är sammanhängande, har försökt ta med det som jag tror har samband.

```
sd = DateSerial(ar, manad, 1)
sn = DatePart("w", sd, 2, 0)%>

<%For i = 1 to 7
If i >= sn Then.......
```

 

```
If Request.QueryString("date") = "" Then
    nu = date()
Else
    nu = Request.QueryString("date")
End If
...............
If Request.QueryString("date") <> "" Then%>
```

Permalänk: https://www.webforum.nu/p/86049

## #2 — m_soderlund, 2003-09-15T14:38Z

Hej!
Jag har tyvärr ej tid, men sök på DateSerial på Google eller kolla in på <http://msdn.microsoft.com>
Vad DatePart annars gör är att kolla exempelvis vilken vecka det är.

```
Just nu är det vecka <%=DatePart("ww",Date())%>.
```

Den sista koden kollar ifall om date har tagits emot från adressen i webbläsaren (via Querystring) och har den INTE det, så får nu värdet date() som är datumet för idag. Om querystringen inte är tom så blir variabeln nu querystringens värde - det vill säga ett datum.
Den sista If-satsen kollar ifall om querystringen för date är allt annat än tom, och i så fall fortsätter koden.

Det var allt för mig nu, hoppas att någon annan har tid att berätta mer för dig. :D

Permalänk: https://www.webforum.nu/p/1156958

## #3 — Engine^, 2003-09-16T05:46Z

```
[blue]'sätt sd till den 1:a månad [i]manad[/i] år [i]ar[/i][/blue]
sd = DateSerial(ar, manad, 1)
[blue]'sätt sn till veckodagen för datumet sd, 1 = Måndag, 2 = Tisdag, osv..[/blue]
sn = DatePart("w", sd, 2, 0)%>

[blue]'loopa igenom en vecka[/blue]
<%For i = 1 to 7
  [blue]'gör något för varje dag från och med när den 1:a inträffar i veckan...[/blue]
  If i >= sn Then

[blue]'sätt nu till dagens datum om inte något skickats med querysträngen[/blue]
If Request.QueryString("date") = "" Then
    nu = date()
Else
    nu = Request.QueryString("date")
End If

[blue]'gör något om querysträngen inte är tom (vilket redan kollats förvisso...?)[/blue]
If Request.QueryString("date") <> "" Then%>
```

Permalänk: https://www.webforum.nu/p/1157308

## #4 — Erik Juhlin, 2003-09-16T07:16Z

Jag skulle använt DatePart("w", sd, 2, 2). Alltså 2 istället för 0.
Annars förlitar man sig på Windows regionsinställningar.

Permalänk: https://www.webforum.nu/p/1157336

---

Tråden på webben: https://www.webforum.nu/amne/asp/86049-översätt-denna-kod