4D www.sviluppo4d.it - Conversione da esadecimale a decimale

Sviluppatori 4D

Utility 4D

A dog and his boy
lapd component
Aparajitaworld
Active4d, objecttools
BBSP
logTools, BBBase
BusinessKube
4D Job wallet
Hmplugins
Hmcal, Hmreports, Hfree
Internet Toolkit
Math4D
free math library
Nexid Web Service Server
Nufocus
OpenRoadDevelopment
CodeAnalysis free component
Orchard Software
win32api, resource editor
Pelican Engineering
EXT/JS appbuilder, Remoting
SGBD Products software
TransportX, 4diTools
Association Qualisoft
QS_Toolbox

Risorse 4D

4D Github
4D Pdo
4D Sources
4dgeek Github
tinynce, json editore
Bluecompany
Graph, Calendar
E-node
AreaList Pro, SuperReport Pro
Escape
qpix, DICOM Medical Viewer
Foundation Shell
Inforce
UpdateMaker, Inside4d, Zip4d
Keisuke Miyako
Microbizz
4D CAD plugin
Pluggers
ApiPack, PDFViewer, LDAP, MD5
Ronri-kobo
F-ab, JExternal

Naviga:

Titolo: Conversione da esadecimale a decimale

Categoria: Codice

Ultimo Aggiornamento: 10/11/09

Passando come parametro una stringa in forma esadecimale al seguente metodo, questo restituisce il valore decimale relativo:

C_TEXT($CifraEsadecimale_t;$tutteLeCifre_t;$1;$NumEsadecimale_t)
C_LONGINT($0;$posizione_l)
$0:=0
$tutteLeCifre_t:="0123456789ABCDEF"
$NumEsadecimale_t:=$1
While (Length($NumEsadecimale_t)>0)
          $CifraEsadecimale_t:=Substring($NumEsadecimale_t;0;1)
          $NumEsadecimale_t:=Substring($NumEsadecimale_t;2;Length($NumEsadecimale_t))
          $0:=$0*16
          $posizione_l:=Position($CifraEsadecimale_t;$tutteLeCifre_t)-1
          $0:=$0+$posizione_l
End while

Inviato da: PierPaolo Sichera

Visite: 27059


Umberto Migliore	06/09/05 00:00:00
Un altro sistema di conversione, che non sfrutta l'algoritmo ma un comando di 4D, è: C_LONGINT(var_l) EXECUTE("var_l:=0xAC8E")

PierPaolo Sichera	10/11/09 18:01:39
Con la v11 SQL il metodo deve essere corretto così: C_TEXT($CifraEsadecimale_t;$tutteLeCifre_t;$1;$NumEsadecimale_t) C_LONGINT($0;$posizione_l) $risultato:=0 $tutteLeCifre_t:="0123456789ABCDEF" $NumEsadecimale_t:=$1 While (Length($NumEsadecimale_t)>0) $CifraEsadecimale_t:=Substring($NumEsadecimale_t;1;1) $NumEsadecimale_t:=Substring($NumEsadecimale_t;2;Length($NumEsadecimale_t)) $risultato:=$risultato16 $posizione_l:=Position($CifraEsadecimale_t;$tutteLeCifre_t)-1 If ($posizione_l>=0) $risultato:=$risultato+$posizione_l End if* End while $0:=$risultato

Se accedi con utente e password, puoi aggiungere dei commenti.

4D Principali

4D Discussioni

Faq random

Crediti

Dominio registrato da ZetaNet
Sito realizzato da Nexus srl
4D SQL 11.9.0 offerto da 4D & Italsoftware
Icone di FAMFAMFAM
Moderato da Umberto Migliore
329 utenti registrati

User:
Pass:	Accedi