Dagnamnet!

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 &" "& timme &":"& minut

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

Mvh Paddan

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

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

Ok.

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