fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

'Nützliche' Funktionen, die keinem fehlten..

Uploader:	ytwinky
Datum/Zeit:	05.11.2007 19:23:38

Function Val2Bin(Wert As Integer, Breite As Integer=8) As String

  Return Bin(Wert, Breite)

End Function



Function Val2Hex(Wert As Integer, Breite As Integer=4) As String

  Return Hex(Wert, Breite)

End Function



Function Bin2Val (binaer As String) As Integer

  Return Val("&b" & binaer)

End Function



Function Bin2Hex(binaer As String) As String

  Return Val2Hex(Val("&b" & binaer))

End Function



Function Hex2Val(HexCode As String) As Integer

  Return Val("&h" & HexCode)

End Function



Function Hex2Bin(HexCode As String) As String

  Return Val2Bin(Val("&h" & hexcode))

End Function

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.