Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Logische Operatoren
zurück: Freilassen eines Feldes im Formular -> schlecht für Beric weiter: GIF auf Startseite einfügen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gast
Gast


Verfasst am:
02. Jun 2004, 10:02
Rufname:

Logische Operatoren - Logische Operatoren

Nach oben
       

Hallo,

möchte in einem Formular einen Anzeigewert (ja/nein) zuweisen, der einen Tabellenwert darstellt, der mit einem (konstanten) Wert binär UND maskiert wird, z.B. immer wenn Bit 2^3 im Tabellenwert gesetzt ist.

Geht dies nur umständlich (rechenaufwendig) über "Mod" und "\" oder gibt es hier etwas einfacheres ähnlich =[Wert]&&4?

Tschau
Ralf
Willi Wipp
Moderator


Verfasst am:
02. Jun 2004, 16:24
Rufname:
Wohnort: Raum Wiesbaden


Re: Logische Operatoren - Re: Logische Operatoren

Nach oben
       

Hi Ralf,

auch in VBA gibt es logische Operatioen fuer die bitweise Manipulation von Daten.
Code:
Option Compare Database
Option Explicit

Public Function FnbBitGesetzt(lZahl As Long, lBit As Long) As Boolean
    FnbBitGesetzt = ((lZahl& And 2 ^ lBit&) > 0)
End Function

Public Function FnlBitSetzten(lZahl As Long, lBit As Long) As Long
    FnlBitSetzten& = (lZahl& Or 2 ^ lBit&)
End Function

Public Function FnlBitLoeschen(lZahl As Long, lBit As Long) As Long
'    FnlBitLoeschen& = lZahl&
'    If FnbBitGesetzt(lZahl&, lBit&) Then FnlBitLoeschen& = lZahl& - 2 ^ lBit&
    FnlBitLoeschen& = Not (lZahl& Imp 2 ^ lBit&)
End Function

Public Function FnsBinaer(lZahl As Long, lStellen As Long) As String
    Dim l   As Long
    For l = 0 To lStellen& - 1
        If FnbBitGesetzt(lZahl&, l&) Then
            FnsBinaer$ = "1" & FnsBinaer$
          Else
            FnsBinaer$ = "0" & FnsBinaer$
        End If
    Next l&
End Function

Ohne Gewehr Wink maximal 31 Stellen (Bit)

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Programmierung / VBA: IF und logische Verknüpfung And 2 etu1965 101 31. Aug 2013, 23:25
etu1965 IF und logische Verknüpfung And
Keine neuen Beiträge Access Tabellen & Abfragen: Operatoren in Abfrage 2 Lumibär 101 19. Apr 2013, 07:46
Lumibär Operatoren in Abfrage
Keine neuen Beiträge Access Programmierung / VBA: logische Abfrage als Kriterium in abfrage mit Variable überg 6 dl3due 299 29. Aug 2012, 08:27
dl3due logische Abfrage als Kriterium in abfrage mit Variable überg
Keine neuen Beiträge Access Tabellen & Abfragen: Problem Operatoren SQL 3 Maria90 434 04. Dez 2011, 20:04
MiLie Problem Operatoren SQL
Keine neuen Beiträge Access Programmierung / VBA: Filtern mit Operatoren im Textfeld - Formular 19 Culikjot 1872 08. Dez 2010, 16:04
Culik Filtern mit Operatoren im Textfeld - Formular
Keine neuen Beiträge Access Tabellen & Abfragen: Reihenfolge von Operatoren 2 GrauerMensch 377 07. Mai 2010, 13:35
GrauerMensch Reihenfolge von Operatoren
Keine neuen Beiträge Access Hilfe: Frage: Wie werden logische Werte in ACCESS abgebildet? 5 jo2222de 1000 21. Okt 2009, 22:31
MissPh! Frage: Wie werden logische Werte in ACCESS abgebildet?
Keine neuen Beiträge Access Tabellen & Abfragen: direkte und logische querverweise zwischen tabellen 1 pieps68 412 01. März 2009, 15:37
JörgG direkte und logische querverweise zwischen tabellen
Keine neuen Beiträge Access Tabellen & Abfragen: logische Verknüpfung von Kriterien über Listbox 7 Juergen_190 1179 28. Dez 2008, 22:25
Juergen_190 logische Verknüpfung von Kriterien über Listbox
Keine neuen Beiträge Access Programmierung / VBA: logische Verbindung - Leerstring 2 sunny2k1 605 13. Jun 2008, 15:28
sunny2k1 logische Verbindung - Leerstring
Keine neuen Beiträge Access Tabellen & Abfragen: Parameterabfrage mit Operatoren 10 jack-y 909 10. Mai 2007, 18:14
jack-y Parameterabfrage mit Operatoren
Keine neuen Beiträge Access Programmierung / VBA: arithmetische Operatoren über Variabel ?! 2 magnum 649 14. Jul 2006, 19:23
magnum arithmetische Operatoren über Variabel ?!
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project