如何去掉now函数时间中的汉字

来源:互联网 发布:外部端口80被占用 编辑:程序博客网 时间:2024/05/18 05:51

问题:

关于系统时间的问题,2005-11-23上午10:00:00如何设置能把now函数中的汉字消掉? 在控制面板中区域设置中,只能改面右下角显示的状态,对于在VBS中去时间函数now(),不起作用。别的机子都运行正常,就这个机子在函数用now()取时间时,取出是这样的:2005-11-23上午10:00:00,一运行就出错。。。怎么设置?   请大家赐教!!!急~~!!!

解决:

一、FormatDateTime   函数  
  描述:返回表达式,此表达式已被格式化为日期或时间。    
  语法:FormatDateTime(Date[,NamedFormat])  
  Date:   必选。要被格式化的日期表达式。    
  NamedFormat:   可选。指示所使用的日期/时间格式的数值,如果省略,则使用   vbGeneralDate。    
  NamedFormat   参数可以有以下值:  
  (以下分别为:常数   值   描述)  
  vbGeneralDate   0   显示日期和/或时间。如果有日期部分,则将该部分显示为短日期格式。如果有时间部分,则将该部分显示为长时间格式。如果都存在,则显示所有部分。      
  vbLongDate   1   使用计算机区域设置中指定的长日期格式显示日期。    
  vbShortDate   2   使用计算机区域设置中指定的短日期格式显示日期。    
  vbLongTime   3   使用计算机区域设置中指定的时间格式显示时间。    
  vbShortTime   4   使用   24   小时格式   (hh:mm)   显示时间。    

二、自编函数

Function     GetCurrentDate      
            GetCurrentDate     =     FormatDateTime(Date,1)          
  End     Function    
   
  该函数作用:按指定参数格式化显示时间。  
  numformat=1:将时间转化为yyyy-mm-dd   hh:nn格式。  
  numformat=2:将时间转化为yyyy-mm-dd格式。  
  numformat=3:将时间转化为hh:nn格式。  
  numformat=4:将时间转化为yyyy年mm月dd日   hh时nn分格式。  
  numformat=5:将时间转化为yyyy年mm月dd日格式。  
  numformat=6:将时间转化为hh时nn分格式。  
  numformat=7:将时间转化为yyyy年mm月dd日   星期×格式。  
  numformat=8:将时间转化为yymmdd格式。  
  numformat=9:将时间转化为mmdd格式。

三、综合设置:

1、控制面板--区域和语言选项--把时间设置为24小时格式。  
  2、建立  
  HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/OLEAUT/VarConversionLocaleSetting   =   2   (DWORD)    
   
  备注:OLEAUT   项可能不存在。如果它不存在,则必须先创建该项。  
   
  3、重新启动IIS。  
   
  问题解决。  
   
  原理是强制使asp时间使用区域格式。

 

from: http://boyd.cn/info_Print.asp?ArticleID=2374