“Excel VBA Convert 2 entiers courts en un entier long” Réponses codées

Excel VBA Convert 2 entiers courts en un entier long

Public Function MakeLong&(ByVal LoWord%, ByVal HiWord%)
  MakeLong = (HiWord * &H10000) Or (LoWord And &HFFFF&)
End Function

Excel Hero

Excel VBA Low Word de Long Integer

'If n is a 4-byte Long Integer, the Low (Left) Word is:
If n And &H8000& Then
  	LoWord = n Or &HFFFF0000
Else
    LoWord = n And &HFFFF&
End If

'If n is a 4-byte Long Integer, the High (Right) Word is:
HiWord = (n And &HFFFF0000) \ &H10000

Excel Hero

Réponses similaires à “Excel VBA Convert 2 entiers courts en un entier long”

Questions similaires à “Excel VBA Convert 2 entiers courts en un entier long”

Plus de réponses similaires à “Excel VBA Convert 2 entiers courts en un entier long” dans VBA

Parcourir les réponses de code populaires par langue

Parcourir d'autres langages de code

Shell/Bash

C++

CSS

HTML

Java

JavaScript

Objective-C

PHP

Python

Sql

Swift

Ruby

TypeScript

Kotlin

Assembly

VBA

Scala

Rust

Dart

Elixir

Clojure

Haskell

Matlab

Erlang

Cobol

Fortran

Scheme

Perl

Groovy

Lua

Julia

Delphi

Abap

Lisp

Prolog

Pascal

ActionScript

Basic

Solidity

PowerShell

GDScript

Excel