IIF(Thisform.decPlaces=0, lcIm, Stuff(lcIm, Len(lcIm)-Thisform.decPlaces, 1, '.'))HTH
>Do Case >Case Thisform.decPlaces = 0 > lcIm = '99999999' >Case Thisform.decPlaces = 1 > lcIm = '999999.9' >Case Thisform.decPlaces = 2 > lcIm = '99999.99' >Otherwise > lcIm = '99999999' >EndCase >>
>lcIm = '99999999' >lcIm = Stuff(lcIm, Len(lcIm)-Thisform.decPlaces, 1, '.') >>But this falls down on 0 dp