DateFormula als Text ausgeben

Hallo, ich habe in einer table ein Code Feld mit der Eigenschaft DateFormula=Ja. Jetzt möchte ich den Inhalt dieses Feldes (z.B. 1T) als Klartext in einem Report ausgeben (z.B. 1 Tag). Geht das? Wenn ja, wie? Eberhard Kuhl

Ich glaube nicht, daß das ganze so einfach über eine Art FORMAT-Funktion möglich ist. Hier muss man wohl eine Art “Parser” einbauen: Kleines Beispiel für einfache Formeln mit definiertem Aufbau:

ParseDateFormula(DateFormular : Code[10]) Klartext : Text[30]
VarPeriodeLänge := COPYSTR(DateFormula, 1, 1);
VarPeriodeTyp := COPYSTR(DateFormula, 2, 1);
CASE VarPeriodeTyp OF
  'T' : VarPeriodeText := 'Tag';
  'W' : VarPeriodeText := 'Woche';
  'M' : VarPeriodeText := 'Monat';
  'Q' : VarPeriodeText := 'Quartal';
  'J' : VarPeriodeText := 'Jahr';
END;
Klartext := STRSUBSTNO('%1 %2', VarPeriodeLänge, VarPeriodeText);
EXIT(Klartext);

// Test
MESSAGE('%1', ParseDateFormula('1T'));
// Anzeige: "1 Tag"

Logisch: Je komplexer die Formeln sind, desto komplexer muss auch das “Parsen” geschehen! Gruß, Jörg Joerg A. Stryk Apollo-Optik, IT/ERP Edited by - stryk on 2002 Aug 07 11:06:41

Funktioniert! Vielen Dank!