format(datetime,"yyyy年MM月nn日 hh:mm:ss")

解决方案 »

  1.   

    捡漏
    format(datetime,"yyyy年mm月dd日 hh:mm:ss")
      

  2.   

    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"。
      

  3.   

    精确到毫秒?
    用GetSystemTime().
      

  4.   

    你是说,你的数据是single类型?
    你转换成字符串,用MaskEdBox显示,设置好Mask("99:99:99:999.9")
      

  5.   

    你把它分成四个textbox不就可以了?
      

  6.   

    of123,谢谢了
    MaskEdBox这个好象应该可以。但是它可以设置最大值不?
    比如,小时不能大与24,分不能大于60,这写可以吗?
    能不能让它默认就为00:00:00:000.0就是它把数字删了,但是他默认为0,这样就可以了。比如我希望12:23:30:000.0 而不是12:23:30:   . 这样为空,明白吗,谢谢了!!!
      

  7.   

    这样你就必须自己写代码了!
    在MaskBox控件的KeyAscii事件里判断输入的位置和输入的最大值的判断!
    你可以自己试一试!