如何在VB中text控件中实现“计算使用时间”的问题？

如何在VB中text控件中实现“计算使用时间”的问题？我的程序中有个计算“机器”使用时间的问题，比如在一个text1控件中给了这台机器的生产日期，想在text2中自动生成它的使用时间，其实就是调用当前时间，减去给定生产日期的问题，可以精确到“月”或者“年”，请大家帮忙：）

解决方案 »

  1.   

    Text2.Text=DateDiff("m", CDate(Text1.Text), CDate(Text3.Text)
    Text3.Text中输入给定生产日期
    Text2.Text=DateDiff("y", CDate(Text1.Text), CDate(Text3.Text)见http://msdn.microsoft.com/zh-cn/library/b5xbyt6f.aspx
      

  2.   

    能不能自动调用系统时间啊，我想让程序自动计算，好像有个DataInterval，但不知道怎么用
      

  3.   

    now或者date就是系统当前时间和日期，很基本的问题，楼主还是好好看看书吧
      

  4.   

    VB6 中没有 DateInterVal，不过有函数 Date() 返回当前日期，替换1楼的 CDate(Text3.Text) 就可以了。
      

  5.   

    if(trim(text1.text)<>"" then  '可添加其他校验
         mMonth as long
         mMonth  =  datediff("M",text1.text,now())
        text2.text=mMonth /12 +"年" +mod（mMonth /12）+ "月"
    end if
      

  6.   

    呵呵，下午已经明白了，主要是now的应用，晚上看到大家的回复，很高兴，多谢大家了！结贴给分：）