IBM Lotus Symphony


Função DateSerial [Tempo de Execução]

Retorna um valor Date para um ano, mês ou dia especificado.

Sintaxe:

DateSerial (year, month, day)

Valores de Retorno:

Data

Parâmetros:

Year: Expressão inteira que indica um ano. Todos os valores entre 0 e 99 são interpretados como os anos 1900-1999. Para os anos que estiverem fora desse intervalo, você deverá inserir os quatro dígitos.

Month: Expressão inteira que indica o mês do ano especificado. O intervalo aceito é de 1 a 12.

Day: Expressão inteira que indica o dia do mês especificado. O intervalo aceito é de 1-31. Nenhum erro será retornado quando você inserir um dia inexistente para um mês com menos de 31 dias.

A Função DateSerial retorna o número de dias entre 30 de dezembro de 1899 e a data fornecida. É possível usar essa função para calcular a diferença entre duas datas.

A função DateSerial retorna o tipo de dados Variante com VarType 7 (Data). Internamente, esse valor é armazenado como um valor Duplo, para que quando a data fornecida for 1.1.1900, o valor retornado seja 2. Os valores negativos correspondem às datas antes de 30 de dezembro de 1899 (não inclusivo).

Se for definida uma data que esteja fora do intervalo aceito, o Lotus® Symphony™ Basic retornará uma mensagem de erro.

Considerando que você defina a função DateValue como uma sequência que contenha a data, a função DateSerial avaliará cada um dos parâmetros (year, month, day) como expressões numéricas separadas.

Códigos de Erro

5 Chamada de procedimento inválida

Exemplo:

Sub ExampleDateSerial

Dim lDate as Long

Dim sDate as String

lDate = DateSerial(1964, 4, 9)

sDate = DateSerial(1964, 4, 9)

msgbox lDate REM retorna 23476

msgbox sDate REM retorna 09/04/1964

end sub


Feedback do Produto | Documentação Adicional | Marcas Registradas