J'ai une valeur de type Long et je dois faire un
complément à deux.
Explication de ce que je dois effectuer :
Ma valeur de Longitude = 446.0949 E
C'est une valeur fausse car une longitude ne dépasse pas 180 °.
Pour recuperer la bonne valeur je dois effectuer le calcule suivant :
446.0949 * 10000 *60 = 267656940 (décimal)
avec la foncion Hex() j'en deduis la valeur FF41EEC
Je dois faire maintenant un complement à deux de cette valeur :
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Bouba 85
Dim maxpower As Integer 'Nombre de Bit que tu veux Dim x As Long Dim bin As string For i = maxpower To 0 Step -1 If x And (2 ^ i) Then bin = bin + "1" Else bin = bin + "0" End If Next Et Bin est ta valeur Binaire en chaine de caractere
Dim maxpower As Integer 'Nombre de Bit que tu veux
Dim x As Long
Dim bin As string
For i = maxpower To 0 Step -1
If x And (2 ^ i) Then
bin = bin + "1"
Else
bin = bin + "0"
End If
Next
Et Bin est ta valeur Binaire en chaine de caractere
Dim maxpower As Integer 'Nombre de Bit que tu veux Dim x As Long Dim bin As string For i = maxpower To 0 Step -1 If x And (2 ^ i) Then bin = bin + "1" Else bin = bin + "0" End If Next Et Bin est ta valeur Binaire en chaine de caractere