Дата

← →
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

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

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