---
title: "Räkna ut antalet kvartar"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/175863-räkna-ut-antalet-kvartar"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "devotion"
published: "2008-12-14T16:40:26.000Z"
updated: "2008-12-15T08:08:25.000Z"
replies: 11
views: 693
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/175863-räkna-ut-antalet-kvartar"
---

# Räkna ut antalet kvartar

## #1 — devotion, 2008-12-14T16:40Z

:) 

Hmm, rubriken blev ju kul...

Jag vill göra en funktion som räknar ut antalet kvartar med antalet timmar som argument.

Typ:

```

Function GetQuarters(tmAmount)
    
      GetQuarters=tmAmount/0,25
End function
```

Hur gör man funktionen så bra som möjligt? Dvs att om antalet antalet kvartar inte går jämt ut, skall det avrundas uppåt?

Mvh
Henrik

Permalänk: https://www.webforum.nu/p/175863

## #2 — Zaiman, 2008-12-14T16:43Z

Varje timme har bara fyra kvartar (skriver man så?) Så det blir omöjligt att få tre kvartar och lite till på en timme.

Permalänk: https://www.webforum.nu/p/2159562

## #3 — devotion, 2008-12-14T16:53Z

Jo, men om jag har tex 1,8 timmar så blir det ju 7,2 kvartar. Det måste ju bli jämt antal kvartar liksom...  :)  (I detta fallet skall det bli 8)

Mvh
Henrik

Permalänk: https://www.webforum.nu/p/2159565

## #4 — Zaiman, 2008-12-14T17:14Z

Aha.. Det var så du menade.
Jag missförstod.

Permalänk: https://www.webforum.nu/p/2159566

## #5 — @nders, 2008-12-14T18:15Z

Ingemar Stenmark brukar alltid säga: "Hä' bar' å fix."

http://msdn.microsoft.com/en-us/library/t4dseb50(VS.85).aspx

Permalänk: https://www.webforum.nu/p/2159567

## #6 — devotion, 2008-12-14T19:22Z

Kanske så här:

```
Function GetQuarters(tmAmount)
      If isnumeric(tmAmount) then 
            GetQuarters=Int(tmAmount/0,25) 
      else
            GetQuarters=0
      end if
End function
```

?

Mvh
Henrik

Permalänk: https://www.webforum.nu/p/2159571

## #7 — @nders, 2008-12-14T20:00Z

Ja, men då är ju inte mitt svar lika roligt.

\- - -

Du kanske måste typkonvertera tmAmount innan du räknar med det - jag vet inte vad du skickar in i funktionen.

Permalänk: https://www.webforum.nu/p/2159578

## #8 — devotion, 2008-12-14T20:10Z

:)

Permalänk: https://www.webforum.nu/p/2159580

## #9 — Micke_xyz, 2008-12-15T07:21Z

Räkna ut antalet minuter, dela på 15.

GetQuarters = (tmAmount \* 60) / 15

Permalänk: https://www.webforum.nu/p/2159610

## #10 — Lasp, 2008-12-15T07:47Z

Kvartar skall alltså vara ett heltal.
Ta minuter och dela med femton  Modulo +1

Permalänk: https://www.webforum.nu/p/2159612

## #11 — Gein, 2008-12-15T08:00Z

> **devotion skrev:**
>
> ```
> Function GetQuarters(tmAmount)
>       If isnumeric(tmAmount) then 
>             GetQuarters=Int(tmAmount/0,25) 
>       else
>             GetQuarters=0
>       end if
> End function
> ```

Det där kommer alltid att avrunda neråt. För Int beter sig väl så även i VB? Lägg på 0.5 innan du kör Int så får du "korrekt" avrundning.

Permalänk: https://www.webforum.nu/p/2159616

## #12 — @nders, 2008-12-15T08:08Z

> **Gein skrev:**
>
> Det där kommer alltid att avrunda neråt. För Int beter sig väl så även i VB? Lägg på 0.5 innan du kör Int så får du "korrekt" avrundning.

Hmm, jag läste lite fel i min länk. Jag tror att du har helt rätt!

Annars kan man ju krångla enl. Lasps förslag med en heltalsdivision och lägga på ett om du får någon rest.

Permalänk: https://www.webforum.nu/p/2159620

---

Tråden på webben: https://www.webforum.nu/amne/asp/175863-räkna-ut-antalet-kvartar