procedure TForm1.QRLabel1Print(sender: TObject; var Value: String);
var
  iYear:Integer;
begin
  iYear:=StrToInt(Copy(Value,1,4))-1911;
  Value:=IntToStr(iYear) '/' Copy(Value,5,2) '/' Copy(Value,7,2);
end;