{your_numeric_column} = cdbl(ToText(currentdate - 1, 'yyyyMMdd'))
↧
{your_numeric_column} = cdbl(ToText(currentdate - 1, 'yyyyMMdd'))