[VB6] Acquisire denominatore di una frazione

[LMondi]

Ho il seguente problema:
in una Txt deve essere digitata una frazione, poniamo 1/4;
in un'altra Txt dovrei fare il complemento per conseguire l'unità, ad esempio 3/4. Come faccio per evidenziare nella seconda Txt 3/4 ?
Grazie per l'aiuto.

[Boolean]

ciao LMondi,

...non troppo difficile

se 4/25 significa avere 25 parti e prenderne 4, per calcolare quante parti mancano per giungere all'unità basta fare 25-4 quindi la frazione "complementare" sarà 21/25

considerata la barra come separatore, una Split risolve il problema:

Fraz=Split(Text1.Text,"/")
Text2.Text = Trim(Fraz(1)-Fraz(0)) & "/" & Trim(Fraz(1))

credo che possa funzionare

Boolean

[LMondi]

Grazie Boolean,
hai interpretato bene e risolto egregiamente.

[Boolean]

Di nulla, ciao

Boolean