Função CInt

Converte qualquer cadeia ou expressão numérica num número inteiro.

Sintaxe:


CInt (Expressão como variante) como inteiro

Tipo de retorno:

Integer

Parâmetros:

Expressão: Qualquer expressão de cadeia de caracteres ou numérica que pretenda converter. Para converter uma expressão de cadeia de caracteres, o número deve ser introduzido como texto normal, utilizando o formato numérico predefinido das suas LibreOffice configurações regionais. Por exemplo, o número deve ser introduzido utilizando um ponto «.» como separador decimal e uma vírgula «,» como separador de milhares (por exemplo, 123,456.78) para as definições de localização em inglês.

Se o argumento for uma cadeia de caracteres, a função remove os espaços em branco no início; em seguida, tenta reconhecer um número nos caracteres seguintes. São reconhecidas as seguintes sintaxes:

O resto da cadeia de caracteres é ignorado. Se a cadeia de caracteres não for reconhecida, por exemplo, quando, após a remoção dos espaços em branco à esquerda, não começar por um sinal de mais, de menos, um algarismo decimal ou «&», ou quando a sequência após «&O» tiver mais de 11 caracteres ou contiver um carácter alfabético, o valor numérico da expressão é 0.

Se o argumento for um erro, o número do erro é utilizado como valor numérico da expressão.

Se o argumento for uma data, o número de dias desde 30-12-1899 (data serial) é utilizado como valor numérico da expressão. A hora é representada como uma fração de um dia.

Após calcular o valor numérico da expressão, este é arredondado para o número inteiro mais próximo (se necessário) e, se o resultado não estiver compreendido entre -32768 e 32767, o LibreOffice Basic apresenta um erro de transbordamento. Caso contrário, o resultado é devolvido.

Códigos de erro

5 Chamada de procedimento inválido

Exemplo:

As expressões numéricas são apresentadas de acordo com as definições regionais LibreOffice :


Sub ExampleCountryConvert
    MsgBox CDbl(1234,5678) ' 1234,5678
    MsgBox CInt(1234.5678) ' 1235
    MsgBox CLng(1234+5678) ' 6912
    MsgBox CSng(1234.5678) ' 1234.567749023

    MsgBox CDbl(expression := 5678.1234) ' 5678.1234
    MsgBox CInt(expression := 5678.1234) ' 5678
    MsgBox CLng(expression := 5678+1234) ' 6912
    MsgBox CSng(expression := 5678.1234) ' 5678.123535156
End Sub
Necessitamos da sua ajuda!

Necessitamos da sua ajuda!