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

Вниз

Определение первого и последнего дня в месяце   Найти похожие ветки 

 
ivc_vetal ©   (2006-01-16 16:59) [0]

Как определить первый и последний день месяца?


 
Gero ©   (2006-01-16 17:00) [1]

Первый всегда имеет первое число, а последний — в зависимости от месяца и года (28-31).


 
Sergey13 ©   (2006-01-16 17:01) [2]

Ну первый то наверное нетрудно. 8-)
К нему IncMonth-1


 
ivc_vetal ©   (2006-01-16 17:08) [3]

Уважаемые мастера, а подскажите вообще где в Help"е можно посмотреть все функции по датам? Заранее благодарен.


 
Gero ©   (2006-01-16 17:10) [4]

date/time routines


 
ivc_vetal ©   (2006-01-16 17:13) [5]

thanks!!!!!!!!


 
Ega23 ©   (2006-01-16 17:21) [6]

Не забывайте шедевр IncDay!


 
Джо ©   (2006-01-24 15:28) [7]

> [6] Ega23 ©   (16.01.06 17:21)
> Не забывайте шедевр IncDay!

Он всегда в наших сердцах! :)


 
Алхимик ©   (2006-01-24 18:49) [8]


> [6] Ega23 ©   (16.01.06 17:21)
> Не забывайте шедевр IncDay!

Кинь ссылку, а то уже забываю :)


 
Ega23 ©   (2006-01-24 19:03) [9]

function TfmMain.IncDay(const DateTime: TDateTime;  NumberOfDays: Integer): TDateTime;
{Функция предназначена для изменения даты (DateTime) путем добавления  количества дней (NumberOfDays). Значение NumberOfDays может быть отрицательным.}
var
 Y, M, D, CountDays: Word;
 N: Integer;
 Sign, NoBreak: Boolean;
begin
 Sign := NumberOfDays >= 0;
 DecodeDate(DateTime, Y, M, D);
 N := NumberOfDays;
 NoBreak := True;
 if Sign then   //Прибавить
 begin
   while(NoBreak) do
   begin //Количество дней в месяце
     CountDays := MonthDays[IsLeapYear(Y), M];
     if (N + D) <= CountDays then //Если в пределах данного месяца
     begin
       Inc(D, N);
       NoBreak := False;
     end
     else
     begin
       if M < 12 then
         Inc(M, 1)
       else
       begin
         M := 1;
         Inc(Y, 1);
       end;
       N := N - (CountDays - D);
       D := 0;
     end;
   end;
 end
 else  //Отнять
 begin
   N := -N;
   while(NoBreak) do
   begin
     if D > N then  //Если в пределах данного месяца
     begin
       Dec(D, N);
       NoBreak := False;
     end
     else
     begin
       if M > 1 then
         Dec(M, 1)
       else
       begin
         M := 12;
         Dec(Y, 1);
       end;
       //Количество дней в месяце
       CountDays := MonthDays[IsLeapYear(Y), M];
       N := N - D;
       D := CountDays;
     end;
   end;  
 end;
 Result := EncodeDate(Y, M, D);
 //Установить время из старой даты
 ReplaceTime(Result, DateTime);
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.04 c
2-1138184193
Der Nechk@SSOFF
2006-01-25 13:16
2006.02.12
свой тип файла


2-1137993984
Аноним
2006-01-23 08:26
2006.02.12
Помогите с ListBox


2-1138104329
K_Lock
2006-01-24 15:05
2006.02.12
Таблица и индексы


15-1138178660
-Nick-
2006-01-25 11:44
2006.02.12
Закрытие периода


8-1125484815
palgen
2005-08-31 14:40
2006.02.12
Как захватить кадр, используя DirectShow ?





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