Главная страница
    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.011 c
1-1122059658
Spartak
2005-07-22 23:14
2005.08.14
Глюки TListView


4-1118750333
Константин_1558
2005-06-14 15:58
2005.08.14
Нужно открыть в проводнике диск CDRom а. Прошу помощи!


1-1122092093
N!tro
2005-07-23 08:14
2005.08.14
Поиск в WebBrowser


3-1120885666
lelik
2005-07-09 09:07
2005.08.14
вопрос по IB DataSet


14-1122048405
PlayBoy
2005-07-22 20:06
2005.08.14
Отличие между поверкой и проверкой?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский