Du kan lägga in alla personer i en databas. Skriv in namn och vilken vecka de arbetar.
Loopa fram alla uppgifter med namn och vecka. Jämför sedan med aktuell vecka.
Frågan#1
Jag har en kodbit som skriver ut vilka personer som jobbar aktuell vecka. Ok, koden fungerar men den ser så otymplig ut så jag undrar om det skulle gå att korta ner den. Ex-vis bli kvitt den hiskliga case-satesen.
dim vnr, C
'Tar ut veckonumret
vnr = datepart ("ww", Date, vbMonday, vbFirstFourDays)
'Personal i array
C = Array("Lena Berglund", "Christina Näslund", "Doris Engström", "Fred Hamberg", "Kiyoko Löfander", "Lena Olafsen", "Sussie Arnfridsson", "Dan Östlun", "Helene Wallin", "Ylva Holmgren", "Britt Lidén", "Bengt Johansson", "Rolf Gustavsson", "Camilla Rantamäki", "Svante/Inger Östlund", "Kerstin Hansson", "Zadaka", "Birgit Bäckström", "Doris Björk", "Torbjörn/Lotta Borg", "Lena H Svensson", "Christina Antonsen", "Hans/Berith Forsmark", "Johan Nyholm/Kerstin Eskel", "Titti Pettersson", "Ulla Laggren", "Irina Svensson", "Lars Westlund")
*Skriver ut personal beroende på vecka
select case vnr
case 28
response.write C(23) & "<br>" & C(24)
case 29
response.write C(0) & "<br>" & C(1)
case 30
response.write C(2) & "<br>" & C(3)
' och så vidare