Nicht viel:

eval Datumchar = %editw(Tag * 1000000 + Monat * 10000 + Jahrhundert * 100 + Jahr:'00000000')