---
title: "Skapa en sträng av dagar"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/168144-skapa-en-sträng-av-dagar"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "devotion"
published: "2008-01-15T21:42:47.000Z"
updated: "2008-01-15T22:26:30.000Z"
replies: 1
views: 379
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/168144-skapa-en-sträng-av-dagar"
---

# Skapa en sträng av dagar

## #1 — devotion, 2008-01-15T21:42Z

Hej

Jag har följande kod:

```
	'SQL-fråga
	sSQL = "SELECT * FROM [tblTask] WHERE [PlanStartDate] >= '" & tmStartDate & "' AND [PlanStartDate] < '" & tmStopDate & "' AND CustomerNr = '" & sCustomerNr & "'"
	Rs.Open sSQL, Conn
	
	while not rs.eof
		if sSQL <> "" then sSQL = sSQL & vbcrlf
		sSQL = sSQL & "INSERT INTO [tblContractTemplate] ([Id], [Modified], [StartDate], [StopDate])" _
		& " VALUES ("&Rs("field1")&", "&Rs("field2")&", "&Rs("fieldn")&")"

		Rs.Movenext
	wend

	Conn.execute sSQL,,128
```

Jag skulle vilja komplettera denna med följande pseudokod:

```
while not rs.eof
    'Loopa ut en vecka i taget
    'Samla alla veckodagarna (mån;tis,ons osv) i en variabel baserat på [tblPlanStartDate]
    'När veckan är slut ska En insert göras till db
    'Nästa vecka
    Rs.MoveNext
Wend
```

Hoppas ni fattar :)  

Mvh
Henrik

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

## #2 — devotion, 2008-01-15T22:26Z

Hej!

Har fått hjälp med följande kod:

```
dim dateStr, currentWeek, sTask
	
dateStr = ""
currentWeek = -1
sTask = ""

while not rs.eof

	if currentWeek <> datepart("ww", rs("PlanStartDate"), 2, 2) then
		if currentWeek <> -1 then
  
			'gör insert
			dateStr = ""
		'else
			currentWeek = datepart("ww", rs("PlanStartDate"), 2, 2)
		end if
	end if
	if dateStr <> "" then dateStr = dateStr & ";"
	dateStr = dateStr & Left(weekDayName(WeekDay(rs("PlanStartDate"))), 3)

	Rs.Movenext
wend

if dateStr <> "" then
 'gör insert
 
 dateStr = ""
end if
```

Som fungerar nästan...

Den ger dock EN sträng...

Jag vill ju få en sträng per vecka och göra INSERT, därefter ny vecka och ny sträng... :)  

Mvh
Henrik

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/168144-skapa-en-sträng-av-dagar