vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Suche Visual-Basic Code
Re: Euklid 
Autor: michi-bib
Datum: 14.12.02 10:11

Hallo erstmal,

ich nehme mal an du meinst folgendes:

Option Explicit
 
Private Sub Command1_Click()
    Dim lResult As Long
 
    lResult = CStr(bin2Dec("1111111111111111111111111111111"))
    If lResult = -1 Then
        MsgBox "Zahlenüberlauf !", vbInformation
    Else
        MsgBox CStr(lResult)
    End If
End Sub
 
Public Function bin2Dec(sBin As String) As Long
    Dim i As Long
    Dim lErg As Long
    Dim lChar As Long
    Dim lLaenge As Long
 
    On Error Resume Next
 
    lLaenge = Len(sBin)
 
    For i = lLaenge To 1 Step -1
        lChar = CLng(Mid(sBin, i, 1))
        lErg = lErg + lChar * (2 ^ (lLaenge - i))
        If Err.Number > 0 Then
            lErg = -1
            Exit For
        End If
    Next i
 
    bin2Dec = lErg
End Function

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Euklid874keeper13.12.02 14:36
Re: Euklid596michi-bib14.12.02 10:11
Re: Euklid Nachtrag573michi-bib14.12.02 10:41
Re: Euklid Nachtrag578keeper14.12.02 10:45

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows 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.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel