В чем ошибка? [D6]
Koala © (2005-06-09 12:42:00)
Делаю UDFку, вот код:
procedure ReturnDate(var bool : Integer; DateEnt, DateEnd:
TDateTime) :String;
far cdecl export;
function dataString(dat : TDateTime) : string;
var Year, Month, Day: Word;
begin
DecodeDate(dat, Year, Month, Day);
case Day of
0..9 : Result := Char(34) + '0'
+IntToStr(Day) + Char(34) + ' ' +
MoonName(Month) + ' ' + IntToStr(Year) + 'г.';
else Result := Char(34) +
IntToStr(Day) + Char(34) + ' ' +
MoonName(Month) + ' ' + IntToStr(Year) + 'г.';
end;
end;
begin
case bool of
0 : Result := dataString(DateEnt);
1 : Result := 'c: ' + dataString(DateEnt) + '
по: ' + dataString(DateEnd);
end;
end;
Выдает ошибку:
[Error] utils.dpr(110): Procedure cannot have a result type
Ega23 (2005-06-09 12:44:00) [1]
Не procedure а function
А вообще - в Орешник!!!!
Наверх 
ЧАТ |
Орешник |
|
