Forum: Win32/Win64 API (native code)
by Metallicwar,
8. Dez 2010
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, );
könnte mir bitte nochmal jemand erklären was hier alles geschieht, einiges ist mir noch nicht wirklich klar....
Forum: Win32/Win64 API (native code)
by Metallicwar,
8. Dez 2010
Ich Volldepp.
hätte dem jahr schon noch nen genauen Wert zuweisen sollen.
DecodeDate(now, jahr, monat, tag);
Forum: Win32/Win64 API (native code)
by Metallicwar,
7. Dez 2010
const
SDatumVon = '01.01.';
SDatumBis = '31.12.';
procedure TForm1.Button1Click(Sender: TObject);
var
jahr: Word;
von, bis: TDate;
Anzeige: String;
SDatum: String;
begin
Forum: Win32/Win64 API (native code)
by Metallicwar,
7. Dez 2010
Das mit dem datum hab ich so gemacht:
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;
Forum: Win32/Win64 API (native code)
by Metallicwar,
7. Dez 2010
Hallo zusammen, weiß nicht wie ich mein momentanes Problem lösen kann.
Folgendes..
Habe zwei Projektkonstanten die öfters verwendet werden z.B. in ShowMessages.
SDatumVon0101 = 'Datum von: 01.01.';
SBis3112 = 'bis 31.12.';
....