E-Mail Numbers?

[flapjacks]

Anyone know of a way to preserve number formating when e-mailing?

Thanks,

John

[Lee Smith]

Maybe

"$ " & GetAsText ( Amount )

Lee

[flapjacks]

Thanks Lee, I also need the comma for thousands.

John

[Lee Smith]

Okay, then maybe this is better.

Let ( [

Amount = Round ( Amount ; 2 ) ;

A = Int ( Amount ) ;

L = Length ( A ) ;

R = If ( Amount > A ; Left ( Amount - A & "000" ; 3 ) ; ".00" )

] ;

"$ " & Case (

L=9 ; Left(A;3) &","& Middle(A;4;3) &","& Right(A;3) ;

L=8 ; Left(A;2) &","& Middle(A;4;3) &","& Right(A;3) ;

L=7 ; Left(A;1) &","& Middle(A;4;3) &","& Right(A;3) ;

L=6 ; Left(A;3) &","& Right(A;3) ;

L=5 ; Left(A;2) &","& Right(A;3) ;

L=4 ; Left(A;1) &","& Right(A;3) ;

A

) //end Case

& R

) //end Let

Lee

[color:Blue]I usually have record of who contributed these calculation, but I didn't in this case. Sorry.

[flapjacks]

Lee

I knew you would show the way! Thanks!

John