Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.12.31;
Скачать: CL | DM;

Вниз

Работа с датой.   Найти похожие ветки 

 
Монг   (2006-12-12 07:26) [0]

Как узнать, выпалает ли, какая то дата, на выходные (на субботу или восскресенье) ?


 
Думкин ©   (2006-12-12 07:42) [1]

DayOfWeek + F1

procedure TForm1.Button1Click(Sender: TObject);

var
 ADate: TDateTime;
 days: array[1..7] of string;
begin
 days[1] := "Sunday";
 days[2] := "Monday";
 days[3] := "Tuesday";
 days[4] := "Wednesday";
 days[5] := "Thursday";
 days[6] := "Friday";
 days[7] := "Saturday";
 ADate := StrToDate(Edit1.Text);
 ShowMessage(Edit1.Text + " is a " + days[DayOfWeek(ADate)];
end;



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

Текущий архив: 2006.12.31;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.047 c
10-1118908565
lionson
2005-06-16 11:56
2006.12.31
CORBA - клиент не видит сервер в другой подсетке


3-1161186750
Shopot
2006-10-18 19:52
2006.12.31
InterBase. Не могу найти WISQL!!!


2-1165897474
Kvinta
2006-12-12 07:24
2006.12.31
Вернуть Field а ADO


8-1146912258
Volfram
2006-05-06 14:44
2006.12.31
Проблема с DelphiX


15-1165258556
cando
2006-12-04 21:55
2006.12.31
работа с вэб камерой