Лист защищен без пароля, чтобы случайно не повредить формулы.
формулы можно увидеть в строке формул.
78=>16
214=>326
89=>131
111=>157
Lazarus(delphi):
type
d=record
m1, d1, y1: integer;
end;
var s: string; d1: TDateTime;
begin
s:=edit1.text; (read(s));
d1:=strtoDate(s);
DecodeDate(d1, d[y1], d[m1], d[d1]);
end;