Скачать: 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 вся ветка

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



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