Expressing a decimal as a fraction in lowest terms

How can I express a decimal such as 0.1845095405274387 as a fraction in its lowest terms?

-
Rationalize[0.1845095405274387, 10^-50] ? –  belisarius Jun 20 '12 at 1:07

Another option:

RootApproximant[0.1845095405274387, 1]

-

Still another possibility:

Last[Convergents[0.1845095405274387]]

-
+1 for referencing a non-esoteric function I cannot recall using. –  Mr.Wizard Jun 22 '12 at 2:02
I deal with continued fractions somewhat frequently, you see... –  Ｊ. Ｍ. Jun 22 '12 at 2:04
FromDigits@#/10^(Length@# - #2) & @@ RealDigits[0.1845095405274387]