请教个vb的简单函数

我想把日期型的字段转换为字符型（标准四位年份），请问我该用什么函数，该怎样来转换？ 问题点数：10、回复次数：5Top

1 楼Fanks（铁面人）回复于 2002-03-05 14:38:14 得分 0

无需转换，直接当作字符型使用就行。Top

2 楼dbcontrols（泰山__抛砖引玉）回复于 2002-03-05 14:40:05 得分 0

Format函数Top

3 楼dbcontrols（泰山__抛砖引玉）回复于 2002-03-05 14:40:28 得分 10

Format   函数示例  
  本示例显示用   Format   函数做格式化输出的不同用法。对于日期分隔号（/），时间分隔号（:），以及   AM/   PM   等文本而言，其真正的显示格式会因计算机上的国际标准不同而有所差异。在开发阶段，日期与时间是以短日期的格式，配合代码的国际标准来显示的。而在运行时，短日期则是根据系统的国际标准而定，而系统的国际标准和代码的国际标准可能并不相同。本示例中是假设国际标准为   English/United   States。  
   
  MyTime   及   MyDate   在开发环境下，使用系统的短日期设置显示出来的。  
   
  Dim   MyTime,   MyDate,   MyStr  
  MyTime   =   #17:04:23#  
  MyDate   =   #January   27,   1993#  
   
  '   以系统设置的长时间格式返回当前系统时间。  
  MyStr   =   Format(Time,   "Long   Time")  
   
  '   以系统设置的长日期格式返回当前系统日期。  
  MyStr   =   Format(Date,   "Long   Date")  
   
  MyStr   =   Format(MyTime,   "h:m:s")       '   返回   "17:4:23"。  
  MyStr   =   Format(MyTime,   "hh:mm:ss   AMPM")       '   返回   "05:04:23   PM"。  
  MyStr   =   Format(MyDate,   "dddd,   mmm   d   yyyy")       '   返回   "Wednesday,   Jan   27   1993"。  
  '   如果没有指定格式，则返回字符串。  
  MyStr   =   Format(23)       '   返回   "23"。  
   
  '   用户自定义的格式。  
  MyStr   =   Format(5459.4,   "##,##0。00")       '   返回   "5,459.40"。  
  MyStr   =   Format(334。9,   "###0。00")       '   返回   "334.90"。  
  MyStr   =   Format(5,   "0。00%")       '   返回   "500.00%"。  
  MyStr   =   Format("HELLO",   "<")       '   返回   "hello"。  
  MyStr   =   Format("This   is   it",   ">")       '   返回   "THIS   IS   IT"。  
   
  Top

4 楼donotbesilent（惊叹不已）回复于 2002-03-05 14:43:19 得分 0

 
   
  用Str函数或Cstr函数  
   
  Top

5 楼spirit00（精灵）回复于 2002-03-05 15:19:42 得分 0

先举个例子，把什么样的字符串转换成什么样的字符串。自己写一个函数就可以了！·Top

相关问题

• 函数
• 系统
• 转换
• mystr
• 返回
• 格式
• 字符串
• mytime
• 示例
• 日期

• 帖主：bzwht2002
• dbcontrols

• Visual Basic类图书
• Visual Basic类源码下载