Autor Beitrag
Bronstein
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 578
Erhaltene Danke: 1

WIN XP
Delphi 6 / Delphi 2006 / Delphi XE
BeitragVerfasst: Mo 19.06.06 13:06 
Ich habe eine Stringvariable in der ich ein Datum stehen habe (dd.mm.yyyy). Hat jemand eine Funktion mit der ich dieses Datum um einen Tag erhöhen kann.

Oder muss ich das selbst Programmieren unter Berücksichtigung der Monats- und Jahreswechsel.

Danke

_________________
Es gibt keine dummen Fragen nur dumme Antworten!!!
jasocul
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 6395
Erhaltene Danke: 149

Windows 7 + Windows 10
Sydney Prof + CE
BeitragVerfasst: Mo 19.06.06 13:10 
Mache daraus ein Datums-Typ und addiere 1.
TDate ist nichts anderes als ein Double.
Vor dem Komma ist das Datum "versteckt" und nach dem Komma die Zeit. Wen du also eins addierst, bekommst du den nächsten Tag.
Grendel
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 443

Gentoo Linux, MacOS X, Win 2000
D5 Ent, D7 Ent, Lazarus, Anjuta, MonoDevelop
BeitragVerfasst: Mo 19.06.06 13:10 
IncDay() ist in DateUtils definiert.

Bis neulich ...

edit: Ups. Hatte das "Stringvariable" übersehen :(


Zuletzt bearbeitet von Grendel am Mo 19.06.06 13:11, insgesamt 1-mal bearbeitet
ZeitGeist87
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 1593
Erhaltene Danke: 20

Win95-Win10
Delphi 10 Seattle, Rad Studio 2007, Delphi 7 Prof., C++, WSH, Turbo Pascal, PHP, Delphi X2
BeitragVerfasst: Mo 19.06.06 13:10 
ganz einfach =)

entweder so

ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
var datum: TDate;
begin;
 datum:= strtodate(meineDatumImString);
 datum:= datum + 1; //um einen Tag erhöht
 //mit datetostr(datum) kannst du dein Datum wieder in deinen String speichern;
end;


oder so

ausblenden Delphi-Quelltext
1:
2:
3:
begin;
 StringDatum:= datetostr(strtodate(StringDatum)+1);
end;


lg
stefan

_________________
Wer Provokationen, Ironie, Sarkasmus oder Zynismus herauslesen kann soll sie ignorieren um den Inhalt meiner Beiträge ungetrübt erfassen zu können.
Bronstein Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 578
Erhaltene Danke: 1

WIN XP
Delphi 6 / Delphi 2006 / Delphi XE
BeitragVerfasst: Mo 19.06.06 13:44 
Super,
vielen Dank

_________________
Es gibt keine dummen Fragen nur dumme Antworten!!!