IBM Lotus Symphony
|
Retorna um valor Date para um ano, mês ou dia especificado.
DateSerial (year, month, day)
Data
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.
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