ABOUT Visual Basic Programmieren Programmierung Download Downloads Tips & Tricks Tipps & Tricks Know-How Praxis VB VBA Visual Basic for Applications VBS VBScript Scripting Windows ActiveX COM OLE API ComputerPC Microsoft Office Microsoft Office 97 Office 2000 Access Word Winword Excel Outlook Addins ASP Active Server Pages COMAddIns ActiveX-Controls OCX UserControl UserDocument Komponenten DLL EXE
Diese Seite wurde zuletzt aktualisiert am 29.08.2001

Diese Seite wurde zuletzt aktualisiert am 29.08.2001
Aktuell im ABOUT Visual Basic-MagazinGrundlagenwissen und TechnologienKnow How, Tipps und Tricks rund um Visual BasicActiveX-Komponenten, Controls, Klassen und mehr...AddIns für die Visual Basic-IDE und die VBA-IDEVBA-Programmierung in MS-Office und anderen AnwendungenScripting-Praxis für den Windows Scripting Host und das Scripting-ControlTools, Komponenten und Dienstleistungen des MarktesRessourcen für Programmierer (Bücher, Job-Börse)Dies&Das...

Themen und Stichwörter im ABOUT Visual Basic-Magazin
Code, Beispiele, Komponenten, Tools im Überblick, Shareware, Freeware
Ihre Service-Seite, Termine, Job-Börse
Melden Sie sich an, um in den vollen Genuss des ABOUT Visual Basic-Magazins zu kommen!
Informationen zum ABOUT Visual Basic-Magazin, Kontakt und Impressum

Zurück...

MKI und CVI nachgerüstet

Zurück...


Anzeige

(-hg) mailto:hg_mkicvi@aboutvb.de

Kennen Sie (noch) die in vielen Basic-Dialekten verfügbaren Funktionen wie MKI und CVI zum Umgang mit der Byte-weisen Darstellung von Zahlen in Form von Strings? Wenn Sie diese Funktionen in Visual Basic vermissen sollten - hier sind die entsprechenden Paare MKI/CVI für Integer-, MKL/CVL für Long-, MKS/CVS für Single- und MKD/CVD für Double-Zahlen.

Private Type IntType
  I As Integer
End Type

Private Type LngType
  L As Long
End Type

Private Type SngType
  S As Single
End Type

Private Type DblType
  D As Double
End Type

Private Type StrType
  S As String * 8
End Type

Public Function CVI(Value As String) As Integer
  Dim nStr As StrType
  Dim nInt As IntType
  
  nStr.S = StrConv(Left$(Value, 2), vbFromUnicode)
  LSet nInt = nStr
  CVI = nInt.I
End Function

Public Function MKI(ByVal Value As Integer) As String
  Dim nStr As StrType
  Dim nInt As IntType
  
  nInt.I = Value
  LSet nStr = nInt
  MKI = Left(StrConv(nStr.S, vbUnicode), 2)
End Function

Public Function CVL(Value As String) As Long
  Dim nStr As StrType
  Dim nLng As LngType
  
  nStr.S = StrConv(Left$(Value, 4), vbFromUnicode)
  LSet nLng = nStr
  CVL = nLng.L
End Function

Public Function MKL(ByVal Value As Long) As String
  Dim nStr As StrType
  Dim nLng As LngType
  
  nLng.L = Value
  LSet nStr = nLng
  MKL = Left(StrConv(nStr.S, vbUnicode), 4)
End Function

Public Function CVS(Value As String) As Single
  Dim nStr As StrType
  Dim nSng As SngType
  
  nStr.S = StrConv(Left$(Value, 4), vbFromUnicode)
  LSet nSng = nStr
  CVS = nSng.S
End Function

Public Function MKS(ByVal Value As Single) As String
  Dim nStr As StrType
  Dim nSng As SngType
  
  nSng.S = Value
  LSet nStr = nSng
  MKS = Left(StrConv(nStr.S, vbUnicode), 4)
End Function

Public Function CVD(Value As String) As Double
  Dim nStr As StrType
  Dim nDbl As DblType
  
  nStr.S = StrConv(Left$(Value, 8), vbFromUnicode)
  LSet nDbl = nStr
  CVD = nDbl.D
End Function

Public Function MKD(ByVal Value As Double) As String
  Dim nStr As StrType
  Dim nDbl As DblType
  
  nDbl.D = Value
  LSet nStr = nDbl
  MKD = Left(StrConv(nStr.S, vbUnicode), 8)
End Function

Modul modMKICVI (modMKICVI.bas - ca. 2,1 KB)


Artikel
Zum Download-Bereich dieses Artikel
Mail an den Autor dieses Artikels

KnowHow
Zur KnowHow-Übersicht

KnowHow-Themen
Themen - Allgemeines
Themen - Entwicklungsumgebung (VB-IDE)
Themen - Forms
Themen - Steuerelemente (Controls)
Themen - Grafik
Themen - Dateien
Themen - UserControls
Themen - Einsteiger-Tipps
Themen - Wussten Sie...?

Übersicht nach Titeln in alphabetischer Reihenfolge
Übersicht nach Erscheinungsdatum

Schnellsuche




Zum Seitenanfang

Copyright © 1999 - 2017 Harald M. Genauck, ip-pro gmbh  /  Impressum

Zum Seitenanfang

Zurück...

Zurück...

Download Internet Explorer