sintassi:
DateSerial(anno, mese, giorno)
esempio: converto in data numero seriale un testo
trovadata = "17/12/1973"
DateSerial(Year(trovadata), Month(trovadata), Day(trovadata))
esempio: se la data nella variabile stringa é inferiore ad oggi
variabile = "17/12/1973"
If DateSerial(Year(variabile), Month(variabile), Day(variabile)) < Date Then ...
esempio: il 15 del mese e anno corrente
DateSerial(Year(Date), Month(Date), 15)