Dann mach es mit %editw:
EHS1BEL = %Date(%EditW(kd1bel:'0____-__-__'):*ISO)