Avatar billede hundevennen Nybegynder
19. december 2007 - 10:39 Der er 3 kommentarer og
1 løsning

hjælp med if sætning

jeg laver en beregning ud fra 2 klokkeslet - tid1 - tid2 as antaltimer, - sålang så godt - det jeg gerne vil er når beregningen er lavet, så kan resultatet jo godt være f.eks
2,35 timer.
Jeg er kun interesseret i hele timer og vil så rundeop eller ned
alt efter om det er mere eller mindre end 30 minutter, så noget med hvis decimalerne er < 30 så skal der stå ,0 og hvis decimalerne er > 30 skal der rundes op til næste hele tal
Avatar billede goose Nybegynder
19. december 2007 - 11:17 #1
Er du sikker på, at det tal du får ud er 2 timer og 35 minutter?

/Goose
Avatar billede bravoosca Nybegynder
19. december 2007 - 12:00 #2
Jeg går ud fra at du har den formel du skal bruge for at få de "2,35" som du ønsker dig..

Men her er en løsning jeg bruger til den slags.
--------------------
        Dim udregning As Double

        udregning = xxx 'Din formel skal stå der

        Dim tempudregning As Double = udregning Mod 1

        Select Case True
            Case tempudregning > 0 And tempudregning < "0,30"
                tempudregning = 0
            Case tempudregning > "0,29"
                tempudregning = 100
        End Select

        udregning = Int(udregning) * 100 + tempudregning
        oversigt = (udregning / 100).ToString

        tbResultat.Text = oversigt.ToString()
--------------------

Denne laver "2,25" om til "2,0" og "2,36" om til "3,0"

Håber det hjælper..
Avatar billede hundevennen Nybegynder
24. december 2007 - 09:02 #3
jeg kan desværre ikke bruge select og end select i det system jeg bruger "qlikview"
kan man ikke lave med If then endif?
Avatar billede bravoosca Nybegynder
27. december 2007 - 20:52 #4
Jeg ved ikke lige hvad Qlikview er, så det kan jeg ikke hjælpe med.
Men du burde også kunne lave det med en IF sætning.

Ville mene at noget i denne stil kunne bruges
--------------------
        Dim udregning As Double

        udregning = xxx 'Din formel skal stå der

        Dim tempudregning As Double = udregning Mod 1

        IF tempudregning > 0 And tempudregning < "0,30" THEN
                tempudregning = 0
        ELSE
                tempudregning = 100
        ENDIF

        udregning = Int(udregning) * 100 + tempudregning
        oversigt = (udregning / 100).ToString

        tbResultat.Text = oversigt.ToString()
--------------------
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester