konhon

忘掉過去,展望未來。找回自我,超越自我。
逃避不一定躲的过, 面对不一定最难过, 孤单不一定不快乐, 得到不一定能长久, 失去不一定不再拥有, 可能因为某个理由而伤心难过, 但我却能找个理由让自己快乐.

Google

BlogJava 首页 新随笔 联系 聚合 管理
  203 Posts :: 0 Stories :: 61 Comments :: 0 Trackbacks

// 將日期2005-02-30轉為"200502"
Function YearMonth(DateArg)
  Dim lYear, lMonth
  If DateArg = Null Or CStr(DateArg) = "" Then
    YearMonth = ""
  Else
    lYear = Year(DateArg)
    lMonth = Month(DateArg)
    YearMonth = CStr(lYear) + Right("0" + CStr(lMonth), 2)
  End If
End Function

// 將數字2030轉為"20:30"
Function ConvertToTime(Arg)
  Dim lHour, lMinute
  lHour = CStr(Left(Arg, 2))
  lMinute = CStr(Right(Arg, 2))
  If lHour > "24" Or lHour < "0" Or lMinute > "60" Or lMinute < "0" Then
    ConvertToTime = ""
  Else
    ConvertToTime = IIf(lHour = Null Or lHour = "", "", lHour + ":" + lMinute)
  End If
End Function

// 計算兩個時間的差
Function TimeDiff(BeginArg, EndArg)
  Dim lHour, lMinute
  lMinute = DateDiff("n", BeginArg, EndArg)
  lHour = Int(lMinute / 60)
  lMinute = lMinute - lHour * 60
  TimeDiff = CStr(lHour + lMinute / 60)
End Function

 

posted on 2006-03-29 21:10 konhon 优华 阅读(590) 评论(0)  编辑  收藏 所属分类: Other

只有注册用户登录后才能发表评论。


网站导航: