Вычисляем дни до Нового Года

Здравствуйте, многим известно, что до Нового Года осталось считанные дни, так вот к чему данная статья. Данная статья пока что еще не будет итогом работы моего блога в течении этого года и не будет нести поздравительный, пока еще что характер. А статья моя о том, которая поможет программно вычислить сколько до Нового Года осталось времени. Вычислять оно будет не сколько дней, а вот в таком формате:

До Нового Года осталось 0 месяцев 20 дней 3 часа 25 минут 43 секунды и каждую секунду естественно будет происходить обновление. Такое конечно можно сделать с любым праздником, с любой датой, которая только Вам понравится. Вы возможно часто замечали на сайтах есть уже давно такие скрипты, на том же сайте Delphi в Internet также есть подобный счетчик, который показывает сколько осталось до окончания конкурса, который организовал данный сайт. Вот эта программка и предназначалась для того конкурса, не вся конечно, то есть это была бы не программка, а я хотел сделать скринсейвер, который закончен только на половину и эта надпись до Нового Года осталось столько-то, присутствует в моем скринсейвере, но учеба на водительское удостоверение, подготовка к сессии не дало мне до конца довести проект. Но зато теперь я с водительским удостоверением. Конечно очень хотел поучаствовать в конкурсе, но не судьба, ничего как-нибудь переживем, думаю еще не мало будет подобных конкурсов. Ну так вот вернемся к нашей программке. Что нам для реализации данной программы понадобиться — это только TTimer. Таймер нам необходим для того, чтобы каждую секунду обновлять. Конечно тут немного я неправильно сделал, проблема у меня возникла в том, что необходимо было определять сколько дней в текущем месяце, чтобы подсчитать сколько дней осталось до Нового Года и тут у меня возникла проблема с високосным годом, но эту проблему я решил с помощью функции IsLeapYear, после этого я просто делал проверку на то, какой сейчас месяц и в переменной хранил количество дней в месяце,  в других месяцах может быть только 30 или 31 день. Только после этого как я все уже подготовил, я понял, что я очень глупо поступил. Ведь в Delphi есть замечательная функция, которая возвращает количество дней в указанном году и месяце. Но ничего я уже не стал делать второй вариант с данной функцией, так что обойдемся без нее.

Но про данную функцию скажу - DaysInAMonth, у данной функции два параметра типа Word. Первый — год и второй параметр — месяц, для которого вычислять количество дней. Все просто как видите, применение следующее

Исходный код

procedure TForm1.FormCreate(Sender: TObject);
begin
   caption:=Inttostr(DaysInAMonth(2010,12));
end;

В результате вернется результат — 31. И действительно ведь в декабре 2010 года 31 день =).

Ну что теперь вернемся к нашей программе. После того как мы определили сколько дней в месяце, то мы спокойно мы просто вычисляем результат. А вычисляется он просто, от 12 отнимаем номер текущего месяца, от текущего количества дней в месяце отнимаем текущее число, от 24 отнимаем количество часов текущее и тоже самое делаем с минутами и секундами. Все просто, может я как-то немного ошибся в расчетах, так что не судите строго. Вот я написал какую функцию

Исходный код

function TForm1.GetDaysToNewYear(Dates,Times: String): String;
var
 d,m,y,h,s,minut:String;
 daym,hous,minutes,second:Integer;
begin
   d:=Copy(Dates,1,pos('.',Dates)-1);
   Delete(Dates,1,pos('.',Dates));
   m:=Copy(Dates,1,pos('.',Dates)-1);
   Delete(Dates,1,pos('.',Dates));
   y:=Dates;
   h:=Copy(Times,1,pos(':',Times)-1);
   Delete(Times,1,pos(':',Times));
   minut:=Copy(Times,1,pos(':',Times)-1);
   Delete(Times,1,pos(':',Times));
   s:=Times;
   if h='0' then
    hous:=24
   else
    hous:=StrToInt(h);
   if minut='0' then
    minutes:=1
   else
    minutes:=StrToInt(minut);
   second:=StrToInt(s);
   if m='2' then
    begin
     daym:=28;
     if IsLeapYear(StrToInt(y)) then daym:=29;
    end;
    if (((StrToInt(m) mod 2)<>0) and (StrToInt(m)<8)) or (m='8')
        or (m='12') or (m='10') then
     daym:=31;
    if (((StrToInt(m) mod 2)=0) and (StrToInt(m)<8))
        or (m='9') or (m='11') then
     daym:=30;
   result:='До Нового Года осталось '+IntToStr(12-StrToInt(m))+
           ' месяцев'+IntToStr(daym-StrToInt(d))+' дней'+IntToStr(24-hous)+
           ' часов'+IntToStr(60-minutes)+' минут'+IntToStr(60-second)+' секунд';
end;

Применять данную функцию стоит в следующем формате

Исходный код

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   Caption:=GetDaysToNewYear(FormatDateTime('dd.m.yyyy',Date),FormatDateTime('h:m:s',Time));
end;

Как видите в данной функции происходит разбиение времени и даты на отдельные части. То есть разбиваем часы, минуты, секунды и так далее на разные части и затем просто вычисляем сколько времени осталось.

Исходники можно скачать тут

Автор статьи - Andrey53

Метки: DaysInAMonth, IsLeapYear, сколько дней в месяце на Delphi скачать бесплатно игры для пк