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

701

Ää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. Voisin jopa maksaa että saisin nähdä sut mies

      Miten helvetissä joku voi olla tollanen kotihiiri. Edes mä en ole noin paha ku sä! Miten sua voi ikinä edes nähdä ?
      Ikävä
      58
      1101

    2. Tumman vihreä mercedes

      Mikä se on tuo kylää ympäri ajava vihreä mercedes, takakontti tärisee kuin hullu ja välillä kylän juoppojakin kuskailee,
      Hyrynsalmi
      11
      820

    3. Miksi tällainen pelottaa ja aiheuttaa joillakin ärtymystä?

      "Sitoudun ystävien ja kollegoiden kanssa puuttumaan seksistisiin vitseihin ja vähättelyyn. Sanon ääneen, kun jokin ei ol
      Maailman menoa
      75
      785

    4. Rakastan sinua

      Päivä päivältä enemmän 🥰 Miehelle.
      Ikävä
      53
      624

    5. Käyttäkää kumia kajaanilaisten naisten kanssa

      Elkää ottako riskiä ilman kumia kun saattaa käydä niin että sinusta tuleekin isä lapselle ja elättäjä molemmille.
      Kajaani
      83
      573

    6. Pakkomielle

      Tahdon pyytää anteeksi, että olen kaivannut sinua kaikki nämä vuodet ja olet ollut minulle pakkomielle. Nyt on aika pääs
      Ikävä
      45
      522

    7. Oletko nainen enää täällä?

      En ole tunnistanut kirjoituksiasi hetkeen. Ainoastaan yhdessä neutraalissa ketjussa, missä ei ollut kyse tunteista. Hyv
      Ikävä
      36
      504

    8. Tietysti olen varovainen,

      ei kaikki ole pelkkää epävarmuutta. En halua sotkea mitään, enkä aiheuttaa kenellekään hankaluuksia. Ja luulen että ehkä
      Ikävä
      40
      487

    9. Hurmasit sitten minut

      kauneudellasi nainen ja kun sait minut rakastumaan itseesi muutuit ihan porsaaksi etkä välitä vartalostasi enää yhtään.
      Ikävä
      43
      483

    10. Sinun kanssasi

      Kahvilassa tapaaminen olisi jotakin niin outoa. Se ei olisi vain kavereiden tapaaminen, koska ei olla oltu oikeita kaver
      Ikävä
      36
      476
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt