23. februar 2006 - 18:32Der er
6 kommentarer og 1 løsning
Hjælp til Loop med Weekday og Select Case
Jeg har denne kode:
Dim a As Integer Dim start As Date Dim slut As Date start = #2/23/2006# a = 12 Do While a > 0 Select Case Weekday(start) Case Is = 1, 7 a = a start = start Case Is = 2, 3, 4, 5, 6 a = a - 1 start = start - 1 Debug.Print start End Select Loop
Jeg har brug for, at koden tæller 12 dage tilbage (Variablen a), men den må ikke tælle LØR og SØN. Koden fåpr PC Access til at "fryse". Når jeg debugger er linien:
Case Is = 1, 7
markeret. I Immediate vinduet er den nået til 19-02-2006 altså en SØN. Jeg har rodet med dette i et par dage, og kan ikke se skoven for bare træerb :o)
Dim a As Integer Dim start As Date Dim slut As Date start = #2/23/2006# a = 12 Do While a > 0 Select Case Weekday(start) Case Is = 2, 3, 4, 5, 6 start = start - 1 a = a - 1 Debug.Print start End Select Loop
Nej - for humlen er, jeg skal have fat i den dato hvor a er = 0, derfor må start 0 start -1 vel være med for at tælle datoen nedad, hvis betingelsen er opfyldt.
Jeg ved ikke lige hvad der sker i øjeblikket - Jeg er ved at drukne i sikkerhedsalarmer fra Norton om forsøg på indtrængen. Jeg vælger at slukke min PC, og vender måske tilbage senere iaften. Alle gode forslag bliver testet senest imorgen - Tak for interessen.
Det kører ikke. Lukker her og prøvet at se på problemet fra en anden vinkel.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
