利用format函数对时间变量进行计算

    首先让我们先介绍一下format函数

    format函数是CString类的一个成员函数，它通过格式操作使任意（大家注意这个“任意”，证明这个函数非常强大）类型的数据转换成一个字符串。

    格式：function Format(const Format: string; const Args: array of const): string; overload

    其中：Format参数是一个格式字符串，用于格式化Args里面的值的。Args是一个变量数组，即它里面可以有多个参数，而且每个参数可以不同。

    那么，等我们真正要用到的时候，我们只需掌握它的一些示例用法即可，如我们今天要用到的，利用它来进行时间变量的计算。

    Dim upTime As Date

    Dim downtime As Date

    upTime = Text8.Text

    downtime = Text10.Text

    onLineTime = Format(downtime + upTime, "HH:MM:SS")

    即可实现对时间变量的计算

    相似的示例如：

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