CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede mortency Nybegynder
24. oktober 2003 - 15:59 Der er 6 kommentarer og
1 løsning

Bytes, KB, MB

552 KB = 552,9765625
1,9 MB = 1,98914623260498

Hvordan kan jeg rette dette? Hva er feil?

strFileSize = adoRs("BFilSize")

strSuffix = "kb"
If Cstr(strFileSize) > 1000 Then
strFileSize = strFileSize / 1024
strSuffix = "kB"
End If

If strFileSize > 1024 Then
strFileSize = strFileSize / 1024
strSuffix = "MB"
End If

'Formaterer "bytes" og legger til KB eller MB
strNewFileSize = FormatNumber(strFileSize,2,,,True) & " " & strSuffix
Avatar billede arne_v Ekspert
24. oktober 2003 - 16:07 #1
Du skal vel bare konvertere til integer:

strFileSize = CInt(strFileSize / 1024)
Avatar billede mortency Nybegynder
24. oktober 2003 - 16:11 #2
Det virker ikke.
Avatar billede netro Nybegynder
24. oktober 2003 - 17:17 #3
Hvor vil du hen med FormatNumber?
Avatar billede socle Nybegynder
24. oktober 2003 - 21:53 #4
If Cstr(strFileSize) > 1000 Then

hvorfor koverterer du til streng?
Avatar billede eagleeye Praktikant
25. oktober 2003 - 01:02 #5
Gemmer antal bytes i database kolonnen?

Hvis ja så prøv:


strFileSize = adoRs("BFilSize")

strSuffix = "B"
If Clng(strFileSize) > 1000 Then
  strFileSize = strFileSize / 1024
  strSuffix = "kB"
End If

If Clng(strFileSize) > 1024 Then
  strFileSize = strFileSize / 1024
  strSuffix = "MB"
End If

'Formaterer "bytes" og legger til KB eller MB
strNewFileSize = FormatNumber(strFileSize,2) & " " & strSuffix
Avatar billede mortency Nybegynder
11. november 2003 - 13:52 #6
// eagleeye
Bilde er 167 KB stort, i databasen(BFilSize) står det: 166,4443359375

Når jeg kjører koden din blir det 166,44 B
Avatar billede eagleeye Praktikant
11. november 2003 - 22:24 #7
Så det tal du gemmer i databasen er altså i KB og ikke bytes.

så prøv:

strFileSize = adoRs("BFilSize")

strSuffix = "kB"
If Clng(strFileSize) > 1000 Then
  strFileSize = strFileSize / 1024
  strSuffix = "MB"
End If

strNewFileSize = FormatNumber(strFileSize,2) & " " & strSuffix
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP 4 26/04/202417:16 26/04/202418:37
JSON Af ingeman i ASP 3 07/04/202417:53 08/04/202412:09
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 17:21 Mobil Samsung, app email fungerer ikke Af OBS i Apps til Android
I går 17:14 eclipse Af OBS i Java
I går 16:52 Åbne en PDF fil fra en mappe Af mbl i JavaScript
I går 13:15 Efter lukning af Edge, hvordan gendannes alle fanebladene? Af Philip Kuhlmann i Browsere
17/0415:46 Meta AI = Svær at foor væk ? Af Ikke-ekspert i Chat & Messaging
White papers
Flere white papers »


Premium
Teaser billede
Kritisk CVE-databasen om sikkerhed reddet i allersidste øjeblik - ny bevilling godkendt
Læs mere »
Netcompany-stifterne André Rogaczewski og Claus Bo Jørgensen skovler penge ind: Har tjent næsten 600 millioner kroner på et år
Sådan modererer Mads og 20 andre danskere alt indhold på Metas danske platforme fra et center i Barcelona
Jeg købte tømmermands-pizza for alle mine bitcoins og gik glip af en formue: Nu overvejer jeg at gå all-in igen
Se alle »
Computerworld
Teaser billede
Test af monster-tablet: Det er den skøreste og mærkeligste computer, som jeg har testet i lang tid – men jeg vil nu gerne have den alligevel
Læs mere »
Tech-milliardærer har øje på Grønland: Vil skabe en "frihedsby"
Prøvekørt: Der er mange gode grunde til at kalde BMW i5 for den bedste el-stationcar til dato
USA annullerer it-kontrakter for 35 milliarder kroner med omgående virkning: Accenture og Deloitte rammes hårdt
Se alle »
CIO
Teaser billede
Danske virksomheder søger væk fra amerikanske tech-giganter: Mange vil skifte til tysk Microsoft-alternativ
Læs mere »
Kræver nye systemer: Folk siger op, hvis virksomheden ikke skifter til S/4 Hana
Google udnytter Microsoft-brugernes modvilje mod at skifte fra Windows 10 til 11: Klar med ny løsning
Opbremsning rammer den danske it-branche: Opsigelser begynder at fylde mere og mere
Se alle »
Job & Karriere
Teaser billede
Den danske it-branche er på vagt: Hvad nu hvis Trump lukker for Microsoft 365 og AWS fra på mandag?
Læs mere »
Carsten advarede som it-sikkerhedschef om problemer og blev fyret: "Det endte med voksen-mobning af værste skuffe"
Microsoft fyrer de dårligst performende ansatte: Disse jobtitler bliver ramt
Danske it-folk lokkes med store tiltrædelses-bonusser: Nu kan du score mere end 100.000 kroner ved at skrive under på ny jobkontrakt
Se alle »
White paper
Teaser billede
Revolutionér kundeoplevelsen med AI og automatisering
Læs mere »
Sådan: Virtualisering uden vendor lock-in og høje omkostninger
Sådan sikrer du nem og beskyttet adgang til dine ressourcer
Udnyt Genesys Cloud CX optimalt og styrk kundeoplevelsen
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »