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

399

    Vastaukset

    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ä.

    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