Bonjour,
Toujours aussi débutant, je cherche à migrer une fonction VBA en TSQL
Et si je suis ici, c'est que je n'y arrive pas !
Principe : l'utilisateur possède un _trousseau_ (un entier long de 32 -1
bits, équivalent à 31 clés) et face à une porte, teste si la _clef_ est dans
le _trousseau_
Par exemple 546 | 5 => Vrai, mais 546 | 6 => Faux
Merci d'avance,
Albéric
«
Function IsClefOk(Trousseau As Long, Clef As Byte) As Boolean
Dim NbreXor As Long
If IsNull(Trousseau) Or IsNull(Clef) Then
IsClefOk = False
Else
NbreXor = Trousseau Xor (2 ^ Clef)
IsClefOk = NbreXor < Trousseau
End If
End Function
?
Bonjour,
Toujours aussi débutant, je cherche à migrer une fonction VBA en TSQL
Et si je suis ici, c'est que je n'y arrive pas !
Principe : l'utilisateur possède un _trousseau_ (un entier long de 32 -1
bits, équivalent à 31 clés) et face à une porte, teste si la _clef_ est dans
le _trousseau_
Par exemple 546 | 5 => Vrai, mais 546 | 6 => Faux
Merci d'avance,
Albéric
«
Function IsClefOk(Trousseau As Long, Clef As Byte) As Boolean
Dim NbreXor As Long
If IsNull(Trousseau) Or IsNull(Clef) Then
IsClefOk = False
Else
NbreXor = Trousseau Xor (2 ^ Clef)
IsClefOk = NbreXor < Trousseau
End If
End Function
?
Bonjour,
Toujours aussi débutant, je cherche à migrer une fonction VBA en TSQL
Et si je suis ici, c'est que je n'y arrive pas !
Principe : l'utilisateur possède un _trousseau_ (un entier long de 32 -1
bits, équivalent à 31 clés) et face à une porte, teste si la _clef_ est dans
le _trousseau_
Par exemple 546 | 5 => Vrai, mais 546 | 6 => Faux
Merci d'avance,
Albéric
«
Function IsClefOk(Trousseau As Long, Clef As Byte) As Boolean
Dim NbreXor As Long
If IsNull(Trousseau) Or IsNull(Clef) Then
IsClefOk = False
Else
NbreXor = Trousseau Xor (2 ^ Clef)
IsClefOk = NbreXor < Trousseau
End If
End Function
?
Bonjour,
Toujours aussi débutant, je cherche à migrer une fonction VBA en TSQL
Et si je suis ici, c'est que je n'y arrive pas !
Principe : l'utilisateur possède un _trousseau_ (un entier long de 32 -1
bits, équivalent à 31 clés) et face à une porte, teste si la _clef_ est
dans le _trousseau_
Par exemple 546 | 5 => Vrai, mais 546 | 6 => Faux
Merci d'avance,
Albéric
«
Function IsClefOk(Trousseau As Long, Clef As Byte) As Boolean
Dim NbreXor As Long
If IsNull(Trousseau) Or IsNull(Clef) Then
IsClefOk = False
Else
NbreXor = Trousseau Xor (2 ^ Clef)
IsClefOk = NbreXor < Trousseau
End If
End Function
?
Bonjour,
Toujours aussi débutant, je cherche à migrer une fonction VBA en TSQL
Et si je suis ici, c'est que je n'y arrive pas !
Principe : l'utilisateur possède un _trousseau_ (un entier long de 32 -1
bits, équivalent à 31 clés) et face à une porte, teste si la _clef_ est
dans le _trousseau_
Par exemple 546 | 5 => Vrai, mais 546 | 6 => Faux
Merci d'avance,
Albéric
«
Function IsClefOk(Trousseau As Long, Clef As Byte) As Boolean
Dim NbreXor As Long
If IsNull(Trousseau) Or IsNull(Clef) Then
IsClefOk = False
Else
NbreXor = Trousseau Xor (2 ^ Clef)
IsClefOk = NbreXor < Trousseau
End If
End Function
?
Bonjour,
Toujours aussi débutant, je cherche à migrer une fonction VBA en TSQL
Et si je suis ici, c'est que je n'y arrive pas !
Principe : l'utilisateur possède un _trousseau_ (un entier long de 32 -1
bits, équivalent à 31 clés) et face à une porte, teste si la _clef_ est
dans le _trousseau_
Par exemple 546 | 5 => Vrai, mais 546 | 6 => Faux
Merci d'avance,
Albéric
«
Function IsClefOk(Trousseau As Long, Clef As Byte) As Boolean
Dim NbreXor As Long
If IsNull(Trousseau) Or IsNull(Clef) Then
IsClefOk = False
Else
NbreXor = Trousseau Xor (2 ^ Clef)
IsClefOk = NbreXor < Trousseau
End If
End Function
?
Bonjour,
Toujours aussi débutant, je cherche à migrer une fonction VBA en TSQL
Et si je suis ici, c'est que je n'y arrive pas !
Principe : l'utilisateur possède un _trousseau_ (un entier long de 32 -1
bits, équivalent à 31 clés) et face à une porte, teste si la _clef_ est
dans le _trousseau_
Par exemple 546 | 5 => Vrai, mais 546 | 6 => Faux
Merci d'avance,
Albéric
«
Function IsClefOk(Trousseau As Long, Clef As Byte) As Boolean
Dim NbreXor As Long
If IsNull(Trousseau) Or IsNull(Clef) Then
IsClefOk = False
Else
NbreXor = Trousseau Xor (2 ^ Clef)
IsClefOk = NbreXor < Trousseau
End If
End Function
?
Bonjour,
Toujours aussi débutant, je cherche à migrer une fonction VBA en TSQL
Et si je suis ici, c'est que je n'y arrive pas !
Principe : l'utilisateur possède un _trousseau_ (un entier long de 32 -1
bits, équivalent à 31 clés) et face à une porte, teste si la _clef_ est
dans le _trousseau_
Par exemple 546 | 5 => Vrai, mais 546 | 6 => Faux
Merci d'avance,
Albéric
«
Function IsClefOk(Trousseau As Long, Clef As Byte) As Boolean
Dim NbreXor As Long
If IsNull(Trousseau) Or IsNull(Clef) Then
IsClefOk = False
Else
NbreXor = Trousseau Xor (2 ^ Clef)
IsClefOk = NbreXor < Trousseau
End If
End Function
?
Bonjour,
Toujours aussi débutant, je cherche à migrer une fonction VBA en TSQL
Et si je suis ici, c'est que je n'y arrive pas !
Principe : l'utilisateur possède un _trousseau_ (un entier long de 32 -1
bits, équivalent à 31 clés) et face à une porte, teste si la _clef_ est
dans le _trousseau_
Par exemple 546 | 5 => Vrai, mais 546 | 6 => Faux
Merci d'avance,
Albéric
«
Function IsClefOk(Trousseau As Long, Clef As Byte) As Boolean
Dim NbreXor As Long
If IsNull(Trousseau) Or IsNull(Clef) Then
IsClefOk = False
Else
NbreXor = Trousseau Xor (2 ^ Clef)
IsClefOk = NbreXor < Trousseau
End If
End Function
?
Bonjour,
Toujours aussi débutant, je cherche à migrer une fonction VBA en TSQL
Et si je suis ici, c'est que je n'y arrive pas !
Principe : l'utilisateur possède un _trousseau_ (un entier long de 32 -1
bits, équivalent à 31 clés) et face à une porte, teste si la _clef_ est
dans le _trousseau_
Par exemple 546 | 5 => Vrai, mais 546 | 6 => Faux
Merci d'avance,
Albéric
«
Function IsClefOk(Trousseau As Long, Clef As Byte) As Boolean
Dim NbreXor As Long
If IsNull(Trousseau) Or IsNull(Clef) Then
IsClefOk = False
Else
NbreXor = Trousseau Xor (2 ^ Clef)
IsClefOk = NbreXor < Trousseau
End If
End Function
?
Bonjour,
Toujours aussi débutant, je cherche à migrer une fonction VBA en TSQL
Et si je suis ici, c'est que je n'y arrive pas !
Principe : l'utilisateur possède un _trousseau_ (un entier long de 32 -1
bits, équivalent à 31 clés) et face à une porte, teste si la _clef_ est
dans le _trousseau_
Par exemple 546 | 5 => Vrai, mais 546 | 6 => Faux
Merci d'avance,
Albéric
«
Function IsClefOk(Trousseau As Long, Clef As Byte) As Boolean
Dim NbreXor As Long
If IsNull(Trousseau) Or IsNull(Clef) Then
IsClefOk = False
Else
NbreXor = Trousseau Xor (2 ^ Clef)
IsClefOk = NbreXor < Trousseau
End If
End Function
?
Bonjour,
Toujours aussi débutant, je cherche à migrer une fonction VBA en TSQL
Et si je suis ici, c'est que je n'y arrive pas !
Principe : l'utilisateur possède un _trousseau_ (un entier long de 32 -1
bits, équivalent à 31 clés) et face à une porte, teste si la _clef_ est
dans le _trousseau_
Par exemple 546 | 5 => Vrai, mais 546 | 6 => Faux
Merci d'avance,
Albéric
«
Function IsClefOk(Trousseau As Long, Clef As Byte) As Boolean
Dim NbreXor As Long
If IsNull(Trousseau) Or IsNull(Clef) Then
IsClefOk = False
Else
NbreXor = Trousseau Xor (2 ^ Clef)
IsClefOk = NbreXor < Trousseau
End If
End Function
?
Bonjour,
Toujours aussi débutant, je cherche à migrer une fonction VBA en TSQL
Et si je suis ici, c'est que je n'y arrive pas !
Principe : l'utilisateur possède un _trousseau_ (un entier long de 32 -1
bits, équivalent à 31 clés) et face à une porte, teste si la _clef_ est dans
le _trousseau_
Par exemple 546 | 5 => Vrai, mais 546 | 6 => Faux
Merci d'avance,
Albéric
«
Function IsClefOk(Trousseau As Long, Clef As Byte) As Boolean
Dim NbreXor As Long
If IsNull(Trousseau) Or IsNull(Clef) Then
IsClefOk = False
Else
NbreXor = Trousseau Xor (2 ^ Clef)
IsClefOk = NbreXor < Trousseau
End If
End Function
?
Bonjour,
Toujours aussi débutant, je cherche à migrer une fonction VBA en TSQL
Et si je suis ici, c'est que je n'y arrive pas !
Principe : l'utilisateur possède un _trousseau_ (un entier long de 32 -1
bits, équivalent à 31 clés) et face à une porte, teste si la _clef_ est dans
le _trousseau_
Par exemple 546 | 5 => Vrai, mais 546 | 6 => Faux
Merci d'avance,
Albéric
«
Function IsClefOk(Trousseau As Long, Clef As Byte) As Boolean
Dim NbreXor As Long
If IsNull(Trousseau) Or IsNull(Clef) Then
IsClefOk = False
Else
NbreXor = Trousseau Xor (2 ^ Clef)
IsClefOk = NbreXor < Trousseau
End If
End Function
?
Bonjour,
Toujours aussi débutant, je cherche à migrer une fonction VBA en TSQL
Et si je suis ici, c'est que je n'y arrive pas !
Principe : l'utilisateur possède un _trousseau_ (un entier long de 32 -1
bits, équivalent à 31 clés) et face à une porte, teste si la _clef_ est dans
le _trousseau_
Par exemple 546 | 5 => Vrai, mais 546 | 6 => Faux
Merci d'avance,
Albéric
«
Function IsClefOk(Trousseau As Long, Clef As Byte) As Boolean
Dim NbreXor As Long
If IsNull(Trousseau) Or IsNull(Clef) Then
IsClefOk = False
Else
NbreXor = Trousseau Xor (2 ^ Clef)
IsClefOk = NbreXor < Trousseau
End If
End Function
?
Bonjour et encore merci,
Voici le résultat de la quintessence de vos réponses:
CREATE FUNCTION 'F_IsBitOk'
(
@GroupeBits as INT,
@Pos as TINYINT
)
RETURNS BIT
AS
BEGIN
RETURN (select case when @GroupeBits & power(2,@Pos) = power(2,@Pos)
then 1 else 0 end )
END
Bonjour et encore merci,
Voici le résultat de la quintessence de vos réponses:
CREATE FUNCTION 'F_IsBitOk'
(
@GroupeBits as INT,
@Pos as TINYINT
)
RETURNS BIT
AS
BEGIN
RETURN (select case when @GroupeBits & power(2,@Pos) = power(2,@Pos)
then 1 else 0 end )
END
Bonjour et encore merci,
Voici le résultat de la quintessence de vos réponses:
CREATE FUNCTION 'F_IsBitOk'
(
@GroupeBits as INT,
@Pos as TINYINT
)
RETURNS BIT
AS
BEGIN
RETURN (select case when @GroupeBits & power(2,@Pos) = power(2,@Pos)
then 1 else 0 end )
END
Bonjour,
Toujours aussi débutant, je cherche à migrer une fonction VBA en TSQL
Et si je suis ici, c'est que je n'y arrive pas !
Principe : l'utilisateur possède un _trousseau_ (un entier long de 32 - 1
bits, équivalent à 31 clés) et face à une porte, teste si la _cle f_ est dans
le _trousseau_
Par exemple 546 | 5 => Vrai, mais 546 | 6 => Faux
Merci d'avance,
Albéric
«
Function IsClefOk(Trousseau As Long, Clef As Byte) As Boolean
Dim NbreXor As Long
If IsNull(Trousseau) Or IsNull(Clef) Then
IsClefOk = False
Else
NbreXor = Trousseau Xor (2 ^ Clef)
IsClefOk = NbreXor < Trousseau
End If
End Function
?
Bonjour,
Toujours aussi débutant, je cherche à migrer une fonction VBA en TSQL
Et si je suis ici, c'est que je n'y arrive pas !
Principe : l'utilisateur possède un _trousseau_ (un entier long de 32 - 1
bits, équivalent à 31 clés) et face à une porte, teste si la _cle f_ est dans
le _trousseau_
Par exemple 546 | 5 => Vrai, mais 546 | 6 => Faux
Merci d'avance,
Albéric
«
Function IsClefOk(Trousseau As Long, Clef As Byte) As Boolean
Dim NbreXor As Long
If IsNull(Trousseau) Or IsNull(Clef) Then
IsClefOk = False
Else
NbreXor = Trousseau Xor (2 ^ Clef)
IsClefOk = NbreXor < Trousseau
End If
End Function
?
Bonjour,
Toujours aussi débutant, je cherche à migrer une fonction VBA en TSQL
Et si je suis ici, c'est que je n'y arrive pas !
Principe : l'utilisateur possède un _trousseau_ (un entier long de 32 - 1
bits, équivalent à 31 clés) et face à une porte, teste si la _cle f_ est dans
le _trousseau_
Par exemple 546 | 5 => Vrai, mais 546 | 6 => Faux
Merci d'avance,
Albéric
«
Function IsClefOk(Trousseau As Long, Clef As Byte) As Boolean
Dim NbreXor As Long
If IsNull(Trousseau) Or IsNull(Clef) Then
IsClefOk = False
Else
NbreXor = Trousseau Xor (2 ^ Clef)
IsClefOk = NbreXor < Trousseau
End If
End Function
?
Bonjour,
Toujours aussi débutant, je cherche à migrer une fonction VBA en TSQL
Et si je suis ici, c'est que je n'y arrive pas !
Principe : l'utilisateur possède un _trousseau_ (un entier long de 32 - 1
bits, équivalent à 31 clés) et face à une porte, teste si la _cle f_ est dans
le _trousseau_
Par exemple 546 | 5 => Vrai, mais 546 | 6 => Faux
Merci d'avance,
Albéric
«
Function IsClefOk(Trousseau As Long, Clef As Byte) As Boolean
Dim NbreXor As Long
If IsNull(Trousseau) Or IsNull(Clef) Then
IsClefOk = False
Else
NbreXor = Trousseau Xor (2 ^ Clef)
IsClefOk = NbreXor < Trousseau
End If
End Function
?
Bonjour,
Toujours aussi débutant, je cherche à migrer une fonction VBA en TSQL
Et si je suis ici, c'est que je n'y arrive pas !
Principe : l'utilisateur possède un _trousseau_ (un entier long de 32 - 1
bits, équivalent à 31 clés) et face à une porte, teste si la _cle f_ est dans
le _trousseau_
Par exemple 546 | 5 => Vrai, mais 546 | 6 => Faux
Merci d'avance,
Albéric
«
Function IsClefOk(Trousseau As Long, Clef As Byte) As Boolean
Dim NbreXor As Long
If IsNull(Trousseau) Or IsNull(Clef) Then
IsClefOk = False
Else
NbreXor = Trousseau Xor (2 ^ Clef)
IsClefOk = NbreXor < Trousseau
End If
End Function
?
Bonjour,
Toujours aussi débutant, je cherche à migrer une fonction VBA en TSQL
Et si je suis ici, c'est que je n'y arrive pas !
Principe : l'utilisateur possède un _trousseau_ (un entier long de 32 - 1
bits, équivalent à 31 clés) et face à une porte, teste si la _cle f_ est dans
le _trousseau_
Par exemple 546 | 5 => Vrai, mais 546 | 6 => Faux
Merci d'avance,
Albéric
«
Function IsClefOk(Trousseau As Long, Clef As Byte) As Boolean
Dim NbreXor As Long
If IsNull(Trousseau) Or IsNull(Clef) Then
IsClefOk = False
Else
NbreXor = Trousseau Xor (2 ^ Clef)
IsClefOk = NbreXor < Trousseau
End If
End Function
?
Bonjour,
Toujours aussi débutant, je cherche à migrer une fonction VBA en TSQL
Et si je suis ici, c'est que je n'y arrive pas !
Principe : l'utilisateur possède un _trousseau_ (un entier long de 32 -1
bits, équivalent à 31 clés) et face à une porte, teste si la _clef_ est
dans le _trousseau_
Par exemple 546 | 5 => Vrai, mais 546 | 6 => Faux
Merci d'avance,
Albéric
«
Function IsClefOk(Trousseau As Long, Clef As Byte) As Boolean
Dim NbreXor As Long
If IsNull(Trousseau) Or IsNull(Clef) Then
IsClefOk = False
Else
NbreXor = Trousseau Xor (2 ^ Clef)
IsClefOk = NbreXor < Trousseau
End If
End Function
?
Bonjour,
Toujours aussi débutant, je cherche à migrer une fonction VBA en TSQL
Et si je suis ici, c'est que je n'y arrive pas !
Principe : l'utilisateur possède un _trousseau_ (un entier long de 32 -1
bits, équivalent à 31 clés) et face à une porte, teste si la _clef_ est
dans le _trousseau_
Par exemple 546 | 5 => Vrai, mais 546 | 6 => Faux
Merci d'avance,
Albéric
«
Function IsClefOk(Trousseau As Long, Clef As Byte) As Boolean
Dim NbreXor As Long
If IsNull(Trousseau) Or IsNull(Clef) Then
IsClefOk = False
Else
NbreXor = Trousseau Xor (2 ^ Clef)
IsClefOk = NbreXor < Trousseau
End If
End Function
?
Bonjour,
Toujours aussi débutant, je cherche à migrer une fonction VBA en TSQL
Et si je suis ici, c'est que je n'y arrive pas !
Principe : l'utilisateur possède un _trousseau_ (un entier long de 32 -1
bits, équivalent à 31 clés) et face à une porte, teste si la _clef_ est
dans le _trousseau_
Par exemple 546 | 5 => Vrai, mais 546 | 6 => Faux
Merci d'avance,
Albéric
«
Function IsClefOk(Trousseau As Long, Clef As Byte) As Boolean
Dim NbreXor As Long
If IsNull(Trousseau) Or IsNull(Clef) Then
IsClefOk = False
Else
NbreXor = Trousseau Xor (2 ^ Clef)
IsClefOk = NbreXor < Trousseau
End If
End Function
?