Главная страница
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.055 c
15-1165987596
balepa
2006-12-13 08:26
2006.12.31
OPC


15-1165462355
Slider007
2006-12-07 06:32
2006.12.31
С днем рождения ! 7 декабря


15-1165432260
Kerk
2006-12-06 22:11
2006.12.31
Погода


2-1165681703
atas-sheriff
2006-12-09 19:28
2006.12.31
ClientSocket


15-1165413054
Jeer
2006-12-06 16:50
2006.12.31
Персоналка