Ongelma on seuraavanlainen. Jos ensimmäinen päivämäärä on esim. 1.9 (edellinen- tai tämä vuosi) ja toinen päivämäärä 1.3 (tämä- tai ensi vuosi), ja TÄMÄ päivä osuu näiden kahden päivämäärän välille avataan msgbox, muuten ei tehdä mitään. Onko mahdollista tehdä sellaista koodia missä ei anneta kiinteitä vuosilukuja vaan vuodet määräytyvät tämän päivän perusteella.
Jamro kirjoitti:
Onko mahdollista tehdä sellaista koodia...
Tottakai on.
Vastataan nyt samalla myös kysymykseen "miten", vaikka sitä ei kysyttykään:
Dim alku As Date, loppu As Date '1.9. "edellisenä vuonna" alku = DateSerial(Year(Now) - 1, 9, 1) '1.3. "tänä vuonna" loppu = DateSerial(Year(Now), 3, 1) If (Now > alku And Now < loppu) Then MsgBox "Osuu välille"
Aihe on jo aika vanha, joten et voi enää vastata siihen.