IBM Lotus Symphony
|
Devolve um valor de Data para um ano, mês ou dia especificado.
DateSerial (ano, mês, dia)
Data
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.
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