---
title: "function"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/12655-function"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "aleborg"
published: "2001-11-15T09:42:00.000Z"
updated: "2001-11-15T11:23:00.000Z"
replies: 5
views: 178
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/12655-function"
---

# function

## #1 — aleborg, 2001-11-15T09:42Z

jag använder en function som gör om ett tal till mb, kb och b!

Koden ser ut så här:

```
<%
'********************************************************************
' ConvFileSize: Konventerar filstorlek (i byte) till kB, MB och GB.
'********************************************************************
Function ConvFileSize (FileSize, Decimaler)
	Dim DotPos, strFileSize
	FileSize = cDbl(FileSize)

	' Gigabytes.
	If FileSize >= 1048576000 Then
		strFileSize = cStr(cSng(FileSize / 1048576000))
		DotPos = Instr(strFileSize, ".")
		IF DotPos THEN
			IF Decimaler = 0 THEN Decimaler = -1
			strFileSize = MID(strFileSize, 1, DotPos + Decimaler)
		END IF
		strFileSize = strFileSize + " gb"
	' Megabytes.
	ElseIf FileSize >= 1048576 THEN
		strFileSize = cStr(cSng(FileSize / 1048576))
		DotPos = Instr(strFileSize, ".")
		IF DotPos THEN
			IF Decimaler = 0 THEN Decimaler = -1
			strFileSize = MID(strFileSize, 1, DotPos + Decimaler)
		END IF
		strFileSize = strFileSize + " mb"
	' Kilboytes.
	ElseIf FileSize >= 1024 THEN
		strFileSize = cStr(cSng(FileSize / 1024))
		DotPos = InStr(strFileSize, ".")
		IF DotPos THEN
			IF Decimaler = 0 THEN Decimaler = -1
			strFileSize = MID(strFileSize, 1, DotPos + Decimaler)
		END IF
		strFileSize = strFileSize + " kb"
	' Bytes.
	Else
		IF FileSize > 1 THEN
			strFileSize = cStr(Int(FileSize)) + " b"
		ELSE
			strFileSize = cStr(Int(FileSize)) + " b"
		END IF
	END IF
	
	ConvFileSize = Trim(strFileSize)

End Function
%>
```

Sen i en loop har jag:

sise= ConvFileSize(objFile("MDownSize"),1)

Och skriver ut det med
\<%=sise%\>

Problemet är att jag får följande resultat:
5,727123 mb när jag borde få 5.7 mb

Fattar noll! Ett tag funkade det på min dator men på mina kollegors gjorde det inte...

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

## #2 — icaaq, 2001-11-15T09:47Z

kola in [denna](http://www.devguru.com/Technologies/vbscript/quickref/formatnumber.html) :)

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

## #3 — aleborg, 2001-11-15T09:58Z

nja, koden jag har fungerar på andra sidor men inte på den jag håller på med nu!

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

## #4 — LarsG, 2001-11-15T11:16Z

Förmodligen olika regionala intsällningar

Kan sättas om med session.lcid = värde

Värden för olika länder finns här
 <http://www.webeye.nu/default2.asp?que=asp/default.asp&exec=asp/LCID.asp>

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

## #5 — aleborg, 2001-11-15T11:20Z

En fråga, är inte den här koden serverbaserad? Hur kommer det sig att på min dator visas det 5,7 mb men på min kollegas 5,727123 mb! Jag blir tokig!!!!

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

## #6 — aleborg, 2001-11-15T11:23Z

Tack LarsG, det funkade!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/12655-function