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

Вниз

Определение дня недели из заданой даты   Найти похожие ветки 

 
Charlz ©   (2002-06-16 16:23) [0]

Пожалуйста дайте пример, как определить день недели для заданной даты. Зарание спасибо!


 
Anatoly Podgoretsky ©   (2002-06-16 16:24) [1]

Перевод: Day Of Week


 
Сатир   (2002-06-16 20:26) [2]

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;

©Delphi Help;-)
с уважением.


 
Anatoly Podgoretsky ©   (2002-06-16 20:35) [3]

Такой массив уже есть в системе, и даже два и даже локализирован, называются
var ShortDayNames: array[1..7] of string;
var LongDayNames: array[1..7] of string;


 
~RAND~ ©   (2002-06-16 20:59) [4]

Удалено модератором


 
Kr_Alex ©   (2002-06-16 22:38) [5]

Если дата в формате TDateTime то FormateDateTime("dddd",YourDate). Если дата в string то перевести её в TDateTime можно функцией StrToDate.



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

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

Наверх




Память: 0.47 MB
Время: 0.014 c
4-89066
Nicky
2002-04-26 17:33
2002.06.27
Как безусловно удалить процесс?


14-89005
BigBadMutuh
2002-05-23 20:24
2002.06.27
Возраст


7-89054
Remal
2002-04-02 12:35
2002.06.27
Как NTвый taskmanager узнает загрузку процессора....


14-89032
yaJohn
2002-05-27 18:37
2002.06.27
Хм... Мастера, значить...


4-89073
Sirus
2002-04-30 07:31
2002.06.27
Как изменить текущее разрешение экрана и цвет рабочего стола