"Anders Boholdt-Petersen" <post-REMOVETHIS-@boholdt-petersen.dk> wrote in
message news:458598d8$0$182$157c6196@dreader1.cybercity.dk...
> "Finn Elmgaard" <finn@xxxelmgaard.com> skrev i en meddelelse
> news:458585e1$0$4166$ba624c82@nntp02.dk.telia.net...
> > Anvend funktionen Day(Now) til at finde ud af hvilken dag det er.
>
> Er der nogle der ligger inde med et praktisk eksempel på, hvordan man
> eventuelt får vist forskellig tekst i den kommende uge?
>
> > Hvis det skal strække sig over flere måneder, må du på samme måde
> > indarbejde
> > månedsværdien.
>
> Hvordan gør man det?
>
På samme måde som du finder dagens nr. kan du finde månedens nr.:
AktuelMaaned = Month(Now) (se din VBscript dokumentation)
Det videre forløb vil nok afhænge af hvordan din opgave ser ud. Har du en
tekst til hver eneste dag? Så bliver det jo godt nok mange linier i din
Select Case. Eller er det kun enkelte dage?
Du kan måske kombinere de to variabler (AktuelDag og AktuelMaaned) og bruge
det som kriterie, eller du kan indlejre den ene i den anden, f.eks. med
If AktuelMaaned=1 then
Select Case
....
.....
End Select
End if
o.s.v.
Hvis du bruger databaseløsningen tilføjer du en kolonne med "Maaned" og
anvender et sammensat kriterie i stil med:
SELECT Text FROM MinTabel WHERE Maaned = " & AktuelMaaned & " AND Dag = " &
AktuelDag
(Ikke afprøvet!)
(Vær opmærksom på, om du anvender tal eller tekst til kriterie. Ved tekst
skal der ' omkring).
Databaseløsningen har den fordel, at man ikke skal ind at rode i koden, hvis
man vil ændre/tilføje en tekst.
mvh
Finn