ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : Andrey Romanov                       2:5025/37.17   04 Dec 2001  08:53:41
 To : Valeriy Kozhevnikov
 Subject : День недели
 -------------------------------------------------------------------------------- 
 

 
 28 Nov 01 18:57, Valeriy Kozhevnikov wrote to All:
 
  VK>    Поделитесь алгоритмом подсчета дня недели по дате/месяце/году.
 
   В D5 есть функция DayOfWeek. Возвращает текущий день недели
 (1 - воскресенье, 7 - суббота).
 DayOfWeek (Date: TDateTime): Integer
 
   Пример использования:
 function TakeWeekDay(Data:TDateTime):string; // получить день недели
 const
   weekday : array[1..7] of str15 = ('воскресенье','понедельник',
     'вторник','среда','четверг','пятница','суббота');
 begin
   Result:=weekday[DayOfWeek(Data)];
 end;
 
                 Всё!
 С уважением, Романов Андрей Владимирович!
 
 --- GoldED+/W32 1.1.3.2
  * Origin: Memento Microsoft (2:5025/37.17)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    День недели   Valeriy Kozhevnikov   28 Nov 2001 19:57:18   Re: День недели   Andrey Dashkovsky   29 Nov 2001 21:09:24   Re: День недели   Valeriy Kozhevnikov   01 Dec 2001 22:04:02   Re: День недели   Artyom Petrov   03 Dec 2001 04:34:28   День недели   Andrey Romanov   04 Dec 2001 08:53:41