Dx21 - UDC

Select Language: | |

Class clsTimeZoneInfo

	'http://technet2.microsoft.com/WindowsServer/en/library/1cd05ce1-7eaa-4b03-bef5-772bb2d799eb1033.mspx?mfr=true
	
	Private objRS
	
	Private rtINDEX
	Private rtNAME
	Private rtDESCRIPTION
	Private rtOFFSET

	Private Sub Class_Initialize()
		Const adVarChar = 200
		Const adBoolean = 11
		Const adFldIsNullable = &H00000020
		Const adUseClient = 3
		Const adOpenDynamic = 2
		Const adLockOptimistic = 3
		
		rtINDEX = 0
		rtNAME = 1
		rtDESCRIPTION = 2
		rtOFFSET = 3
		
		Set objRS = CreateObject("ADODB.RecordSet")
		
		With objRS
			.CursorLocation = adUseClient  
			.Fields.Append "Index", adVarChar, 3         
			.Fields.Append "Name", adVarChar, 75   
			.Fields.Append "Description", adVarChar, 75
			.Fields.Append "Offset", adVarChar, 3
			
			.Open , , adOpenDynamic, adLockOptimistic  
		End With
		
		LoadTZInfo
		
	End Sub
	
	Private Sub Class_Terminate()
		On Error Resume Next
		
		objRS.Close
		Set objRS = Nothing
	End Sub

	Private Sub LoadTZInfo()
		AddRecord "000|Dateline Standard Time|(GMT-12:00) International Date Line West"
		AddRecord "001|Samoa Standard Time|(GMT-11:00) Midway Island, Samoa"
		AddRecord "002|Hawaiian Standard Time|(GMT-10:00) Hawaii"
		AddRecord "003|Alaskan Standard Time|(GMT-09:00) Alaska"
		AddRecord "004|Pacific Standard Time|(GMT-08:00) Pacific Time (US & Canada); Tijuana"
		AddRecord "010|Mountain Standard Time|(GMT-07:00) Mountain Time (US & Canada)"
		AddRecord "013|Mexico Standard Time 2|(GMT-07:00) Chihuahua, La Paz, Mazatlan"
		AddRecord "015|U.S. Mountain Standard Time|(GMT-07:00) Arizona"
		AddRecord "020|Central Standard Time|(GMT-06:00) Central Time (US and Canada)"
		AddRecord "025|Canada Central Standard Time|(GMT-06:00) Saskatchewan"
		AddRecord "030|Mexico Standard Time|(GMT-06:00) Guadalajara, Mexico City, Monterrey"
		AddRecord "033|Central America Standard Time|(GMT-06:00) Central America"
		AddRecord "035|Eastern Standard Time|(GMT-05:00) Eastern Time (US & Canada)"
		AddRecord "040|U.S. Eastern Standard Time|(GMT-05:00) Indiana (East)"
		AddRecord "045|S.A. Pacific Standard Time|(GMT-05:00) Bogota, Lima, Quito"
		AddRecord "050|Atlantic Standard Time|(GMT-04:00) Atlantic Time (Canada)"
		AddRecord "055|S.A. Western Standard Time|(GMT-04:00) Caracas, La Paz"
		AddRecord "056|Pacific S.A. Standard Time|(GMT-04:00) Santiago"
		AddRecord "060|Newfoundland and Labrador Standard Time|(GMT-03:30) Newfoundland & Labrador"
		AddRecord "065|E. South America Standard Time|(GMT-03:00) Brasilia"
		AddRecord "070|S.A. Eastern Standard Time|(GMT-03:00) Buenos Aires, Georgetown"
		AddRecord "073|Greenland Standard Time|(GMT-03:00) Greenland"
		AddRecord "075|Mid-Atlantic Standard Time|(GMT-02:00) Mid-Atlantic"
		AddRecord "080|Azores Standard Time|(GMT-01:00) Azores"
		AddRecord "083|Cape Verde Standard Time|(GMT-01:00) Cape Verde Islands"
		AddRecord "085|GMT Standard Time|(GMT) Greenwich Mean Time : Dublin, Edinburgh, Lisbon, London"
		AddRecord "090|Greenwich Standard Time|(GMT) Casablanca, Monrovia"
		AddRecord "095|Central Europe Standard Time|(GMT+01:00) Belgrade, Bratislava, Budapest, Ljubljana, Prague"
		AddRecord "100|Central European Standard Time|(GMT+01:00) Sarajevo, Skopje, Warsaw, Zagreb"
		AddRecord "105|Romance Standard Time|(GMT+01:00) Brussels, Copenhagen, Madrid, Paris"
		AddRecord "110|W. Europe Standard Time|(GMT+01:00) Amsterdam, Berlin, Bern, Rome, Stockholm, Vienna"
		AddRecord "113|W. Central Africa Standard Time|(GMT+01:00) West Central Africa"
		AddRecord "115|E. Europe Standard Time|(GMT+02:00) Bucharest"
		AddRecord "120|Egypt Standard Time|(GMT+02:00) Cairo"
		AddRecord "125|FLE Standard Time|(GMT+02:00) Helsinki, Kyiv, Riga, Sofia, Tallinn, Vilnius"
		AddRecord "130|GTB Standard Time|(GMT+02:00) Athens, Istanbul, Minsk"
		AddRecord "135|Israel Standard Time|(GMT+02:00) Jerusalem"
		AddRecord "140|South Africa Standard Time|(GMT+02:00) Harare, Pretoria"
		AddRecord "145|Russian Standard Time|(GMT+03:00) Moscow, St. Petersburg, Volgograd"
		AddRecord "150|Arab Standard Time|(GMT+03:00) Kuwait, Riyadh"
		AddRecord "155|E. Africa Standard Time|(GMT+03:00) Nairobi"
		AddRecord "158|Arabic Standard Time|(GMT+03:00) Baghdad"
		AddRecord "160|Iran Standard Time|(GMT+03:30) Tehran"
		AddRecord "165|Arabian Standard Time|(GMT+04:00) Abu Dhabi, Muscat"
		AddRecord "170|Caucasus Standard Time|(GMT+04:00) Baku, Tbilisi, Yerevan"
		AddRecord "175|Transitional Islamic State of Afghanistan Standard Time|(GMT+04:30) Kabul"
		AddRecord "180|Ekaterinburg Standard Time|(GMT+05:00) Ekaterinburg"
		AddRecord "185|West Asia Standard Time|(GMT+05:00) Islamabad, Karachi, Tashkent"
		AddRecord "190|India Standard Time|(GMT+05:30) Chennai, Kolkata, Mumbai, New Delhi"
		AddRecord "193|Nepal Standard Time|(GMT+05:45) Kathmandu"
		AddRecord "195|Central Asia Standard Time|(GMT+06:00) Astana, Dhaka"
		AddRecord "200|Sri Lanka Standard Time|(GMT+06:00) Sri Jayawardenepura"
		AddRecord "201|N. Central Asia Standard Time|(GMT+06:00) Almaty, Novosibirsk"
		AddRecord "203|Myanmar Standard Time|(GMT+06:30) Yangon (Rangoon)"
		AddRecord "205|S.E. Asia Standard Time|(GMT+07:00) Bangkok, Hanoi, Jakarta"
		AddRecord "207|North Asia Standard Time|(GMT+07:00) Krasnoyarsk"
		AddRecord "210|China Standard Time|(GMT+08:00) Beijing, Chongqing, Hong Kong SAR, Urumqi"
		AddRecord "215|Singapore Standard Time|(GMT+08:00) Kuala Lumpur, Singapore"
		AddRecord "220|Taipei Standard Time|(GMT+08:00) Taipei"
		AddRecord "225|W. Australia Standard Time|(GMT+08:00) Perth"
		AddRecord "227|North Asia East Standard Time|(GMT+08:00) Irkutsk, Ulaan Bataar"
		AddRecord "230|Korea Standard Time|(GMT+09:00) Seoul"
		AddRecord "235|Tokyo Standard Time|(GMT+09:00) Osaka, Sapporo, Tokyo"
		AddRecord "240|Yakutsk Standard Time|(GMT+09:00) Yakutsk"
		AddRecord "245|A.U.S. Central Standard Time|(GMT+09:30) Darwin"
		AddRecord "250|Cen. Australia Standard Time|(GMT+09:30) Adelaide"
		AddRecord "255|A.U.S. Eastern Standard Time|(GMT+10:00) Canberra, Melbourne, Sydney"
		AddRecord "260|E. Australia Standard Time|(GMT+10:00) Brisbane"
		AddRecord "265|Tasmania Standard Time|(GMT+10:00) Hobart"
		AddRecord "270|Vladivostok Standard Time|(GMT+10:00) Vladivostok"
		AddRecord "275|West Pacific Standard Time|(GMT+10:00) Guam, Port Moresby"
		AddRecord "280|Central Pacific Standard Time|(GMT+11:00) Magadan, Solomon Islands, New Caledonia"
		AddRecord "285|Fiji Islands Standard Time|(GMT+12:00) Fiji Islands, Kamchatka, Marshall Islands"
		AddRecord "290|New Zealand Standard Time|(GMT+12:00) Auckland, Wellington"
		AddRecord "300|Tonga Standard Time|(GMT+13:00) Nuku'alofa"
	End Sub
	
	Private Sub AddRecord(strData)
		Dim aryData:	aryData = Split(strData,"|")
		
		If Not objRS.EOF Then objRS.MoveLast
		
		objRS.AddNew
		
		objRS("Index") = aryData(0)
		objRS("Name") = aryData(1)
		objRS("Description") = aryData(2)
		objRS("Offset") = Mid(aryData(2),5,3)		
		
		objRS.Update
		
		Erase aryData
	End Sub
	
	Private Function GetValue(intReturnType)
		Select Case intReturnType
			Case rtINDEX:		GetValue = objRS("Index")
			Case rtNAME:		GetValue = objRS("Name")
			Case rtDESCRIPTION:	GetValue = objRS("Description")
			Case rtOFFSET:		GetValue = objRS("Offset")
		End Select
		
		objRS.Filter = 0
	End Function

	'------------------------------------------------------------------------------------------
	
	Public Function ResolveIndex(intIndex, intReturnType)
		If (LEN(intIndex) > 3) Or Not IsNumeric(intIndex) Then 
			Err.Raise vbError+100,"clsTimeZoneInfo","Invalid Index Number"
			Exit Function
		End If
		
		IF intReturnType = rtINDEX Then 
			ResolveIndex = CStr(intIndex)
			Exit Function
		End If
		
		'Convert to String
		Dim strIndex:	strIndex = CStr(intIndex)
		If Len(intIndex) = 1 Then strIndex = "00" & intIndex
		If Len(intIndex) = 2 Then strIndex = "0" & intIndex
		
		'Find Record
		If Not objRS.BOF Then objrs.MoveFirst
		objRS.Filter = "Index='" & strIndex & "'"
		
		If objRS.EOF Then 
			Err.Raise vbError+101,"clsTimeZoneInfo","Index does not exist"
			Exit Function
		End If
		
		ResolveIndex = GetValue(intReturnType)	
	End Function

	Public Function ResolveOffset(intOffset, intReturnType)
		Dim strOffset
		
		If Not IsNumeric(intOffset) Or Abs(intOffset) > 24 Then
			Err.Raise vbError+200,"clsTimeZoneInfo","Invalid Offset"
			Exit Function
		End If
		
		If intOffset > 0 Then
			If Len(intOffset) = 1 Then strOffset = "0"
			strOffset = "+" & strOffset & CStr(intOffset)
		Else
			intOffset = Abs(intOffset)
			If Len(intOffset) = 1 Then strOffset = "0"
			strOffset = "-" & strOffset & intOffset
		End If
		
		If intReturnType = rtOFFSET Then
			ResolveOffset = CStr(intOffset)
			Exit Function
		End If
		
		If Not objRS.BOF Then objRS.MoveFirst
		objRS.Filter = "Offset='" & strOffset & "'"
		
		If objRS.EOF Then
			Err.Raise vbError+201,"clsTimeZoneInfo","Offset not found"
			Exit Function
		End If
		
		ResolveOffset = GetValue(intReturnType)
	End Function

	Public Function ResolveName(strName, intReturnType)
		If intReturnType = rtNAME Then
			ResolveName = strname
			Exit Function
		End If
		
		If Not objRS.BOF Then objRS.MoveFirst
		objRS.Filter = "Name Like '%" & strName & "%'"
		
		If objRS.EOF = True Then
			Err.Raise vbError+300,"clsTimeZoneInfo","Name Not Found"
			Exit Function
		End If
		
		ResolveName = GetValue(intReturnType)
	End Function

	Public Function ResolveDescription(strDescription, intReturnType)
		If intReturnType = rtDESCRIPTION Then
			ResolveDescription = strDescription
			Exit Function
		End If
		
		If Not objRS.BOF Then objRS.MoveFirst
		objRS.Filter = "Description Like '%" & strDescription & "%'"
		
		If objRS.EOF = True Then
			Err.Raise vbError+400,"clsTimeZoneInfo","Description Not Found"
			Exit Function
		End If
		
		ResolveDescription = GetValue(intReturnType)
	End Function
	
	'////////////////////////////////////////////////////
	'Copyright © 2007 Dx21, LLC
	'	a Washington Limited Liability Company
	'	All Rights Reserved
	'
	'Use of this script is subject to the terms and conditions
	'as listed in our public Copyright and Disclaimer statements.
	'Those statements must be agreed to prior to use of this
	'script:
	'
	'http://www.dx21.com/home/tos/tos.asp
	'////////////////////////////////////////////////////
	
End Class

Public Class clsTimeZoneInfo
    'Add Resource: ADODB

    'http://technet2.microsoft.com/WindowsServer/en/library/1cd05ce1-7eaa-4b03-bef5-772bb2d799eb1033.mspx?mfr=true

    Private objRS As ADODB.Recordset

    Public Enum ReturnType
        rtINDEX = 0
        rtNAME = 1
        rtDESCRIPTION = 2
        rtOFFSET = 3
    End Enum

    Public Sub New()
        objRS = New ADODB.Recordset

        With objRS
            .CursorLocation = ADODB.CursorLocationEnum.adUseClient
            .Fields.Append("Index", ADODB.DataTypeEnum.adVarChar, 3)
            .Fields.Append("Name", ADODB.DataTypeEnum.adVarChar, 75)
            .Fields.Append("Description", ADODB.DataTypeEnum.adVarChar, 75)
            .Fields.Append("Offset", ADODB.DataTypeEnum.adVarChar, 3)

            .Open(, , ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
        End With

        LoadTZInfo()
    End Sub

    Protected Overrides Sub Finalize()
        On Error Resume Next

        objRS.Close()
        objRS = Nothing
    End Sub

    Private Sub LoadTZInfo()
        AddRecord("000|Dateline Standard Time|(GMT-12:00) International Date Line West")
        AddRecord("001|Samoa Standard Time|(GMT-11:00) Midway Island, Samoa")
        AddRecord("002|Hawaiian Standard Time|(GMT-10:00) Hawaii")
        AddRecord("003|Alaskan Standard Time|(GMT-09:00) Alaska")
        AddRecord("004|Pacific Standard Time|(GMT-08:00) Pacific Time (US & Canada); Tijuana")
        AddRecord("010|Mountain Standard Time|(GMT-07:00) Mountain Time (US & Canada)")
        AddRecord("013|Mexico Standard Time 2|(GMT-07:00) Chihuahua, La Paz, Mazatlan")
        AddRecord("015|U.S. Mountain Standard Time|(GMT-07:00) Arizona")
        AddRecord("020|Central Standard Time|(GMT-06:00) Central Time (US and Canada)")
        AddRecord("025|Canada Central Standard Time|(GMT-06:00) Saskatchewan")
        AddRecord("030|Mexico Standard Time|(GMT-06:00) Guadalajara, Mexico City, Monterrey")
        AddRecord("033|Central America Standard Time|(GMT-06:00) Central America")
        AddRecord("035|Eastern Standard Time|(GMT-05:00) Eastern Time (US & Canada)")
        AddRecord("040|U.S. Eastern Standard Time|(GMT-05:00) Indiana (East)")
        AddRecord("045|S.A. Pacific Standard Time|(GMT-05:00) Bogota, Lima, Quito")
        AddRecord("050|Atlantic Standard Time|(GMT-04:00) Atlantic Time (Canada)")
        AddRecord("055|S.A. Western Standard Time|(GMT-04:00) Caracas, La Paz")
        AddRecord("056|Pacific S.A. Standard Time|(GMT-04:00) Santiago")
        AddRecord("060|Newfoundland and Labrador Standard Time|(GMT-03:30) Newfoundland & Labrador")
        AddRecord("065|E. South America Standard Time|(GMT-03:00) Brasilia")
        AddRecord("070|S.A. Eastern Standard Time|(GMT-03:00) Buenos Aires, Georgetown")
        AddRecord("073|Greenland Standard Time|(GMT-03:00) Greenland")
        AddRecord("075|Mid-Atlantic Standard Time|(GMT-02:00) Mid-Atlantic")
        AddRecord("080|Azores Standard Time|(GMT-01:00) Azores")
        AddRecord("083|Cape Verde Standard Time|(GMT-01:00) Cape Verde Islands")
        AddRecord("085|GMT Standard Time|(GMT) Greenwich Mean Time : Dublin, Edinburgh, Lisbon, London")
        AddRecord("090|Greenwich Standard Time|(GMT) Casablanca, Monrovia")
        AddRecord("095|Central Europe Standard Time|(GMT+01:00) Belgrade, Bratislava, Budapest, Ljubljana, Prague")
        AddRecord("100|Central European Standard Time|(GMT+01:00) Sarajevo, Skopje, Warsaw, Zagreb")
        AddRecord("105|Romance Standard Time|(GMT+01:00) Brussels, Copenhagen, Madrid, Paris")
        AddRecord("110|W. Europe Standard Time|(GMT+01:00) Amsterdam, Berlin, Bern, Rome, Stockholm, Vienna")
        AddRecord("113|W. Central Africa Standard Time|(GMT+01:00) West Central Africa")
        AddRecord("115|E. Europe Standard Time|(GMT+02:00) Bucharest")
        AddRecord("120|Egypt Standard Time|(GMT+02:00) Cairo")
        AddRecord("125|FLE Standard Time|(GMT+02:00) Helsinki, Kyiv, Riga, Sofia, Tallinn, Vilnius")
        AddRecord("130|GTB Standard Time|(GMT+02:00) Athens, Istanbul, Minsk")
        AddRecord("135|Israel Standard Time|(GMT+02:00) Jerusalem")
        AddRecord("140|South Africa Standard Time|(GMT+02:00) Harare, Pretoria")
        AddRecord("145|Russian Standard Time|(GMT+03:00) Moscow, St. Petersburg, Volgograd")
        AddRecord("150|Arab Standard Time|(GMT+03:00) Kuwait, Riyadh")
        AddRecord("155|E. Africa Standard Time|(GMT+03:00) Nairobi")
        AddRecord("158|Arabic Standard Time|(GMT+03:00) Baghdad")
        AddRecord("160|Iran Standard Time|(GMT+03:30) Tehran")
        AddRecord("165|Arabian Standard Time|(GMT+04:00) Abu Dhabi, Muscat")
        AddRecord("170|Caucasus Standard Time|(GMT+04:00) Baku, Tbilisi, Yerevan")
        AddRecord("175|Transitional Islamic State of Afghanistan Standard Time|(GMT+04:30) Kabul")
        AddRecord("180|Ekaterinburg Standard Time|(GMT+05:00) Ekaterinburg")
        AddRecord("185|West Asia Standard Time|(GMT+05:00) Islamabad, Karachi, Tashkent")
        AddRecord("190|India Standard Time|(GMT+05:30) Chennai, Kolkata, Mumbai, New Delhi")
        AddRecord("193|Nepal Standard Time|(GMT+05:45) Kathmandu")
        AddRecord("195|Central Asia Standard Time|(GMT+06:00) Astana, Dhaka")
        AddRecord("200|Sri Lanka Standard Time|(GMT+06:00) Sri Jayawardenepura")
        AddRecord("201|N. Central Asia Standard Time|(GMT+06:00) Almaty, Novosibirsk")
        AddRecord("203|Myanmar Standard Time|(GMT+06:30) Yangon (Rangoon)")
        AddRecord("205|S.E. Asia Standard Time|(GMT+07:00) Bangkok, Hanoi, Jakarta")
        AddRecord("207|North Asia Standard Time|(GMT+07:00) Krasnoyarsk")
        AddRecord("210|China Standard Time|(GMT+08:00) Beijing, Chongqing, Hong Kong SAR, Urumqi")
        AddRecord("215|Singapore Standard Time|(GMT+08:00) Kuala Lumpur, Singapore")
        AddRecord("220|Taipei Standard Time|(GMT+08:00) Taipei")
        AddRecord("225|W. Australia Standard Time|(GMT+08:00) Perth")
        AddRecord("227|North Asia East Standard Time|(GMT+08:00) Irkutsk, Ulaan Bataar")
        AddRecord("230|Korea Standard Time|(GMT+09:00) Seoul")
        AddRecord("235|Tokyo Standard Time|(GMT+09:00) Osaka, Sapporo, Tokyo")
        AddRecord("240|Yakutsk Standard Time|(GMT+09:00) Yakutsk")
        AddRecord("245|A.U.S. Central Standard Time|(GMT+09:30) Darwin")
        AddRecord("250|Cen. Australia Standard Time|(GMT+09:30) Adelaide")
        AddRecord("255|A.U.S. Eastern Standard Time|(GMT+10:00) Canberra, Melbourne, Sydney")
        AddRecord("260|E. Australia Standard Time|(GMT+10:00) Brisbane")
        AddRecord("265|Tasmania Standard Time|(GMT+10:00) Hobart")
        AddRecord("270|Vladivostok Standard Time|(GMT+10:00) Vladivostok")
        AddRecord("275|West Pacific Standard Time|(GMT+10:00) Guam, Port Moresby")
        AddRecord("280|Central Pacific Standard Time|(GMT+11:00) Magadan, Solomon Islands, New Caledonia")
        AddRecord("285|Fiji Islands Standard Time|(GMT+12:00) Fiji Islands, Kamchatka, Marshall Islands")
        AddRecord("290|New Zealand Standard Time|(GMT+12:00) Auckland, Wellington")
        AddRecord("300|Tonga Standard Time|(GMT+13:00) Nuku'alofa")
    End Sub

    Private Sub AddRecord(ByVal strData As String)
        Dim aryData As String() : aryData = Split(strData, "|")

        If Not objRS.EOF Then objRS.MoveLast()

        objRS.AddNew()

        objRS("Index").Value = aryData(0)
        objRS("Name").Value = aryData(1)
        objRS("Description").Value = aryData(2)
        objRS("Offset").Value = Mid(aryData(2), 5, 3)

        objRS.Update()

        Erase aryData
    End Sub

    Private Function GetValue(ByVal intReturnType As ReturnType) As String

        Select Case intReturnType
            Case ReturnType.rtINDEX : GetValue = objRS("Index").Value.ToString
            Case ReturnType.rtNAME : GetValue = objRS("Name").Value.ToString
            Case ReturnType.rtDESCRIPTION : GetValue = objRS("Description").Value.ToString
            Case ReturnType.rtOFFSET : GetValue = objRS("Offset").Value.ToString
            Case Else : GetValue = ""
        End Select

        objRS.Filter = 0
    End Function

    '------------------------------------------------------------------------------------------

    Public Function ResolveIndex(ByVal intIndex As Integer, ByVal intReturnType As ReturnType) As String
        If (intIndex.ToString.Length > 3) Or Not IsNumeric(intIndex) Then
            Err.Raise(vbObjectError + 100, "clsTimeZoneInfo", "Invalid Index Number")
            ResolveIndex = ""
            Exit Function
        End If

        If intReturnType = ReturnType.rtINDEX Then
            ResolveIndex = intIndex.ToString
            Exit Function
        End If

        'Convert to String
        Dim strIndex As String : strIndex = CStr(intIndex)
        If intIndex.ToString.Length = 1 Then strIndex = "00" & intIndex
        If intIndex.ToString.Length = 2 Then strIndex = "0" & intIndex

        'Find Record
        If Not objRS.BOF Then objRS.MoveFirst()
        objRS.Filter = "Index='" & strIndex & "'"

        If objRS.EOF Then
            Err.Raise(vbObjectError + 101, "clsTimeZoneInfo", "Index does not exist")
            ResolveIndex = ""
            Exit Function
        End If

        ResolveIndex = GetValue(intReturnType)
    End Function

    Public Function ResolveOffset(ByVal intOffset As Integer, ByVal intReturnType As ReturnType) As String
        Dim strOffset As String = ""

        If Not IsNumeric(intOffset) Or Math.Abs(intOffset) > 24 Then
            Err.Raise(vbObjectError + 200, "clsTimeZoneInfo", "Invalid Offset")
            ResolveOffset = ""
            Exit Function
        End If

        If intOffset > 0 Then
            If intOffset.ToString.Length = 1 Then strOffset = "0"
            strOffset = "+" & strOffset & intOffset.ToString
        Else
            intOffset = Math.Abs(intOffset)
            If intOffset.ToString.Length = 1 Then strOffset = "0"
            strOffset = "-" & strOffset & intOffset
        End If

        If intReturnType = ReturnType.rtOFFSET Then
            ResolveOffset = intOffset.ToString
            Exit Function
        End If

        If Not objRS.BOF Then objRS.MoveFirst()
        objRS.Filter = "Offset='" & strOffset & "'"

        If objRS.EOF Then
            Err.Raise(vbObjectError + 201, "clsTimeZoneInfo", "Offset not found")
            ResolveOffset = ""
            Exit Function
        End If

        ResolveOffset = GetValue(intReturnType)
    End Function

    Public Function ResolveName(ByVal strName As String, ByVal intReturnType As ReturnType) As String
        If intReturnType = ReturnType.rtNAME Then
            ResolveName = strName
            Exit Function
        End If

        If Not objRS.BOF Then objRS.MoveFirst()
        objRS.Filter = "Name Like '%" & strName & "%'"

        If objRS.EOF = True Then
            Err.Raise(vbObjectError + 300, "clsTimeZoneInfo", "Name Not Found")
            ResolveName = ""
            Exit Function
        End If

        ResolveName = GetValue(intReturnType)
    End Function

    Public Function ResolveDescription(ByVal strDescription As String, ByVal intReturnType As ReturnType) As String
        If intReturnType = ReturnType.rtDESCRIPTION Then
            ResolveDescription = strDescription
            Exit Function
        End If

        If Not objRS.BOF Then objRS.MoveFirst()
        objRS.Filter = "Description Like '%" & strDescription & "%'"

        If objRS.EOF = True Then
            Err.Raise(vbObjectError + 400, "clsTimeZoneInfo", "Description Not Found")
            ResolveDescription = ""
            Exit Function
        End If

        ResolveDescription = GetValue(intReturnType)
    End Function

    '////////////////////////////////////////////////////
    'Copyright © 2007 Dx21, LLC
    '	a Washington Limited Liability Company
    '	All Rights Reserved
    '
    'Use of this script is subject to the terms and conditions
    'as listed in our public Copyright and Disclaimer statements.
    'Those statements must be agreed to prior to use of this
    'script:
    '
    'http://www.dx21.com/home/tos/tos.asp
    '////////////////////////////////////////////////////
End Class

	FAQs \| Terms Of Use \| Privacy Policy \| Contact Us
	Copyright © 1997 - 2010 Dx21, LLC. All rights reserved. Dx21, LLC a Washington Limited Liability Company Page Rendered at: 9/8/2010 10:25:06 PM for Unknown

User Defined Class Library