Vba koodaus apua

tyhmääkintyhmempi

Miten pitäsi tehdä tämmöinen asia, pitäis tehdä painike lomakkeelle jolla pitää
Esittelllä 5 muuttujaa:
Aika , tyyppi päivämäärä
Kokluku , tyyppi positiivinen kokonaisluku
AvoinnaAika1 , tyyppi merkkijono
AvoinnaAika2 , tyyppi merkkijono
AvoinnaAika3 , tyyppi merkkijono
Anna 3 viimeiselle muuttujalle arvot:
Suljettu
8:00 - 16:00
10:00 - 13:00
huomaa string-tyypin muuttujatietojen ympärysmerkit
Sitten Anna Aika-muuttujalle arvoksi kuluva hetki (esimerkki löytyy lähiopintomateriaalista (Nyt, elikkäs….) ja Kokluku-muuttujalle
WeekDay funktiolla (kts VB help sinisen kysymys-painikkeen takaa ja katso ensimmäisen helpin esimerkkikoodi helpin lopusta)
ja seuraavaksi Tee kahdella erilaisella tavalla (voi tehdä koodissa peräkkäin) valintalausekkeella MsgBox eli ponnahdusikkuna, joka sanoo
Weekday arvon ollessa 1 (elikkäs sunnuntai) tekstin Avoinna sunnuntaisin:ja AvoinnaAika1:n arvon. Käytä tulostuksessa &-merkkiä, esimerkki lähipäivämateriaalissa.
Weekday arvon ollessa 6 (elikkäs lauantai) tekstin Avoinna lauantaisin:ja AvoinnaAika3:n arvon. Käytä tulostuksessa &-merkkiä, esimerkki lähipäivämateriaalissa.
Weekday arvon ollessa muutekstin Avoinna arkisin:ja AvoinnaAika2:n arvon. Käytä tulostuksessa &-merkkiä, esimerkki lähipäivämateriaalissa.
5. Testaa koodisi toimivuus Visual Basic ikkunan ylävalikon Debug

1

641

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 2*19

      Mikä tässä on ns ongelma?

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Tukalaa kuumuutta

      Tietäisitpä vaan kuinka kuumana olen käynyt viime päivät. Eikä johdu helteestä, vaan sinusta. Mitäköhän taikoja olet teh
      Ikävä
      43
      3007

    2. Ensi kesänä

      Näin kesän viimeisenä minuutteina ajattelen sinua. Olisiko seuraava kesä "meidän" kesä? Tänä vuonna ei onnistuttu, mutta
      Ikävä
      61
      2961

    3. Sinä, ihastukseni

      Mitä haluaisit tehdä kanssani ensimmäisenä?
      Ihastuminen
      42
      2367

    4. Tiedät ettei tule toimimaan.

      Mielenterveys ei kummallakaan kestä.
      Ikävä
      31
      1863

    5. Okei, myönnetään,

      Oisit sä saanut ottaa ne housutkin pois, mutta ehkä joskus jossain toisaalla. 😘
      Ikävä
      25
      1719

    6. Anne Kukkohovin karmeat velat ovat Suomessa.

      Lähtikö se siksi pois Suomesta ? Et on noin kar? mean suuret velat naisella olemassa
      Kotimaiset julkkisjuorut
      72
      1674

    7. Onko kaivatullasi

      himmeä kuuppa?
      Ikävä
      48
      1586

    8. Mihin hävisi

      Mihin hävisi asiallinen keskustelu tositapahtumista, vai pitikö jonkin Hannulle kateellisen näyttää typeryytensä
      Iisalmi
      77
      1275

    9. On jo heinäkuun viimeinen päivä.

      En taida nähdä sinua koskaan.
      Rakkaus ja rakastaminen
      37
      1247

    10. Lähtikö korvat

      puhtaaksi vaikusta?
      Tuusniemi
      79
      1070
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt