VBScript 格式化输出函数

Microsoft(R)   Visual   Basic(R)   Scripting   Edition  
  FormatNumber   函数       语言参考      
  版本   2      
     
   
  请参阅    
   
   
  --------------------------------------------------------------------------------  
   
  描述  
  返回表达式，此表达式已被格式化为数值。    
  语法  
  FormatNumber(expression   [,NumDigitsAfterDecimal   [,IncludeLeadingDigit   [,UseParensForNegativeNumbers   [,GroupDigits]]]])  
  FormatNumber   函数的语法有以下参数：  
   
  参数   描述    
  expression   必选。要被格式化的表达式。    
  NumDigitsAfterDecimal   可选。指示小数点右侧显示位数的数值。默认值为   -1，指示使用的是计算机的区域设置。    
  IncludeLeadingDigit   可选。三态常数，指示是否显示小数值小数点前面的零。有关数值，请参阅“设置”部分。    
  UseParensForNegativeNumbers   可选。三态常数，指示是否将负值置于括号中。有关数值，请参阅“设置”部分。      
  GroupDigits   可选。三态常数，指示是否使用计算机区域设置中指定的数字分组符号将数字分组。有关数值，请参阅“设置”部分。      
   
   
   
  设置  
  IncludeLeadingDigit、UseParensForNegativeNumbers   和   GroupDigits   参数可以有以下值：  
  常数   值   描述    
  TristateTrue   -1   True    
  TristateFalse   0   False    
  TristateUseDefault   -2   使用计算机区域设置中的设置。    
   
   
   
  说明  
  当省略一个或多个可选参数时，由计算机区域设置提供被省略参数的值。    
  --------------------------------------------------------------------------------  
     
  注意   所有设置信息均取自区域设置的“数字”附签。    
   
  --------------------------------------------------------------------------------  
     
   
  下面例子利用   FormatNumber   函数把数值格式化为带四位小数点的数:    
   
    Function   FormatNumberDemo    
      Dim   MyAngle,   MySecant,   MyNumber  
      MyAngle   =   1.3                                 '   用弧度定义角。  
      MySecant   =   1   /   Cos(MyAngle)     '   计算正割值。  
      FormatNumberDemo   =   FormatNumber(MySecant,4)   '   把   MySecant   格式化为带四位小数点的数。  
  End   Function  
   
   
  --------------------------------------------------------------------------------  
  Top

2 楼 awaysrain（绝对零度)(既然选择了远方就要日夜前行） 回复于 2003-04-18 09:54:27 得分 0

Microsoft(R)   Visual   Basic(R)   Scripting   Edition  
  Round   函数       语言参考      
  版本   2      
     
   
  请参阅    
   
   
  --------------------------------------------------------------------------------  
   
  描述  
  返回按指定位数进行四舍五入的数值。  
  语法  
  Round(expression[,   numdecimalplaces])  
  Round   函数的语法有以下参数：  
   
  参数   描述    
  expression   必选。   数值表达式   被四舍五入。    
  numdecimalplaces   可选。数字表明小数点右边有多少位进行四舍五入。如果省略，则   Round   函数返回整数。      
   
   
  下面的示例利用   Round   函数将数值四舍五入到两位小数:    
  Dim   MyVar,   pi  
  pi   =   3.14159  
  MyVar   =   Round(pi,   2)   'MyVar   contains   3.14。