Turbo Basic - ayuda por fa

Hola a todos ocupo que alguien me diga como le ago para tomar los datos de la fecha

dia, mes y año como un numero en una variable para utilizarlas de forma indibidual.

Supongo que es esto lo que buscas;

Dia%=val(mid$(date$,4,2))
Mes%=val(left$(date$,2))
Anio%=val(right$(date$,4))

Un saludo