Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.08.14;
Скачать: [xml.tar.bz2];

Вниз

Вычисление первого и последнего дня недели!   Найти похожие ветки 

 
serguncho ©   (2005-07-22 15:04) [0]

Добрый день!

ВОзникла проблема с получение даты первого и последнего дней недели.
Использую код:
now_day:=dayofweek(monthcalendar1.Date)-1;
     decodedate(monthcalendar1.Date,y1,m1,d1);
     if now_day=0 then
     begin
         first_day:=d1-6;
         last_day:=d1;
     end
     else
     begin
         last_day:=7-now_day+d1;
         first_day:=d1-now_day+1;
     end;


Работает хорошо только, если все дни недели одного месяца. Если получается конец одного и начало другого месяца на одной недели, то уже не работает. Как разрешить эту проблемку?


 
Плохиш ©   (2005-07-22 15:07) [1]

StartOfTheWeek


 
Anatoly Podgoretsky ©   (2005-07-22 15:10) [2]

Date - DayOfTheWeek(Date)-1


 
Digitman ©   (2005-07-22 15:20) [3]

procedure TForm1.Button1Click(Sender: TObject);
var
 dt: TDateTime;
 now_day: Integer;
begin
   dt := strtodatetime("1.7.2005");
   now_day:=dayofweek(dt)-1;
   showmessage("Начало : " + datetimetostr(dt - now_day + 1) + " Конец : " + datetimetostr(dt + 7 - now_day));
end;


 
serguncho ©   (2005-07-22 16:15) [4]

Спасибо всем!



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

Форум: "Основная";
Текущий архив: 2005.08.14;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.012 c
1-1122281099
-=snoop=-
2005-07-25 12:44
2005.08.14
как вставить в меню изображение (*.bmp, *.jpg)


3-1120523457
LF
2005-07-05 04:30
2005.08.14
Игнорируется EOleException


14-1121882365
LargeR
2005-07-20 21:59
2005.08.14
Сайты по системному программированию


3-1120738308
st0rm
2005-07-07 16:11
2005.08.14
Клонирование связанных таблиц в Access`e!


6-1098815250
Kallega
2004-10-26 22:27
2005.08.14
Как отправить СМС через HTTP www.kyivstar.net





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский