---
title: "Vänd på funktion"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/142936-vänd-på-funktion"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "martinpartin"
published: "2006-02-23T12:28:40.000Z"
updated: "2006-02-23T13:25:37.000Z"
replies: 1
views: 229
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/142936-vänd-på-funktion"
---

# Vänd på funktion

## #1 — martinpartin, 2006-02-23T12:28Z

Hej,

Jag skulle vilja vända på denna funktion men har lite svårt att få överblick hur jag gör det.

Någon som har nån idé ?

```
Function OctetToHexStr(arrbytOctet)

  Dim k
  OctetToHexStr = ""
  For k = 1 To Lenb(arrbytOctet)
    OctetToHexStr = OctetToHexStr _
      & Right("0" & Hex(Ascb(Midb(arrbytOctet, k, 1))), 2)
  Next
End Function
```

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

## #2 — martinpartin, 2006-02-23T13:25Z

Kanske föredrar man o se den på detta vis

input är t.ex:

152 351 115 022 346 205 305 103 224 057 323 027 352 071 242 375

```
Function OctetToHexStr(arrbytOctet)

OctetToHexStr = ""

Dim k, tmp
 

For k = 1 To Lenb(arrbytOctet)
 
 tmp = Midb(arrbytOctet, k, 1)
 tmp = Ascb(tmp)
 tmp = Hex(tmp)
 tmp = Right("0" & tmp, 2)
 OctetToHexStr = OctetToHexStr & tmp

Next
End Function
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/142936-vänd-på-funktion