时间的相加和相减

  '过程名称：TimeAndTimeSum
  '功能描述：两个时间的相加
  '接收参数：时间字串
  '返回参数：相加后的时间字串
  '创建人员及日期：zzz@2007-06-20
  '注意事项：字符串的格式需要为##:##
  '================================================================================================
  Public Function TimeAndTimeSum(ByVal fristTime As String, ByVal SecondTime As String) As String
    Dim fristHour As Integer, fristMinute As Integer, secondHour As Integer, secondMinute As Integer
    Dim HourSum As Integer, MinuteSum As Integer

    Try
      '得到fristTime的小时和分钟
      fristHour = Convert.ToInt32(fristTime.Substring(0, fristTime.IndexOf(":")))
      fristMinute = Convert.ToInt32(fristTime.Substring(fristTime.IndexOf(":") + 1, 2))

      '得到SecondTime的小时和分钟
      secondHour = Convert.ToInt32(SecondTime.Substring(0, SecondTime.IndexOf(":")))
      secondMinute = Convert.ToInt32(SecondTime.Substring(SecondTime.IndexOf(":") + 1, 2))

      '小时和分钟数求和
      HourSum = fristHour + secondHour
      MinuteSum = fristMinute + secondMinute

      '判断分钟数是否大于等于60,如果是在小是数上加1
      If MinuteSum < 60 Then
        If MinuteSum Mod 60 < 10 Then
          TimeAndTimeSum = HourSum & ":0" & MinuteSum Mod 60
        Else
          TimeAndTimeSum = HourSum & ":" & MinuteSum Mod 60
        End If
      Else
        If MinuteSum Mod 60 < 10 Then
          TimeAndTimeSum = HourSum + 1 & ":0" & MinuteSum Mod 60
        Else
          TimeAndTimeSum = HourSum + 1 & ":" & MinuteSum Mod 60
        End If
      End If
    Catch ex As Exception
      Throw New Exception("时间的累加出现异常!!!" & vbCrLf & _
                          "Source:" & ex.Source.ToString() & "Message:" & ex.Message)
      TimeAndTimeSum = ""
    End Try
  End Function

  '过程名称：TimeAndTimeReduces
  '功能描述：两个时间的相加
  '接收参数：fristTime:被减时间,SecondTime:减去的时间
  '返回参数：相减后的时间字串
  '创建人员及日期：zzz@2007-06-20
  '注意事项：字符串的格式需要为##:##
  '================================================================================================
  Public Function TimeAndTimeReduces(ByVal fristTime As String, ByVal SecondTime As String) As String
    Dim fristHour As Integer, fristMinute As Integer, secondHour As Integer, secondMinute As Integer
    Dim HourSum As Integer, MinuteSum As Integer, sTemp As String = "", isJh As Boolean = False

    Try
      If fristTime.Length = SecondTime.Length Then
        If fristTime < SecondTime Then
          sTemp = fristTime
          fristTime = SecondTime
          SecondTime = sTemp
          isJh = True
        End If
      Else
        If Convert.ToInt32(fristTime.Substring(0, fristTime.IndexOf(":"))) < Convert.ToInt32(SecondTime.Substring(0, SecondTime.IndexOf(":"))) Then
          sTemp = fristTime
          fristTime = SecondTime
          SecondTime = sTemp
          isJh = True
        End If
      End If

      '得到fristTime的小时和分钟
      fristHour = Convert.ToInt32(fristTime.Substring(0, fristTime.IndexOf(":")))
      fristMinute = Convert.ToInt32(fristTime.Substring(fristTime.IndexOf(":") + 1, 2))

      '得到SecondTime的小时和分钟
      secondHour = Convert.ToInt32(SecondTime.Substring(0, SecondTime.IndexOf(":")))
      secondMinute = Convert.ToInt32(SecondTime.Substring(SecondTime.IndexOf(":") + 1, 2))

      '小时和分钟数相减
      HourSum = fristHour - secondHour
      If fristMinute < secondMinute Then
        If HourSum = 0 Then
        Else
          HourSum -= 1
        End If

        MinuteSum = fristMinute + 60 - secondMinute
        MinuteSum = -MinuteSum + 60
      Else
        MinuteSum = fristMinute - secondMinute
      End If

      '判断分钟数是否小于10
      If MinuteSum < 10 Then
        If isJh Then
          TimeAndTimeReduces = "-" & Math.Abs(HourSum) & ":0" & Math.Abs(MinuteSum)
        Else
          TimeAndTimeReduces = HourSum & ":0" & Math.Abs(MinuteSum)
        End If
      Else
        If isJh Then
          TimeAndTimeReduces = "-" & Math.Abs(HourSum) & ":" & Math.Abs(MinuteSum)
        Else
          TimeAndTimeReduces = HourSum & ":" & Math.Abs(MinuteSum)
        End If
      End If

    Catch ex As Exception
      Throw New Exception("时间的相减出现异常!!!" & vbCrLf & _
                          "Source:" & ex.Source.ToString() & "Message:" & ex.Message)
      TimeAndTimeReduces = ""
    End Try
  End Function