Avatar billede lund_dk Praktikant
23. februar 2006 - 09:56 Der er 2 kommentarer og
1 løsning

Omregn byte til kb, mb osv

hej

Jeg har et NUMBer felt i min database, med eks værdien: 17408

Denne værdi er fra et upload script hvor jeg gemmer størrelsen på en fil.
17408 er angivet i bytes

Når jeg udskriver størrelsen
<%=rsFil("storrelse")%>
skal jeg have den til at omregne til Kb, og hvis større til MB

hvordan gør jeg det ?
Avatar billede morhan Novice
23. februar 2006 - 10:12 #1
Function GetSize(size)
    Dim a, i
    a = Array("Bytes", "KB", "MB", "GB")
    Do While size > 1024
        If i = UBound(a) Then Exit Do
        size = size/1024
        i = i+1
    Loop
    GetSize = Round(size, 2) & " " & a(i)
End Function

<%=GetSize(rsFil("storrelse"))%>
Avatar billede lund_dk Praktikant
23. februar 2006 - 10:21 #2
Perfekt, smid et svar :D
Avatar billede lund_dk Praktikant
12. april 2006 - 14:33 #3
Så må jeg selv hente point ind igen når der ikke er lagt 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