Interno formatar de CURRENCY tipo de dados nos produtos de base

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine translation ou MT), não tendo sido portanto revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática… erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes ao software de tradução automática (MT). Obrigado.

51414
Este artigo foi arquivado. Este artigo é oferecido "tal como está" e deixará de ser actualizado.
Sumário
O tipo de dados CURRENCY é um inteiro assinado de 8 bytes dimensionado de 10.000. Isto permite que uma variável do tipo CURRENCY para que um intervalo de:
   (2 ^ 63 -1) / 10,000  =  +922337203685477.5807				
para
   (2 ^ 63) / 10,000   =  -922337203685477.5808				
para cima para 19 dígitos são permitidas, com mais de 4 dígitos à direita da vírgula decimal.
Mais Informação
Uma vez que o tipo CURRENCY é dimensionado por 10.000, respectiva representação interna é o valor real multiplicado 10.000. Por exemplo, uma variável CURRENCY mantendo o valor 0,0001 será armazenada da seguinte forma:
HIGH BYTE                                                     LOW BYTE00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000001				
como com números inteiros normais, o byte mais elevado é armazenado no endereço de memória superior para que uma vez localizar o endereço da variável, encontrará aí o byte baixo, o segundo byte armazenados acima, o terceiro byte acima que, etc.. O programa de exemplo listados abaixo apresenta a representação hexadecimal do computador para uma variável de tipo de dados CURRENCY cujo valor é INPUT a partir do teclado.

Código de exemplo:
'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)                  *'******************************************************************CLSDO 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"  SLEEPLOOP				
VBmsdos QuickBas BasicCom 1.00 4.00 4.00b 4.50 7,00 7.10

Aviso: Este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 51414 - Última Revisão: 02/09/2014 13:03:40 - Revisão: 2.1

  • Microsoft Visual Basic for MS-DOS
  • Microsoft Visual Basic 1.0 Standard Edition
  • Microsoft QuickBasic 4.0
  • Microsoft QuickBASIC 4.0b
  • Microsoft QuickBasic 4.5 para MS-DOS
  • Microsoft BASIC Professional Development System 7.0
  • Microsoft BASIC Professional Development System 7.1
  • kbnosurvey kbarchive kbmt KB51414 KbMtpt
Esta informação foi útil?