请问各位高手我写两个函数不知怎么调用,请各位帮助一下,两个函数如下:
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;