Public Function dateDiff(ByVal dteStartTime As Date, ByVal dteOverTime As Date, ByVal sFlg As String) As String Dim dJianGe As Double Dim dYearLen As Double Dim objT As System.TimeSpan Dim dMonthLen As Double Try dMonthLen = (365 / 12) objT = dteOverTime.Subtract(dteStartTime) dYearLen = 365 Select Case sFlg Case "y" dJianGe = System.Convert.ToInt32(objT.Days / dYearLen) Case "m" dJianGe = System.Convert.ToInt32(objT.Days / dMonthLen) Case "d" dJianGe = objT.TotalDays Case "h" dJianGe = objT.TotalHours Case "mt" dJianGe = objT.TotalMinutes Case "s" dJianGe = objT.TotalSeconds Case "ms" dJianGe = objT.TotalMilliseconds End Select Return dJianGe.ToString Catch ex As Exception Return "dateDiff error" End Try End Function
Dim dJianGe As Double
Dim dYearLen As Double
Dim objT As System.TimeSpan
Dim dMonthLen As Double
Try
dMonthLen = (365 / 12)
objT = dteOverTime.Subtract(dteStartTime)
dYearLen = 365
Select Case sFlg
Case "y"
dJianGe = System.Convert.ToInt32(objT.Days / dYearLen)
Case "m"
dJianGe = System.Convert.ToInt32(objT.Days / dMonthLen)
Case "d"
dJianGe = objT.TotalDays
Case "h"
dJianGe = objT.TotalHours
Case "mt"
dJianGe = objT.TotalMinutes
Case "s"
dJianGe = objT.TotalSeconds
Case "ms"
dJianGe = objT.TotalMilliseconds
End Select
Return dJianGe.ToString
Catch ex As Exception
Return "dateDiff error"
End Try
End Function
'* @outline 期日の差を計算する
'* @author 大連エイジス株式会社
'* @startdate 2006/04/21
'* @param dteStartTime (I/ )初めの期日
'* dteOverTime (I/ )終わる期日
'* sFlg (I/ )Flg
'* "y":年
'* "m":月
'* "d":日
'* "h":時
'* "mt":分
'* "s":秒
'* "ms":ミリ秒
'* @return string
'* @説明文 期日の差を計算する
'*****************************************************************