Løs ligning med 2 ubekendte

Hej

Jeg skal have løst to ligninger med to ubekendte i vba.

Ligningen:

Z=x(1-p)/p
Y=x(1-p)/(p^2)

Hvor Z og Y er givet. x skal være et positiv hel tal og p skal være 0< p<1.

I nogle tilfælde vil det ikke kunne lade sig gøre, her må x rundes af til nærmeste heltal og p skal så regnes ud på ny, så resultatet bliver så præsic som muligt, men det kan ikke altid lade sig gøre at det bliver præcis. Man skal altså komme så tæt på som muligt under betingelserne.

et eksempel:

1,777=x(1-p)/p
1,9726=x(1-p)/(p^2)

Her vil x være lig med 17 og p=0,900808 efter afrunding af x.

Det kan også være at det er en umulig opgave.