Datum umwandeln..

[Metallicwar]

Hallo zusammen, weiß nicht wie ich mein momentanes Problem lösen kann.
Folgendes..
Habe zwei Projektkonstanten die öfters verwendet werden z.B. in ShowMessages.

Delphi-Quellcode:

  
  SDatumVon0101 = 'Datum von: 01.01.';
  SBis3112 = 'bis 31.12.';

....

Delphi-Quellcode:

  lbPrjDatumAlt.Caption := SDatumVon0101 + IntToStr(year) + #13#10 + '       ' +
                           SBis3112 + IntToStr(year);

Das ist aber logischerweiße nur korrekt, wenn das Datumsformat auf dd.MM.yyyy steht.

An anderen Stellen kann ich das Datum ohne Probleme anpassen.

Delphi-Quellcode:

        qJahresplan.SQL.Text := 'INSERT INTO Jahresplan (Startdatum, Enddatum) VALUES (' +
                                QuotedStr(DateToStr(EncodeDate(year,10,01))) + ',' +
                                QuotedStr(DateToStr(EncodeDate(year,12,31))) + ')';
...

Aber wie könnte ich das Datum der Projektkonstanten ändern?!? z.B. auf T.M.JJ oder ein anderes?
Hoffe ihr versteht mein Problem

mfg David

[mkinzler]

Verwende bei SQL-Abfragen am Besten Parameter

[haentschman]

Hallo...

Idee aus dem Bauch: Statt Konstante als Variable und via DateUtils beim Start des Programmes entsprechend der Systemeinstellungen setzen.

[Metallicwar]

Das mit dem datum hab ich so gemacht:

Delphi-Quellcode:

procedure TfrmUmwandeln.FormShow(Sender: TObject);
var
  fs: TFormatSettings;
begin
  GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT,fs);
  if not (AdsSettings1.DateFormat = fs.ShortDateFormat) then
    AdsSettings1.DateFormat:= fs.ShortDateFormat;

Zitat:

Statt Konstante als Variable und via DateUtils beim Start des Programmes entsprechend der Systemeinstellungen setzen.

aber da steh ich jetzte auf`m Schlauch.
mfg

[himitsu]

Delphi-Quellcode:

const SDatum = 'Datum von: %s bis %s';

und dann vor Ort über Format beide Teile ersetzen.

Wobei für SQL dieses auch in etwa damit

Delphi-Quellcode:

const SDatum = 'Datum von: :VON bis :BIS';

und über dieses die predefinierten Parameter machen könnte, wie schon bei "Verwende bei SQL-Abfragen am Besten Parameter" vorgeschlagen.

In beiden Fällen dann den ganzen String über DateToStr + EncodeDate befüllen.

[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.

Delphi-Quellcode:

  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?