Datum hochrechnen

[superstar025]

gibt es in Delphi die Möglichkeit das maximale Datum aus einer Tabelle heraus zu holen und dort dann einen zusätzlichen tag drauf zu rechnen.

beispiel

Datenbank 15.06.2004
Delphi angezeigt 16.06.2004 (maskeditfeld)

mfg
superstar025

[alcaeus]

Hi superstar025!

Du kannst das Datum mit StrToDate in einen TDateTime umrechnen, 1 dazuzählen und anschließend mit DateToStr wieder in einen String umwandeln.

Greetz
alcaeus

[add]Wie du das Datum aus der Datenbank auslesen kannst weißt du hoffentlich [/add]

[superstar025]

ja das höchste datum aus einer datenbank auslesen kann ich

kann ich das denn überhaupt in ein maskeditfeld schreiben??
ja oder??

wie sieht das denn im quellcode aus das mit dem einen tag drauf rechen usw.

[alcaeus]

Hi superstar025!

Nehmen wir an, das Datum läge in einer String-Variable namens "Datum"

MaskEdit1.Text := DateToStr(StrToDate(Datum)+1); Evtl. habe ich ein paar Parameter bei den Funktionen vergessen, ich habe die Deklarationen zur Zeit nicht im Kopf. Aber das Prinzip dürfte verständlich sein.

Greetz
alcaeus

[ZeroQool007]

Wenn ich zB das heutige Datum nehme: "08.12.2004"
Wie habe ich die Möglichkeit, dass er es mir zB in einem Label als: "20041208" anzeigt?! Habe es bereits über die Suchfunktion versucht, aber nichts passendes gefunden! Danke im voraus


cu

[Steve]

Hi,

schau Dir mal FormatDateTime an

Gruß
Stephan

[ZeroQool007]

Danke für die schnelle Antwort! Habe ich bereits gemacht, aber

s := FormatDateTime('yyyy,mmmm,dddd');

Zitat:

[Fehler] Test.pas(58): Es gibt keine überladene Version von 'FormatDateTime', die man mit diesen Argumenten aufrufen kann

Der Quellcode ist doch richtig oder?! :/

[shmia]

Zitat von superstar025:

gibt es in Delphi die Möglichkeit das maximale Datum aus einer Tabelle heraus zu holen und dort dann einen zusätzlichen tag drauf zu rechnen.
Datenbank 15.06.2004
Delphi angezeigt 16.06.2004 (maskeditfeld)

Ein MaskEditFeld ist das falsche Steuerlement; nimm TDateTimePicker!!
Damit wird's ganz einfach:
  DateTimePicker1.Date := Tabelle1.FieldByName('MaxDatum').AsDateTime + 1.0;

[Steve]

Zitat von ZeroQool007:

s := FormatDateTime('yyyy,mmmm,dddd'); Der Quellcode ist doch richtig oder?! :/

Leider nicht, denn Du sagst ja nicht, welche/s Zeit/Datum formatiert werden soll

Delphi-Hilfe:

FormatDateTime formatiert einen Wert des Typs TDateTime (DateTime). Dabei wird das mit Format angegebenen Format verwendet. Weitere Informationen hierzu finden Sie unter Datums- und Zeitformat-Strings function FormatDateTime(const Format: string; DateTime: TDateTime): string; overload;

Gruß
Stephan

[ZeroQool007]

Irgendwie klappt das immer noch nicht! Wie sieht denn in dem Fall der richtige SourceCOde aus?! Thx nochmal