GMT时间向Local时间转换（ASP）

最新推荐文章于 2024-04-02 10:19:41 发布

listen

最新推荐文章于 2024-04-02 10:19:41 发布

阅读量1.3k

点赞数

CC 4.0 BY-SA版权

分类专栏： WEB设计文章标签： asp function

本文链接：https://blog.youkuaiyun.com/listen/article/details/59909

WEB设计专栏收录该内容

23 篇文章

订阅专栏

此博客展示了一个ASP函数gfdtGMT2Local，其功能是将GMT日期转换为本地日期。函数接收GMT日期作为参数，根据时区信息进行计算，通过判断时区的正负号及时间范围，使用DateAdd函数进行小时和分钟的加减，最终返回转换后的本地日期。

'====================================================================
'機能 : ＧＭＴ日付をローカル日付に変換する。
'引数 :　　
' ＧＭＴ日付
'返却値 : ローカル日付
'====================================================================
Function gfdtGMT2Local(ByVal GMTDate)

If SG_blnErrorResumeNext Then
On Error Resume Next
End If

Dim intTime
Dim intMinute
Dim dtTempDate
Dim dtOutDate

If Left(SG_strTimeZone, 3) <> "GMT" Then
  gfdtGMT2Local = GMTDate
  Exit Function
Else
  Select Case Mid(SG_strTimeZone, 4, 1)
   Case "+"
    intTime = Mid(SG_strTimeZone, 5, 2)
    intMinute = Mid(SG_strTimeZone, 8, 2)
    If 0 <= intTime And intTime < 24 Then
     If 0 <= intMinute And intMinute < 60 Then
      dtTempDate = DateAdd("h", intTime, GMTDate)
      dtOutDate = DateAdd("n", intMinute, dtTempDate)
     Else
      gfdtGMT2Local = GMTDate
      Exit Function
     End If
    Else
     gfdtGMT2Local = GMTDate
     Exit Function
    End If
   Case "-"
    intTime = Mid(SG_strTimeZone, 5, 2)
    intMinute = Mid(SG_strTimeZone, 8, 2)
    If 0 <= intTime And intTime < 24 Then
     If 0 <= intMinute And intMinute < 60 Then
      dtTempDate = DateAdd("h", -intTime, GMTDate)
      dtOutDate = DateAdd("n", -intMinute, dtTempDate)
     Else
      gfdtGMT2Local = GMTDate
      Exit Function
     End If
    Else
     gfdtGMT2Local = GMTDate
     Exit Function
    End If
   Case Else
    gfdtGMT2Local = GMTDate
    Exit Function
   End Select
End If
gfdtGMT2Local = cdate(dtOutDate)

End Function