Datum als int DDMMYYYY ausgeben

[sneumann]

ich versuche das heutige Datum folgendermaßen auszugeben
DDMMYYYY ohne , . dazwischen, also als INT:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  Present: TDateTime;
  Year, Month, Day, Word;
 begin
  Present:= Now;
  SysUtils.DecodeDate(Present, Year, Month, Day);
  end;

Edit2.Text := IntToStr(Day) + IntToStr(Month) + InTtoStr(Year);

habe ein kleines Edit2. - fenster wo ich dann das Datum in folgender Form haben will: DDMMYYYY
bei mir steht beim ausführen jedoch in dem kleinen Fenster nur 004096
DAY hat wert 0 , MONTH den wert 0 und YEar den wert 4096, WARUM ? ? was mach ich falsch?

was hat es mit dem Word auf sich?
habe den code zum teil von http://docwiki.embarcadero.com/CodeE...e_%28Delphi%29

[espen]

Hallo,

wie wäre es mit

Edit1.Text := formatdatetime('ddmmyyyy', (now));
Gruss

[DeddyH]

Ginge das mit FormatDateTime nicht einfacher?
Edit1.Text := FormatDateTime('ddmmyyyy', now); [edit] Mist, zu spät [/edit]

[Bernhard Geyer]

Kleine Bitte: Nimm als Format YYYYMMDD. Diese Format ohne Trennzeichen wird also ISO-Datumformat verwendet. Wenn jetzt auch noch dein Format als kurzformat verwendet wird kann man bald gar nix mehr bezüglich datum verstehen. Es reicht schon das die deutsche Datumsreihenfolge Tag-Monat-Jahr schon mit Bindestrich verwendet wird.

Machs besser so:

Edit2.Text := FormatDateTime('YYYYMMDD', Now); um eine korrekte Ausgabe nach den ISO-Regeln zu bekommen.

[sneumann]

Zitat von espen:

Hallo,

wie wäre es mit

Edit1.Text := formatdatetime('ddmmyyyy', (now));
Gruss

Dankeschön hat wunderbar geholfen!!
So jetzt möchte ich gerne
Das Datum folgender maßen ausgeben: DDMMYYLV

YY steht für 11 (in2011 im heutigem datum) und LV für Laufvariable beginned mit 01 zum Beispiel, wie realisiere ich das?
also damit dann sozusagen jedes mal das Datum 04101101 nächsten tag 05101102 nächsten tag 06101103 geschrieben wird in Edit.Text1

[webcss]

Edit1.Text := formatdatetime('ddmmyy', (now))+FormatFloat('00', LV);

[sneumann]

Zitat von webcss:

Edit1.Text := formatdatetime('ddmmyy', (now))+FormatFloat('00', LV);

muss bei dir LV noch vorher deklariert sein!?

geht es auch so?

Code:

Edit2.Text := formatdatetime('ddmmyy', (now)) + '00';

weil bei mir hat er es so auch gemacht!?
Eigentlich müsste es auch so gehen weil die laufvariable wird sowieso jeden tag wieder auf 00 gesetzt und läuft nur einen Tag weiter. Dann wieder 00. Und das weiterlaufen kann man selber anklicken daher ist glaub ich meine Frage damit beendet

[himitsu]

Abgesehn vom FormatDateTime, nochmal zum ursprünglichen Problem.

Zitat von sneumann:

bei mir steht beim ausführen jedoch in dem kleinen Fenster nur 004096
DAY hat wert 0 , MONTH den wert 0 und YEar den wert 4096, WARUM ? ? was mach ich falsch?

Ja und wo hast du dein Edit2.Text := IntToStr(Day) + IntToStr(Month) + InTtoStr(Year); denn stehn?

Jedenfalls nicht in der Button1-Klickmethode. (dort wo deine Variablen deklariert sind)

Fazit: Dein Code nutzt nicht diese Variablen, sondern irgendwas Anderes.



Ach ja, IntToStr kennt keine führenden Nullen. Wenn, dann über

Zitat:

Format

und wie man die führenden Nullen einstellt, steht in der OH.

Oder Mathematisch: Edit2.Text := IntToStr(Day * 1000000 + Month * 10000 + Year); , wobei du hier auch aufpassen mußt, da ja dennoch eine 0 fehlen kann, wenn Day < 10.

[p80286]

Zitat von sneumann:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  Present: TDateTime;
  Year, Month, Day, Word;
 begin
  Present:= Now;
  SysUtils.DecodeDate(Present, Year, Month, Day);
  end;

Edit2.Text := IntToStr(Day) + IntToStr(Month) + InTtoStr(Year);

a) das kann nicht compiliert werden wg. "Year, Month, Day, Word;"

Zitat von sneumann:

was hat es mit dem Word auf sich?

b) wenn Du es richtig gemacht hättest "Year, Month, Day: Word;", dann wäre doch wohl klar gewesen, das Word einen Typen bezeichnet!?

Gruß
K-H