Thema Datum  Von Nutzer Rating
Antwort
13.05.2014 17:39:44 Florian Bauer
NotSolved
Blau AND und OR Rechner
 13.05.2014 18:16:33 Gast6200
NotSolved
13.05.2014 19:26:56 Florian Bauer
NotSolved
13.05.2014 20:47:16 Gast23385
NotSolved

Ansicht des Beitrags:
Von:
Gast6200		 Datum:
13.05.2014 18:16:33		 Views:
913		 Rating:
     
Antwort:
  Ja
Thema:
AND und OR Rechner

Mal 3 Beispiele:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Option Explicit 'erzwingt Variablendeklaration vor ihrem Gebrauch
 
Sub Beispiel01()
   
  Dim strZahl1 As String
  Dim strZahl2 As String
   
  strZahl1 = "123456"
  strZahl2 = "7890"
   
  'die jeweils kürzer Zahlenfolge vorne mit Nullen auffüllen
  '(die Nullen werden mit String$() erzeugt)
  If Len(strZahl1) < Len(strZahl2) Then
    strZahl1 = Format$(strZahl1, String$(Len(strZahl2), "0"))
  ElseIf Len(strZahl1) > Len(strZahl2) Then
    strZahl2 = Format$(strZahl2, String$(Len(strZahl1), "0"))
  Else
    'hier ist nix zu tun, da strZahl1 und strZahl2 die gleiche Länge haben
  End If
   
  'Ausgabe im Direktbereich/-fenster von VBA (ggf. einblenden über Menü 'Ansicht')
  Debug.Print "strZahl1: " & strZahl1
  Debug.Print "strZahl2: " & strZahl2
   
End Sub
 
Sub Beispiel02()
   
  Dim strWert As String
   
  strWert = "1A" 'hex
  Debug.Print strWert & " (hex) -> " & Val("&H" & strWert) & " (dec)"
   
  strWert = "2FE0" 'hex
  Debug.Print strWert & " (hex) -> " & Val("&H" & strWert) & " (dec)"
   
  strWert = "1234" 'decimal
  Debug.Print strWert & " (dec) -> " & Hex$(strWert) & " (hex)"
   
End Sub
 
Sub Beispiel03()
   
  Dim lngZahl1  As Long
  Dim lngZahl2  As Long
  Dim lngErg    As Long
   
  lngZahl1 = 150  'binär: 0000 0000 1001 0110
  lngZahl2 = 98   'binär: 0000 0000 0110 0010
   
  lngErg = lngZahl1 Or lngZahl2
  'ergibt: 246     binär: 0000 0000 1111 0110
  Debug.Print lngZahl1 & " Or " & lngZahl2 & " -> " & lngErg
   
  lngErg = lngZahl1 And lngZahl2
  'ergibt: 2       binär: 0000 0000 0000 0010
  Debug.Print lngZahl1 & " And " & lngZahl2 & " -> " & lngErg
   
End Sub

 

Gruß

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
13.05.2014 17:39:44 Florian Bauer
NotSolved
Blau AND und OR Rechner
 13.05.2014 18:16:33 Gast6200
NotSolved
13.05.2014 19:26:56 Florian Bauer
NotSolved
13.05.2014 20:47:16 Gast23385
NotSolved