In Query etwas komplizierter:
1. ISO-Datum generieren
DBEST = substr(digits(bestdat), 1, 4) !! '-' !! substr(digits(bestdat), 5, 2) !! '-' substr(digits(bestdat), 7, 2)

datebest = date(dbest)
vgldate = date(days(current(date)) - 1)