>< %@ LANGUAGE="VBScript" > >< % > >'------------------------------------------------------------------------------- >' expN1 Length for padding >' expN2 Value >' expN3 Number of decimals >'------------------------------------------------------------------------------- >Function Format(tnLength,tnValue,tnDecimal) >lcValue=CStr(tnValue) >lnPosition=InStr(lcValue,".") >If lnPosition=0 Then > lcFormat=Space(tnLength-Len(lcValue)-1-tnDecimal)+FormatNumber(tnValue,tnDecimal) > Else > lcFormat=Space(tnLength-lnPosition-tnDecimal)+FormatNumber(tnValue,tnDecimal) >End If >Format=lcFormat >End Function > > >'------------------------------------------------------------------------------- >' Only used to insert spaces where applicable as per the alignment and the font >'------------------------------------------------------------------------------- >Function Space(tnLength) >lcString="" >For lnCompteur=1 To lnField > lcString=lcString+" " >Next >Space=lcString >End Function > > > >< %=Format(6,2.1,2) >>