Datum in Turbo Pascal verarbeiten

wenns keinen gibt, dann must Du Dir eine Prozedur oder Funktion selber schreiben. Lass Dir das Datum einfach als Text übermitteln und klamüser Dir dann die einzelnen Daten raus:

Function getDay(Datum: String):Integer
var Tag : String;
begin
  Tag := Datum[0] + Datum[1];
  // Datum[0] gibt das erste Zeichen im String zurück
  // Datum[1] gibt das zweite Zeichen im String zurück
end;

musst allerdings noch den Fehler abfangen, falls das Datum nicht richtig eingegeben wurde, also jemand wirklich Grütze eingegeben hat.

Ist vielleicht nicht ganz elegant die Variante, aber sie funktioniert :-)

mfg maddin