Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by DeddyH,
24. Jan 2008
Für diese Lösung brauchst Du aber wieder SysUtils (ich war zu faul zum Rechnen :mrgreen: ):var SysTime: TSystemTime;
dtTime: TDateTime;
Tag: string;
begin
GetSystemTime(SysTime);
dtTime := SystemTimeToDateTime(SysTime);
dtTime := dtTime + 1;
DateTimeToSystemTime(dtTime,SysTime);
case SysTime.wDayOfWeek of
0: Tag := 'Sonntag';
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by DeddyH,
24. Jan 2008
wDayOfWeek ist ein Feld des Records ;)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by DeddyH,
24. Jan 2008
var jetzt, vergleich: TSystemTime;
begin
with vergleich do
begin
wYear := 2008;
wMonth := 1;
wDay := 24;
wHour := 14;
wMinute := 43;
wSecond := 15;