1.select substring('3.245789',charindex('.','3.245789',0)+1,4)
2. Dim a As Double = 3.12588947
   Response.Write(a.ToString("f4"))