Find what size grid could handle 4.3 x 10^17 seconds with Solve[] ?

Questions
1

This is my time function:

`time[x_] := Evaluate[Fit[data, {1, x, x^2}, x ]]`

How can I combine the Solve[] function with the time[] function I created to determine what size grid could handle 4.3 * 10 ^17 seconds?

2

Age of the observable universe, huh? I’m giving that a little thought!
You do realize, don’t you, that Mathematica will have a few upgrades by then.