Inkompatible Typen :-( warum?

[kiar]

Delphi-Quellcode:

type
  TWoche = class
  
  private
    { Private-Deklarationen }
    FDatum : DateTime;
    FWeek  : integer;
    function Get_Datum(Value: DateTime): DateTime;
    function GetWeekofYear(FDatum: DateTime):Integer;
  public
    constructor Create;
    property Datum: DateTime read FDatum write Get_Datum;
    property Week : integer read FWeek write GetWeekofYear;
  end;

implementation

constructor TWoche.Create;
begin
  inherited Create;
  FDatum:= DateTime.get_Now ;

end;

function TWoche.GetWeekofYear(FDatum: DateTime):Integer;
begin

end;

function TWoche.get_Datum(Value: DateTime):DateTime;
begin
     If Value <> FDatum then
        Result:= DateTime.Now;
end;

Irgendwie stehe ich auf den Schlauch


raik