Format de devises donn�es type interne des produits de base

Num�ro d'article: 51414 - Voir les produits auxquels s'applique cet article

ATTENTION : Cet article est issu du syst�me de traduction automatique

Cliquez ici si vous souhaitez afficher en c�te � c�te l?article anglais et sa traduction automatique en fran�ais

Exclusion de responsabilit� concernant les contenus obsol�tes dans la Base de connaissances

Agrandir tout | R�duire tout

R�sum�

Le type de donn�es CURRENCY est un entier sign� de 8 octets mis � l'�chelle par 10 000. Cela permet une variable du type devises pour une plage de :

   (2 ^ 63 -1) / 10,000  =  +922337203685477.5807

�

   (2 ^ 63) / 10,000   =  -922337203685477.5808

� 19 chiffres sont autoris�s, avec plus de 4 chiffres � droite du s�parateur d�cimal.

�tant donn� que le type de devises est mis � l'�chelle par 10 000, sa repr�sentation interne est la valeur r�elle multipli�e par 10 000. Par exemple, une variable de devises contenant la valeur 0,0001 sera stock�e comme suit :

HIGH BYTE                                                     LOW BYTE
00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000001

comme avec les entiers ordinaires, l'octet sup�rieur est stock� � l'adresse m�moire sup�rieure retrouver une fois l'adresse de la variable, vous trouverez l'octet bas il, le second octet stock�es ci-dessus, la troisi�me octet au-dessus qui, etc.. Le programme d'exemple r�pertori�es ci-dessous affiche la repr�sentation hexad�cimale machine pour une variable de type de donn�es CURRENCY dont la valeur est INPUT � partir du clavier.

Exemple de code :

'To try this example in VBDOS.EXE:
' 1. From the File menu, choose New Project.
' 2. Copy the code example to the Code window.
' 3. Press F5 to run the program.
'
'To try this example in VB.EXE:
' 1. From the File menu, choose New Project.
' 2. Copy the code example to Form_Click event procedure.
'    (Note: code will have to be slightly changed for VB)
' 3. Press F5 to run the program.
' 4. Click on the Form
'
'To try this example in QB.EXE or QBX.EXE
' 1. From the File menu, choose New Program.
' 2. Copy the code example to the Code window.
' 3. Press F5 to run the program.
'
'******************************************************************
'     Sample program to display machine representation of the     *
'     CURRENCY data type (8-byte scaled INTEGER)                  *
'******************************************************************
CLS
DO UNTIL INKEY$ = CHR$(27)
  PRINT "Enter a CURRENCY value.  The machine representation will be "
  PRINT "displayed in Hex"
  INPUT a@                   ' "@" is the CURRENCY data type suffix.
  address% = VARPTR(a@)      ' Get the address of the variable a@.

  FOR i% = 7 TO 0 STEP -1
     PRINT HEX$(PEEK(address% + i%)); "  ";  ' Display representation
  NEXT i%                                    ' in normal Low-Byte to
                                             ' the right form.
  PRINT
  PRINT "press a key to continue, Esc to EXIT"
  SLEEP
LOOP

Propri�t�s

Num�ro d'article: 51414 - Derni�re mise � jour: mardi 16 ao�t 2005 - Version: 2.1

Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):

Microsoft Visual Basic for MS-DOS
Microsoft Visual Basic 1.0 �dition Standard
Microsoft QuickBasic 4.0
Microsoft QuickBASIC 4.0b
Microsoft QuickBasic 4.5 pour MS-DOS
Microsoft BASIC Professional Development System 7.0
Microsoft BASIC Professional Development System 7.1

kbmt KB51414 KbMtfr

Traduction automatique

IMPORTANT : Cet article est issu du syst�me de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d?articles obtenus par traduction automatique sont en effet mis � votre disposition en compl�ment des articles traduits en langue fran�aise par des traducteurs professionnels. Cela vous permet d?avoir acc�s, dans votre propre langue, � l?ensemble des articles de la base de connaissances r�dig�s originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne �trang�re s?exprimant dans votre langue !). N�anmoins, mis � part ces imperfections, ces articles devraient suffire � vous orienter et � vous aider � r�soudre votre probl�me. Microsoft s?efforce aussi continuellement de faire �voluer son syst�me de traduction automatique.

La version anglaise de cet article est la suivante: 51414

(http://support.microsoft.com/kb/51414/en-us/ )

L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Exclusion de responsabilit� concernant les contenus obsol�tes dans la Base de connaissances

Cet article concerne des produits pour lesquels Microsoft n'offre plus de support. Il est par cons�quent fourni � en l'�tat � et ne sera plus mis � jour.