---
title: "Dagnamnet!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/117797-dagnamnet"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "paddan"
published: "2004-12-11T10:46:56.000Z"
updated: "2004-12-11T13:51:31.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/117797-dagnamnet"
---

# Dagnamnet!

## #1 — paddan, 2004-12-11T10:46Z

HEj allihopa!

Det är så här: innan har man kunnat använda sig av lcid systemet och ändrat engelsk tid till svensk mend t funkar inte på b-one längre...

IDag står det så här:
2004-12-12 14:00 Sun 

Jag har denna koden:
VarDagNamn = WeekDayName(WeekDay(RS("Tid")))
VarDagNamn = UCase(Left(varDagNamn,1)) &  Right(varDagNamn,Len(varDagNamn)-1)
VarDagNamn = Left(VarDagNamn,3)

aret = Year(RS("Tid"))

if Month(RS("Tid")) \< 10 then
manad = "0"& Month(RS("Tid"))
else
manad = Month(RS("Tid"))
end if 

if Day(RS("Tid")) \< 10 then
dag = "0"& Day(RS("Tid"))
else
dag = Day(RS("Tid"))
end if 

if hour(RS("Tid")) \< 10 then
timme = "0"& hour(RS("Tid"))
else
timme = hour(RS("Tid"))
end if 

if minute(RS("Tid")) \< 10 then
minut = "0"& minute(RS("Tid"))
else
minut = minute(RS("Tid"))
end if 

if second(RS("Tid")) \< 10 then
sekund = "0"& second(RS("Tid"))
else
sekund = second(RS("Tid"))
end if 

Datum = aret &"-"& manad &"-"& dag &"&nbsp;"& timme &":"& minut 

MEn hur får jag ut så det står Lör istället för Sat?

Mvh Paddan

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

## #2 — @nders, 2004-12-11T12:47Z

Du får göra en egen funktion för det. Byt:

```
VarDagNamn = WeekDayName(WeekDay(RS("Tid")))
VarDagNamn = UCase(Left(varDagNamn,1)) & Right(varDagNamn,Len(varDagNamn)-1)
VarDagNamn = Left(VarDagNamn,3)
```

Mot:

```
VarDagNamn = getWeekdayName(WeekDay(RS("Tid")))
```

Och lägg funktionen på lämpligt ställe:

```
Function GetWeekdayName(iDay)
         Select Case iDay
              Case 1 : GetWeekdayName = "Sön"
              Case 2 : GetWeekdayName = "Mån"
              Case 3 : GetWeekdayName = "Tis"
              Case 4 : GetWeekdayName = "Ons"
              Case 5 : GetWeekdayName = "Tor"
              Case 6 : GetWeekdayName = "Fre"
              Case 7 : GetWeekdayName = "Lör"
         End select
End function
```

Slutligen: När du bifogar kod; använd \[kod\]-taggar.

mvh

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

## #3 — paddan, 2004-12-11T13:31Z

Hej...tack för all hjälp...
Jag gjorde en annan funktionen...körd med if satser i stället..
VarDagNamn = DatePart("W", (RS("Tid")))

if VarDagNamn = 1 then 
VarDagNamn = "Sön"
end if

if VarDagNamn = 2 then 
VarDagNamn = "Mån"
end if

if VarDagNamn = 3 then 
VarDagNamn = "Tis"
end if

if VarDagNamn = 4 then 
VarDagNamn = "Ons"
end if

if VarDagNamn = 5 then 
VarDagNamn = "Tor"
end if

if VarDagNamn = 6 then 
VarDagNamn = "Fre"
end if

if VarDagNamn = 7 then 
VarDagNamn = "Lör"
end if

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

## #4 — @nders, 2004-12-11T13:51Z

Ok. 

Varför kladdiga if-satser istället för en fin select case?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/117797-dagnamnet