利用 timeserial(hour,minute,second)
     或 timevalue(time)

解决方案 »

  1.   

    public sub B3_onclick()msgbox datepart("h","2002/09/03 16:31") & ":" & datepart("n","2002/09/03 16:31")end sub
      

  2.   

    MSSQLSERVER:
    select convert(char(5),getdate(),8)
      

  3.   

    msgbox "日期:" & format(myField,"y年m月d日") & "   时间:" & format(myfield,"h点n分s秒")msgbox "日期:" & dateValue(myField) & "   时间:" & timeValue(myfield)msgbox "日期:" & year(myField) & "年"  & month(myField) & "月"  & day(myField) & "日 星期" & dayOfWeek(myfield) & "   时间:" & hour(myfield) & "点" & minute(myfield) & "分" & second(myField) & "秒"还有很多种方法。
      

  4.   

    <script language="vbscript">
    public sub B3_onclick
    dim d
    d=FormatDateTime("2002-09-05 14:07",vbshorttime)
    msgbox d 
    end sub
    </script>
      

  5.   

    谢谢大家,我要的是:VFP的解答。
      

  6.   

    早说哇!  比如你的时间是在text1里显示的  time(thisform.text1.value)就可以了!