VBA kellonajan käsittely

Jooss

Onko toimivia ohjeita seuraavaan :
2 kellonaikaa muotoa 18:00:00.

Pitäisi saada luotettavasti eroteltua montako tuntia on ollut iltavuoroa ja montako tuntia yövuoroa, miten onnistuu ?

aikaväli voi siis olla mitä vain, esim 18:20:00 - 06:00:00 ja tästä ajasta pitäisi poimia montako tuntia on ollut iltavuoroa (18-22) ja montako tuntia yövuoroa (22-06)

Kuulostaa helpolta mutta toteutus ei meinaa onnistua, ainakaan multa :)

2

441

Äänestä

    Vastaukset 2

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Kiila8

      Käytä VBA:n DateDiff-funktiota ja laske erikseen työajan alusta vuoron vaihtumiseen kuluneet ja senjälkeiset tunnit ja minuutit. Esim. näin:

      iltavuorotunnit = DateDiff("h", #18:20#, #22:00:00#) jne.

      • Jooos

        Niin, käsittely taitaa vaatia loopin jokatapauksessa, mietin tuota Datediff funktion käyttöä mutta ongelmaksi tuli juuri se että se vaatii loopin mikä käydään 2 tai 3 kertaa läpi ja tunnit talletetaan muuttujiin, 1 työvuoro kun voi pitää sisällään sekä päivä, ilta ja yövuoroja.

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Uskallanko laittaa sulle viestiä?

      Se viesti on tossa valmiina ja lähettämistä vaille valmis. Kun ei kauhee sti tunneta niin eipä sillä olisi niin väliä. S
      Ikävä
      60
      839

    2. Mikä tekee kaivatustasi

      Haluttavan?
      Ikävä
      34
      817

    3. Mies joka on oikeasti kiinnostunut

      Ja näkee sut pitkäaikaisena kumppanina, siirtää vaikka vuoria selvittääkseen asiat eikä ota pienintäkään riskiä menettää
      Ikävä
      125
      756

    4. Onko nyt kaikki asiat käyty läpi?

      Mun mielestä on👍
      Ikävä
      96
      726

    5. Vieläkin saat

      Sydämen tykyttämään. Vaikka emme näe
      Ikävä
      31
      622

    6. En tahallaan sua välttele...

      Olis niin kiva nähdä jossain muualla kuin kaupassa!
      Ikävä
      40
      547

    7. Rauha, sopiiko

      Ei häiritä enää toisiamme. Annetaan molemmille rauha unohtaa, pyydän tätä todella. Kiitos. Miehelle.
      Ikävä
      72
      536

    8. Lehtikankaan oppilas kuolema

      Mistä lie tyttöparka löytyny, mikä ajaa tekemään itsemurhan tuon ikäsenä 😞
      Kajaani
      10
      528

    9. Ikävä niitä hetkiä,kun katselin sua suoraan silmiin...

      😊
      Ikävä
      42
      519

    10. Ei siitä pääse yli, eikä ympäri!

      Pakko se on myöntää ja tunnustaa. Olisin halunnut p*nna sinua sydämeni kyllyydestä. Itseäni vanhemmalle naiselle
      Ikävä
      63
      509

    11. Kunnanhallitus

      Miten käy täällä vuosia tuomioita jakaneelle valittajalle, hovioikeus hylännyt kaikki syytteet.
      Puolanka
      24
      433

    12. Nyt kaatuu Kuisla

      Reima Kuisla hakee saneeraukseen – Joitakin velkoja on jo ulosotossa https://www.ilkkapohjalainen.fi/reima-kuisla-hakee
      Seinäjoki
      24
      430

    13. Kumpi tästä nyt

      Teki niin vaikeaa?
      Ikävä
      57
      429

    14. Pystyisitkö liikkumaan

      Tai tapailemaan kaivattuasi julkisesti?
      Ikävä
      45
      426

    15. Minkä kappaleen

      haluaisit soivan, kun astellaan alttarille?
      Ikävä
      36
      417

    16. Miesten (epä)viehättävyydestä kysymys

      Mieltä askarruttava asia, liki dilemma. Palstallahan jotkut miesoletetut usein toteavat, että kaikki naiset tavoittelev
      Sinkut
      105
      411

    17. Olit hyödytön.

      Mulle hyödytön..
      Ikävä
      72
      403

    18. Mikä estää ottamasta yhteyttä?

      🤨
      Ikävä
      39
      403

    19. Vieläkö tykkäät

      Minusta niin paljon että olisit valmis?
      Ikävä
      35
      397

    20. Emme pääse koskaan

      Tästä. Sinä et suostu enkä minä suostu
      Ikävä
      38
      394
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt