ReplaceDate

Verweis:	ReplaceTime
Uses:	SysUtils
Eingabe:	Datum+Zeit(TDateTime),NeuesDatum(TDateTime)
Ausgabe:	Neues Datum + Alte Zeit(TDateTime)
Funktion:	Ersetzt in einer Datums-Zeit-Variablen, das Datum

Beispiel 1

Vorbereitung: Erstellen sie eine IDE Anwendung und ziehen Sie einen TButton auf die Form. Doppelklicken sie auf den Button und ersetzen Sie das Ereignis durch folgenden Quelltext:

procedure TForm1.Button1Click(Sender: TObject);
var
  Teststing: string;
  Datum: TDateTime;
begin
  Teststing := '14.07.2020 16:00';
  //Lese den String in ein Datumsformat
  Datum := StrToDateTime(Teststing);
  //Zeige das Datum und die Zeit an
  ShowMessage('Altes Datum alte Zeit: ' + DateTimeToStr(Datum));
  //Wir bekommen einen Anruf der Termin muss
  //aus geschäftlichen Gründen verschoben werden. Zeit bleibt.
  ReplaceDate(Datum, StrToDate('21.07.2020'));
  ShowMessage('Neues Datum alte Zeit: ' + DateTimeToStr(Datum));
end;

Der Befehl ReplaceDate ersetzt, wie der Name schon sagt, ein altes Datum mit einer alten Zeit gegen ein neues Datum mit einer alten Zeit. Das Termindatum wird verschoben aber der Termin bleibt. Es soll ja Leute geben die nur Abends können. Also wird in dem Beispiel ein bestehendes Datum durch ein neues ersetzt, ohne die alte Zeit (16:00) Uhr zu überschreiben.