Datum umwandeln..

[Metallicwar]

Uff ^^
das mit dem Format, peil ich schon nicht...
war auf http://www.delphibasics.co.uk/RTL.asp?Name=Format und hab da nochmal gekuckt, aber dort werden keine Datumsdatentypen aufgelistet ?!?
d = Decimal (integer)
e = Scientific
f = Fixed
g = General
m = Money
n = Number (floating)
p = Pointer
s = String
u = Unsigned decimal
x = Hexadecimal

Also erst die Parameter mit Format füllen (was ich nicht verstehe) ^^ und dann eben diese zwei Parameter über DateToStr und EncodeDate befüllen?!?
Vll nen kleines Beispiel, an dem ich mich orientieren kann?

[Whookie]

Such mal nach FormatDateTime (SysUtils) in Deiner lokalen Hilfe ...

[mkinzler]

Das sind 2 Dinge; Format für Anzeigestrings und der Parameter bei SQL-Abfragen

Delphi-Quellcode:

var 
    von, bis: TDate;
...
  von := EcodeDate( jahr, 1, 1);
  bis := EncodeDate ( Jahr, 12, 31);
  ...
  anzeige := 'Von ' + FormatDateTime( 'dd.mm.yyyy', von) + ' bis ' + FormatDateTime( 'dd.mm.yyyy', bis);

  qJahresplan.SQL.Text := 'INSERT INTO Jahresplan (Startdatum, Enddatum) VALUES ( :start, :ende)';
  qJahresplan.ParamByName('start').Value := von;
  qJahresplan.ParamByName('end').Value := bis;
  ...

[himitsu]

Delphi-Quellcode:

SDatumVon := 'von ';
SDatumBis := ' bis ';
Anzeige := SDatumVon + DateToStr(von) + SDatumBis + DateToStr(bis);


SDatum := 'von %s bis %s';
Anzeige := Format(SDatum, [DateToStr(von), DateToStr(bis)]);

So schwer ist ds doch eigentlich nicht?

[Metallicwar]

Delphi-Quellcode:

const
  SDatumVon = '01.01.';
  SDatumBis = '31.12.';
procedure TForm1.Button1Click(Sender: TObject);
var
  jahr: Word;
  von, bis: TDate;
  Anzeige: String;
  SDatum: String;
begin
  von := EncodeDate( jahr, 1, 1);
  bis := EncodeDate ( Jahr, 12, 31);

  anzeige := 'Von ' + FormatDateTime( 'dd.mm.yyyy', von) + ' bis ' + FormatDateTime( 'dd.mm.yyyy', bis);

  SDatumVon := 'von '; //<-- Der linken Seite kann nichts zugewiesern werden
  SDatumBis := ' bis ';
  Anzeige := SDatumVon + DateToStr(von) + SDatumBis + DateToStr(bis);
  SDatum := 'von %s bis %s';
  Anzeige := Format(SDatum, [DateToStr(von), DateToStr(bis)]);
  ShowMessage(Anzeige);
end;

Als Projektkonstanten hab ich ja schon SDatumVon, SDAtumBis die einen festen Wert haben. Logisch dass diesen Konstanten keine anderen Werte zugeordnet werden können.

Entferne ich diese Projektkonstanten und deklariere sie als einfache Stringvariable

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  jahr: Word;
  von, bis: TDate;
  Anzeige: String;
  SDatum: String;
  sDatumVon, SDatumBis: String;
begin
  von := EncodeDate( jahr, 1, 1); // --> Ungültiges Argument zum Codieren des Datums.
  bis := EncodeDate ( Jahr, 12, 31);

  anzeige := 'Von ' + FormatDateTime( 'dd.mm.yyyy', von) + ' bis ' + FormatDateTime( 'dd.mm.yyyy', bis);

  SDatumVon := 'von ';
  SDatumBis := ' bis ';
  Anzeige := SDatumVon + DateToStr(von) + SDatumBis + DateToStr(bis);
  SDatum := 'von %s bis %s';
  Anzeige := Format(SDatum, [DateToStr(von), DateToStr(bis)]);
  ShowMessage(Anzeige);
end;

What am I doing wrong?

[himitsu]

Zitat:

Ungültiges Argument zum Codieren des Datums

Welchen Wert soll denn "Jahr" dort haben?
Du hast diesem noch garnichts zugewiesen ... da hannst'e froh sein, daß hier rein zufällig ein Wert drinsteht, der eine ungültige Jahreszahl darstellt.

[mkinzler]

Eine Konstante ist konstant. Man kann an sie nichts mehr anhängen

[Metallicwar]

Ich Volldepp.

hätte dem jahr schon noch nen genauen Wert zuweisen sollen.
  DecodeDate(now, jahr, monat, tag);

[Metallicwar]

Delphi-Quellcode:

  Anzeige := ' von ' + FormatDateTime( 'dd.mm.yyyy', von) + ' bis ' + FormatDateTime( 'dd.mm.yyyy', bis);

  Anzeige := SDatumVon + ' ' + DateToStr(von) + SDatumBis + ' ' + DateToStr(bis);
  SDatum := 'Datum von: %s' + #13#10 + '             bis: %s';

  Anzeige := Format(SDatum, [DateToStr(von), DateToStr(bis)]);

könnte mir bitte nochmal jemand erklären was hier alles geschieht, einiges ist mir noch nicht wirklich klar. Schließlich sollte man den Code vestehen, den man verwendet!!!

Aktueller Stand:

Delphi-Quellcode:

const
  SDatumVon0101 = 'Datum von 01.01.';
  SDatumBis3112 = 'Datum bis 31.12.';
  SDatumVon = 'Datum von';
  SDatumBis = ' bis';

....

procedure TfrmUmwandeln.Button1Click(Sender: TObject);
var
  jahr, monat, tag: Word;
  von, bis: TDate;
  Anzeige: String;
  SDatum: String;
  sDatumVon, SDatumBis: String;
begin
  pnlPrjConst.Visible := True;

  decodedate(now, jahr, monat, tag);
  von := EncodeDate( jahr, 1, 1);
  bis := EncodeDate ( Jahr, 12, 31);

  Anzeige := ' von ' + FormatDateTime( 'dd.mm.yyyy', von) + ' bis ' + FormatDateTime( 'dd.mm.yyyy', bis);

  Anzeige := SDatumVon + ' ' + DateToStr(von) + SDatumBis + ' ' + DateToStr(bis);
  SDatum := 'Datum von: %s' + #13#10 + '             bis: %s';

  Anzeige := Format(SDatum, [DateToStr(von), DateToStr(bis)]);

  lbPrjDatumAlt.Caption := SDatumVon0101 + IntToStr(jahr) + #13#10 + ' ' +
                           SDatumBis3112 + IntToStr(jahr);
  lbPrjDatumNeu.Caption := Anzeige;
end;

Nochmals eine Frage, ich kann meine Konstanten SDatumVon0101 uns SDatumBis3112 nicht in ein anderes Format umwandeln, da es Konstanten sind und immer einen festen Wert besitzen, der nicht veränderbar ist? Richtig verstanden?