Главная страница
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.016 c
6-88983
Pauk [AL]
2002-04-19 12:24
2002.06.27
Передача данных через сокеты


1-88789
SPeller
2002-06-16 03:29
2002.06.27
Создание/удаление формы


6-88975
Freddy
2002-04-19 09:33
2002.06.27
NMSMTP, OnInvalidHost- проблемы


14-88988
vopros
2002-05-24 10:37
2002.06.27
Весна. Почему столько страшных девушек.


3-88695
IC
2002-06-01 13:00
2002.06.27
Стандартный TDBLookupComboBox