Datum bekommen aber wie!

[jonsen2.0.0.9]

Hallo,

so hab volgendes Problem bei dem ihr mir hoffentlich weiter helfen könnt.

Ich möchte unten in der Ecke bei meinem Programm das Datum...die Uhrzeit hab ich schon.

Wie kann ich hier das datum bekommen? Ausgeben geht ja mit

Delphi-Quellcode:

Label2.caption:=DateToStr()

aber wie Bekommt man das datum?

und wie kann ich das so formatieren das ich nur tag und monat z.B. in einer if bedingung vergleichen kann:

Delphi-Quellcode:

if ???=24.12 then
       Label3.caption:='Frohe weihnachten'

so was z.B.

wäre toll wenn ihr mir da helfen könnt!


DANKE SCHON MAL

[Matze]

Hallo,

das Datum erhälst du genauso wie die Zeit:

Delphi-Quellcode:

DateToStr(Now) // Zeit: TimeToStr(Now)

Zum Zerlegen der Zahlen kannst du dir DecodeDateTime bzw. EncodeDateTime ansehen.

Grüße, Matze

[himitsu]

z.B. mit DecodeDate oder FormatDateTime

[jonsen2.0.0.9]

sorry geht iwi net:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
Var i:TDateTime;
begin
i:=GetTime ;
Label1.Caption:=TimeToStr(i);
Label2.Caption:=DateToStr(i);
end;

so sieht der code aus und das datum is 30.12.1899 also irgendwie falsch...meine uhr am pc is richtig und zeitzne is richtig eingestellt....


und auf der seite ist fürs formatieren d und m aber da steht immer :

[Fehler] Unit1.pas(99): Undefinierter Bezeichner: 'd'

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
Var i:TDateTime;
begin
i:=GetTime;
Label3.caption:=formatdatetime(d:m,i);
end;

[patti]

Nimm doch statt GetTime einfach Now, so wie es oben bereits berschrieben wurde.

[haentschman]

versuch mal i:= Now

:evil: zu spät

[Jens Hartmann]

Hallo,

so müsste es funktionieren..

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);  
begin 
Label1.Caption:=TimeToStr(Now); 
Label2.Caption:=DateToStr(Now); 
end;

Gruß Jens

[jonsen2.0.0.9]

d weiss der nich was dat is...(siehe oben im beitrag)

auch da steht iwi immer 30.12.1899 WIESO?

[himitsu]

Zitat:

Zitat von jonsen2.0.0.9

d weiss der nich was dat is...(siehe oben im beitrag)

Dieses ist ein Stringparameter, also gib deinen Format-String auch als String an.

Zitat:

Zitat von jonsen2.0.0.9

auch da steht iwi immer 30.12.1899 WIESO?

Ließ mal in der OH nach, was da zu TimeToStr und DateToStr steht.
Diese geben das DAtum oder die Zeit in dem Format an, welches für das System (in Windows) eingestellt ist.

[haentschman]

OT:

iwi :gruebel:

man macht sich ja schlau :zwinker:
http://de.wikipedia.org/wiki/iwi

[ironie aus]

[jonsen2.0.0.9]

iwi is eigentlich irgendwie...XD

[SirThornberry]

eben nicht. Man wollte dich darauf hinweisen das es zu weniger Missverständnissen, Schmunzeln etc. kommt wenn sich die Leute Zeit nehmen und ihre Beiträge verständlich schreiben (ohne vergessene Buchstaben in Titeln (siehe anderes Thema von dir) etc.).
Je mehr man sich an die deutsche Rechtschreibung und Grammatik hält, je besser ist zu erkennen was der Verfasser eines Beitrages den Anderen damit sagen will.
Und um ehrlich zu sein habe ich bei folgendem Beitrag von dir überhaupt nicht verstanden was du damit sagen willst:

Zitat:

d weiss der nich was dat is...(siehe oben im beitrag)

auch da steht iwi immer 30.12.1899 WIESO?

Und je mehr Leuten es wie mir geht, destso weniger können dir helfen (weil sie die Fragen/Aussagen nicht verstehen).

[jonsen2.0.0.9]

ok dann entschuldige ich mich dafür und bessere mich.

mit dem meinte ich :

Delphi weiss nicht was das d in dem format das ich haben wollte ist...obwohl auf der seite zu der der link ist stand das das d für den tag onhe 0 steht (1-31) nicht (01-31).

[haentschman]

Zitat:

...und bessere mich.

...da bitte(n) ich (wir) drum. :zwinker: Denk auch mal an die Suchfunktion, welche nichts finden wird wenn alle im Slang schreiben.

zum Thema:

Zitat:

function FormatDateTime(const Format: string; DateTime: TDateTime): string; overload;

das Format ist vom Typ String

Fällt dir nun auf, was falsch ist und warum er d nicht kennt ?

Delphi-Quellcode:

formatdatetime(d:m,i);

Delphi-Quellcode:

formatdatetime('d:m',i);

[Matze]

Zitat:

Zitat von jonsen2.0.0.9

Delphi weiss nicht was das d in dem format das ich haben wollte ist...obwohl auf der seite zu der der link ist stand das das d für den tag onhe 0 steht (1-31) nicht (01-31).

Noch eine bessere Grammatik würde ich mich noch von dir wünschen. ;)

Delphi weiß nicht, was das "d" in meinem Formatparameter ist. Obwohl auf der Seite mit dem Link stand, dass "d" für den Tag ohne führende Null steht ...

o.ä.

Also schaue dir mal die Funktionsdeklaration an:

Delphi-Quellcode:

function FormatDateTime(const Format: string; DateTime: TDateTime): string; overload;

Das Format ist demnach als String zu übergeben. Natürlich erkennt Delphi das von dir nicht:

Delphi-Quellcode:

formatdatetime(d:m,i); // du übergibst hier KEINEN String

So geht es:

Delphi-Quellcode:

FormatDatetTme('d:m',i);

Grüße, Matze

[jonsen2.0.0.9]

Ahhhhh,


danke an alle.

Funktioniert jetzt.

Und ihr habt Recht...mit

Delphi-Quellcode:

label1.caption:=DatetoStr(Now)

funktioniert alles perfect....DANKE

[hoika]

Hallo,

Zitat:

30.12.1899

Zur Erklärung:
Das ist der Wert 0.0 eines TDateTime als Datumswert.


Heiko