IBM Lotus Symphony


Função DateSerial [Runtime]

Devolve um valor de Data para um ano, mês ou dia especificado.

Sintaxe:

DateSerial (ano, mês, dia)

Valor de retorno:

Data

Parâmetros:

Ano: Expressão de números inteiros que indica um ano. Todos os valores entre 0 e 99 são interpretados como os anos 1900-1999. No caso dos anos fora deste intervalo, terão de ser inseridos quatro dígitos.

Mês: Expressão de números inteiros que indica o mês do ano especificado. O intervalo aceite é de 1-12.

Dia: Expressão de números inteiros que indica o dia do mês especificado. O intervalo aceite é de 1 a 31. Não é devolvido qualquer erro se introduzir um dia não existente para um mês com menos de 31 dias.

A função DateSerial devolve o número de dias entre 30 de Dezembro de 1899 e a devida data. É possível utilizar esta função para calcular a diferença entre duas datas.

A função DateSerial devolve o tipo de dados Variant com VarType 7 (Data). Internamente, este valor é armazenado como um valor duplo, para que quando a data for 1.1.1900, o valor de retorno seja 2. Os valores negativos correspondem a datas antes de 30 de Dezembro de 1899 (não inclusive).

Se for definida uma data que se encontre fora do intervalo aceite, o Lotus® Symphony™ Basic devolve uma mensagem de erro.

Enquanto que pode definir a função DateValue como uma cadeia que contém a data, a função DateSerial calcula cada um dos parâmetros (ano, mês, dia) como expressões numéricas separadas.

Códigos de erro

5 Chamada de procedimento não válido

Exemplo:

Sub ExampleDateSerial

Dim lDate as Long

Dim sDate as String

lDate = DateSerial(1964, 4, 9)

sDate = DateSerial(1964, 4, 9)

msgbox lDate REM returns 23476

msgbox sDate REM returns 04/09/1964

end sub


Comentários sobre o produto | Documentação adicional | Marcas comerciais