Prima di leggere la tua risposta avevo scritto questo:

CLS
DIM giorno AS STRING
DIM numerico AS INTEGER
word$ = DATE$
giorno = MID$(word$, 4, 2)
PRINT giorno
numerico = VAL(giorno)
PRINT numerico
ieri = numerico - 1
PRINT ieri

Ecco...funziona ma a video compare così:

17
17
16


Perchè gli spazi??