Contingut

# Funció DateSerial

Returns a Date value for a specified year, month, and day.

### Sintaxi:

    DateSerial (any, mes, dia)

### Return type:

Data

### Paràmetres :

Any: Expressió d'enter que indica un any. Tots els valors entre 0 i 99 s'interpreten com els anys 1900-1999. Per als anys que cauen fora d'este interval, heu d'introduir els quatre dígits.

Mes: Expressió d'enter que indica el mes de l'any especificat. L'interval acceptat inclou de l'1 al 12.

Dia: expressió d'enter que indica el dia del mes especificat. L'interval acceptat és de l'1 al 31. No es retorna cap error si introduïu un dia no existent per a un mes de menys de 31 dies.

La funció DateSerial torna el nombre de dies entre el 30 de desembre de 1899 i la data determinada. Podeu utilitzar esta funció per calcular la diferència entre dues dates.

The DateSerial function returns the data type Variant with VarType 7 (Date). Internally, this value is stored as a Double value, so that when the given date is 1900-01-01, the returned value is 2. Negative values correspond to dates before December 30, 1899 (not inclusive).

Si es defineix una data que cau fora de l'interval acceptat, el LibreOffice Basic torna un missatge d'error.

Sempre que definiu la funció DateValue com a cadena que conté la data, la funció DateSerial avalua cada un dels paràmetres (any, mes, dia) com a expressions numèriques separades.

### Codis d'error

5 La crida al procediment no és vàlida

### Exemple :

      Sub ExampleDateSerial
      Dim lDate As Long
      Dim sDate As String
          lDate = DateSerial(1964, 4, 9)
          sDate = DateSerial(1964, 4, 9)
          Msgbox lDate ' retorna 23476
          MsgBox sDate ' returns 1964-04-09 in ISO 8601 format
      End Sub

Ens cal la vostra ajuda!