Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

WinIni:=TIniFile.Create('WIN.INI');

WinIni.WriteString('intl','sShortDate','MM/dd/yyyy');

WinIni.Free;

end;

FunctionTForma1.HowManyDays(pYear,pMonth,pDay:word):integer;

var Sum:integer;

pYearAux:word;

begin

Sum:=0;

ifpMonth>1 thenSum:=Sum+31;

ifpMonth>2 thenSum:=Sum+28;

ifpMonth>3 thenSum:=Sum+31;

ifpMonth>4 thenSum:=Sum+30;

ifpMonth>5 thenSum:=Sum+31;

ifpMonth>6 thenSum:=Sum+30;

ifpMonth>7 thenSum:=Sum+31;

ifpMonth>8 thenSum:=Sum+31;

ifpMonth>9 thenSum:=Sum+30;

ifpMonth>10 thenSum:=Sum+31;

ifpMonth>11 thenSum:=Sum+30;

Sum:=Sum + pDay;

if((pYear - (pYear div4)*4)=3D0) and(pMonth>2) theninc(Sum);

HowManyDays:=Sum;

end; { HowManyDays }

procedureTForma1.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);

CaseDayOfWeek(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) div7) +1;

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

end;

end.

ПЕРЕМЕННЫЕ:

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), и содержит количество дней между датами.

Для DateDiff:

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

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

functionPresentValue( constcashflows : array ofdouble; { отсортированные транзакции, начальный индекс - cashflows[0] }

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

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

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

var

i: integer;

factor: double;

begin

factor := (1 + rate / 100.0);

result := 0;

fori := n - 1 downto0 doresult := (result + cashflows[n]) / factor;

ifatbegin thenresult := result * factor;

end;

TheDateField.AsString := TheDateString;

TheDateString := TheDateField.AsString;

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

TheDateField.AsDateTime := StrToDate(TheDateString);

TheDateString := DateToStr(TheDateField.AsDateTime);

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

{***************************************************************************}

functionkcIsLeapYear(nYear: Integer): Boolean;

begin

Result := (nYear mod4 = 0) and((nYear mod100 <> 0) or(nYear mod400 = 0));

end;

{***************************************************************************}

functionkcMonthDays(nMonth, nYear: Integer): Integer;

const

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

begin

Result := DaysPerMonth[nMonth];

if(nMonth = 2) andkcIsLeapYear(nYear) thenInc(Result);

end;

{***************************************************************************}

functionkcWeekOfYear(dDate: TDateTime): Integer;

var

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

begin

nDayCount := 0;

deCodeDate(dDate, nYear, nMonth, nDay);

ForX := 1 to(nMonth - 1) donDayCount := nDayCount + kcMonthDays(X, nYear);