请问各位高手我写两个函数不知怎么调用,请各位帮助一下,两个函数如下:
function BoolToStr(Value :Boolean): string;
begin
if Value then result := '1'
else result := '0';
end;
function WeekOfYear(ADate : TDateTime) : byte;
var
d, m, y : word;
FirstOfYear : TDateTime;
begin
DecodeDate(ADate, y, m, d);
FirstOfYear := EncodeDate(y, 1, 1); if (DayOfWeek(FirstOfYear) > 4) then
begin
if (ADate - FirstOfYear < 8 - DayOfWeek(FirstOfYear)) then
result := 52
else
result := (Trunc(ADate - FirstOfYear + ( DayOfWeek(FirstOfYear) - 8) ) div 7) + 1;
end
else
result := (Trunc(ADate - FirstOfYear + ( 7 - DayOfWeek(FirstOfYear) ) ) div 7) + 1
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
weekofyear(strtodate(maskedit1.text));
end;
function BoolToStr(Value :Boolean): string;
begin
if Value then result := '1'
else result := '0';
end;
function WeekOfYear(ADate : TDateTime) : byte;
var
d, m, y : word;
FirstOfYear : TDateTime;
begin
DecodeDate(ADate, y, m, d);
FirstOfYear := EncodeDate(y, 1, 1); if (DayOfWeek(FirstOfYear) > 4) then
begin
if (ADate - FirstOfYear < 8 - DayOfWeek(FirstOfYear)) then
result := 52
else
result := (Trunc(ADate - FirstOfYear + ( DayOfWeek(FirstOfYear) - 8) ) div 7) + 1;
end
else
result := (Trunc(ADate - FirstOfYear + ( 7 - DayOfWeek(FirstOfYear) ) ) div 7) + 1
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
weekofyear(strtodate(maskedit1.text));
end;
begin
weekofyear(strtodate(maskedit1.text)); //这样不行吧 这是函数,你可把它赋给某个变量,找本书看看,要清楚的多:)
end;