Avatar billede timmeren Nybegynder
26. september 2006 - 15:20 Der er 9 kommentarer og
1 løsning

Fjerne komma tal, muligvis runde op eller ned

Jeg har siddet og lavet et program der regner på hvor hurtigt og langt man skal kører også smider den tiden ud i timer og minutter, fordelt på to tekstbokse

timer kører perfekt

men jeg får komma tal i minutterne, og vil bare have det hele tal foreksempel 30 og ikke 30,674.

og helst gerne også forklare hvordan jeg kan bestemme om jeg vil have kommatal og hvor mange så ville jeg være glad.
Avatar billede rask2 Nybegynder
26. september 2006 - 15:26 #1
hvis du konverterer det til en streng kan du:
dim cmin as string
dim afr as string

cmin = cstr(min)
afr = left(cmin,2)

nu vil de første 2 tal ligge i afr.
kan jo så kun bruges hvis minutter altid angives med 2 tal så for fx 7 min skal der skrives 07
Avatar billede rask2 Nybegynder
26. september 2006 - 15:26 #2
ikke 100% sikker
Avatar billede thesurfer Nybegynder
26. september 2006 - 16:12 #3
Find den Format-kommando der passer dig bedst: http://www.w3schools.com/vbscript/vbscript_ref_functions.asp#format

FormatCurrency    Returns an expression formatted as a currency value
FormatDateTime    Returns an expression formatted as a date or time
FormatNumber    Returns an expression formatted as a number
FormatPercent    Returns an expression formatted as a percentage

Links:
FormatCurrency    http://www.w3schools.com/vbscript/func_formatcurrency.asp
FormatDateTime    http://www.w3schools.com/vbscript/func_formatdatetime.asp
FormatNumber    http://www.w3schools.com/vbscript/func_formatnumber.asp
FormatPercent    http://www.w3schools.com/vbscript/func_formatpercent.asp
Avatar billede timmeren Nybegynder
26. september 2006 - 16:56 #4
jamen så vil jeg lige prøve mig lidt frem ,,, tak indtil videre
Avatar billede timmeren Nybegynder
26. september 2006 - 17:48 #5
Har ikke lige kunnet få det helt til at virke så smider lige min kode ind, også håber jeg i kan hjælpe derfra




        If (TextBox1.Text = "") Then
            MsgBox("Indtast venligst din fart")
        Else
            If (TextBox2.Text = "") Then
                MsgBox("Indtast venligst længden du skal kører")
            End If
        End If


       
        Dim tid, timer, Dim


        tid = TextBox2.Text / TextBox1.Text * 60

        Timer = Int(tid / 60)
        minutter = tid Mod 60

        TextBox3.Text = Timer

        TextBox4.Text = minutter

        TextBox5.Text = TextBox1.Text * 1000 / 3600


og det altså minutter vi skal få til at skrive ud kun som hel tal, til textbox 4
Avatar billede timmeren Nybegynder
26. september 2006 - 20:20 #6
har klaret den gutter. ... det kører nu
Avatar billede thesurfer Nybegynder
27. september 2006 - 09:34 #7
..og løsningen blev?
Avatar billede rask2 Nybegynder
04. oktober 2006 - 15:10 #8
skal vi have lukket spørgsmålet så
Avatar billede timmeren Nybegynder
06. oktober 2006 - 09:50 #9
sorry har ikke været online længe, arbejdet tager lidt hårdt for tiden

jeg brugte en slags kodning fra rask2 . fik aldrig formateringen til at fungere, skal bruge lidt mere info tror jeg ,, må læse mig til det.

men bare put et svar ind, så vi kan blive færdige
Avatar billede rask2 Nybegynder
06. oktober 2006 - 10:17 #10
svar
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