Скачать: CL | DM;

Как работает функция DayOfWeek   Найти похожие ветки 

← →
din   (2004-06-01 09:53) [0]

Как определить день недели от текущей даты  

function DayOfWeek( now: TDateTime ): integer;
  var S: string;
      dned:integer;
 begin
  dned:= DayOfWeek(now);
 form_dr.Label2.Caption:=dned;
end;

---

← →
Семен Сорокин ©   (2004-06-01 09:58) [1]

ShortDayNames[DayOfWeek(Now)]
LongDayNames[DayOfWeek(Now)]

---

← →
Anatoly Podgoretsky ©   (2004-06-01 10:15) [2]

Это же не контролируемая рекурсия.

---

← →
[lamer]Barmaglot ©   (2004-06-01 10:25) [3]

В свое время написал такую функцию, может пригодится тем у кого нет 6 дельфи...


function DayOfWeek(TDT: TDateTime): string;
var
 ST:    SystemTime;
 i:    Integer;
 P:    Pointer;
begin
DateTimeToSystemTime(TDT, ST);
i:=GetDateFormat(LOCALE_SYSTEM_DEFAULT, 0, @ST, "dddd", nil, 0);
GetMem(p, i);
 try
   GetDateFormat(LOCALE_SYSTEM_DEFAULT, 0, @ST, "dddd", PChar(p), i);
   SetString(result, PChar(p), i);
 finally
 FreeMem(p, i);
 end;
end;


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.036 c