Tipp 10.14 - DWORD aufsplitten

Wie kann ich einen DWORD Wert aufsplitten?

Mit dieser Funktion können Sie einen DWORD Wert aufsplitten. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Beispiel:

Sub SplitDWord(ByVal lDWord As Long, _
               ByRef lHiWord As Long, ByRef lLoWord As Long)
'// -----------------------------------------------------
'// Methode:   | Splittet einen DWORD-Wert auf
'// -----------------------------------------------------
'// Parameter: | lDWord - zu splittender DWord-Wert
'//            | lHiWord - Extrahierter HiWord-Wert
'//            | lLoWord - Extrahierter LoWord-Wert
'// -----------------------------------------------------
'// Rückgabe:  | ByRef-Variablen werden gefüllt
'// -----------------------------------------------------
'// Autor:     | Stefan Kulpa
'//            | EDV Innovation & Consulting - Dormagen
'// -----------------------------------------------------
    lHiWord = (lDWord And (Not &HFFFF&))  &HFFFF&
    lLoWord = lDWord And &HFFFF&
 
End Sub


Zurück Tipp 10.13 - MinMax beeinflussen | Inhalt | Tipp 10.15 - RGB-Werte ermitteln Weiter