Hallo Fuerchau
Besten Dank für den TIPP
Über Nacht habe ich in "Grossmutters"-Query-Handbuch eine andere Lösung gefunden:

ZEICHDAT Digits(BAEJMT)
ZEICHDAT2 Substr(Zeichdat, 7, 2)!!'.'!!
Substr(Zeichdat, 5, 2)!!'.'!!
Substr(Zeichdat, 1, 4)
NEUDATUM Date(Zeichdat2)
DIFF CURRENT-NEUDATUM

Jetzt kann ich über DIFF die Daten miteinander vergleichen.

Gruss Rolf