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

Вниз

Дата   Найти похожие ветки 

 
Bezpal ©   (2003-10-08 13:00) [0]

Уважаемые коллеги, подскажите пожалуйста как зделать следующую вещь:
1.Как по дате узнать день недели?
2.Есть две даты: дата прибытия и дата выбытия, как узнать сколько человек находился в гостинице дней кроме субботы и воскресения? Огромное вам спасибо :-)


 
ZEE ©   (2003-10-08 13:04) [1]

1: DayOfWeek


 
kull ©   (2003-10-08 13:05) [2]

1. DayOfWeek + F1
2. лень думать


 
Developerr ©   (2003-10-08 13:35) [3]

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


 
ZEE ©   (2003-10-08 13:39) [4]

2: что-то типа такого
uses DateUtils
i:=DaysBetween(date1,date2)-WeeksBetween(date1,date2)*2;



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

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

Наверх




Память: 0.47 MB
Время: 0.012 c
1-65533
FreeSky
2003-10-08 10:06
2003.10.20
Использование шрифтов...


14-65612
Layner
2003-10-01 08:22
2003.10.20
Затопили потолок, подскажите юр. ответы, на кого подать в суд.


14-65634
nuflin
2003-09-29 09:16
2003.10.20
Мастера подскажите пожалуйста где в интернете


14-65587
esu
2003-10-02 11:55
2003.10.20
Собираю команду набраться


14-65581
Maxim Pshevlotsky
2003-10-02 08:48
2003.10.20
Вопрос по Perl