Kirjautuminen

Haku

Tehtävät

Kilpailu

Ohjelmoi tekoäly!
Aikaa on 30.6. saakka.

Keskustelu: Ohjelmointiongelmat: VBA: päivämäärä ongelma

Sivu 1 / 1

Jamro [02.02.2020 19:22:28]

#

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.

Grez [03.02.2020 09:10:23]

#

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"

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta