Советы по Delphi. Версия 1.4.3 от 1.1.2001 - страница 4

> Sum:=Sum+31;

> if pMonth>4  then Sum:=Sum+30;

> if pMonth>5  then Sum:=Sum+31;

> if pMonth>6  then Sum:=Sum+30;

> if pMonth>7  then Sum:=Sum+31;

> if pMonth>8  then Sum:=Sum+31;

> if pMonth>9  then Sum:=Sum+30;

> if pMonth>10 then Sum:=Sum+31;

> if pMonth>11 then Sum:=Sum+30;

> Sum:=Sum + pDay;

> if ((pYear - (pYear div 4)*4)=3D0) and (pMonth>2) then inc(Sum);

> HowManyDays:=Sum;

>end;   { HowManyDays }

>procedure TForma1.GetWeekBtnClick(Sender: TObject);

>var

> ADate: TDateTime;EditAux:String;

> Week,year,month,day:Word;

>begin

> EditAux:=Edit1.Text;

> ADate := StrToDate(EditAux);

> Label1.Caption := DateToStr(ADate);

> DecodeDate(Adate,Year,Month,Day);

> Case DayOfWeek(ADate) of

>1: Label4.Caption:='Воскресенье';

> 2: Label4.Caption:='Понедельник';

> 3: Label4.Caption:='Вторник';

> 4: Label4.Caption:='Среда';

> 5: Label4.Caption:='Четверг';

> 6: Label4.Caption:='Пятница';

> 7: Label4.Caption:='Суббота';

> end

>Week:=(HowManyDays(year,month,day) div 7) +1;

> Label3.Caption:='Неделя No. '+IntToStr(Week);

>end;

>end.

Delphi 1

ПЕРЕМЕННЫЕ:

>Year1, Month1, Day1,

>Year2, Month2, Day2,

>YearResult, MonthResult, DayResult: Word;

>TDay1, TDay2, DateDiff: TDateTime;

КОД:

>TDay1 := EncodeDate(Year1, Month1, Day1);

>TDay2 := EncodeDate(Year2, Month2, Day2);

>DateDiff := TDay2 – TDay1; {предположим, что TDay2 позднее, чем TDay1}

>DecodeDate(DateDiff, YearResult, MonthResult, DayResult);

DateDiff имеет тип LongInt (хотя и является объектом TDateTime), и содержит количество дней между датами.

Delphi 1

Для DateDiff:

Вы смотрели на функцию DecodeDate? Это не точно именно то, что вам нужно, но на ее основе можно сделать вашу функцию именно с нужной вам функциональностью.

Для величины Present:

>function PresentValue(const cashflows : array of double;    { отсортированные транзакции, начальный индекс - cashflows[0] }

> n : integer; { количество транзакций в массиве }

> rate : double; { оценочный процент за истекший период }

> atbegin : boolean) : double; { true, если транзакция была в начале периода,false если в конце }

>var

> i: integer;

> factor: double;

>begin

> factor := (1 + rate / 100.0);

> result := 0;

> for i := n - 1 downto 0 do result := (result + cashflows[n]) / factor;

> if atbegin then result := result * factor;

>end;

Delphi 1

>TheDateField.AsString := TheDateString;

>TheDateString := TheDateField.AsString;

это делает преобразование подобно DateToStr и StrToDate. Аналогично:

>TheDateField.AsDateTime := StrToDate(TheDateString);

>TheDateString := DateToStr(TheDateField.AsDateTime);

Delphi 1

Здесь включены 2 вспомогательные функции, необходимые для работы вашей функции. Одна проверяет високосный год, другая возвращает число дней месяца (с проверкой високосного года), третья, ту, что вы хотели, возвращает текущую неделю года.

>{***************************************************************************}

>function kcIsLeapYear(nYear: Integer): Boolean;

>begin

> Result := (nYear mod 4 = 0) and ((nYear mod 100 <> 0) or (nYear mod400 = 0));

>end;

>{***************************************************************************}

>function kcMonthDays(nMonth, nYear: Integer): Integer;

>const

> DaysPerMonth: array[1..12] of Integer = (31, 28, 31, 30, 31, 30, 31,31, 30, 31, 30, 31);

>begin

> Result := DaysPerMonth[nMonth];

> if (nMonth = 2) and kcIsLeapYear(nYear) then Inc(Result);

>end;

>{***************************************************************************}

>function kcWeekOfYear(dDate: TDateTime): Integer;

>var

> X, nDayCount: Integer;nMonth, nDay, nYear: Word;

>begin

> nDayCount := 0;

> deCodeDate(dDate, nYear, nMonth, nDay);

> For X := 1 to (nMonth - 1) do nDayCount := nDayCount + kcMonthDays(X, nYear);

> nDayCount := nDayCount + nDay;

> Result := ((nDayCount div 7) + 1);

>end;

Delphi 1

…я не знаю, когда вы выполняете TimeTaken… Вы делали какую-нибудь паузу перед запуском TimeTaken после выполнения SetTimeStart? Если не делали, то удивительно, что tt=Now… Я пробовал ваш код с несколькими незначительными изменениями… и я всегда получал разницу между Now и TimeStart. Но я объявляю tt как TDateTime, а не как Double, и использую событие OnTimer для запуска процедуры TimeTaken. Вы можете проверить это, запустив пример, приведенный ниже.