Getting Local Time Using Zip Code in Visual Basic 2008

Submitted by janobe on Thursday, May 8, 2014 - 23:31.

Today, I will teach you how to get the local time by using a zip code in Visual Basic 2008. If you want to find out the time in any countries around the world, all you have to do is to type the zip code of the country that you desire and then its local time will automatically appear. In here, I use the web service proxy to get the local time of a certain zip code. Let’s begin: Open the Visual Basic 2008, create a new Windows Application and do the Form just like this. first form

After that, go the solution explorer, right click and hit “Add Service references”. second form

Then, right click the folder of “Service references” and hit again the “Add Service references”. Add this “http://www.ripedev.com/webservices/LocalTime.asmx” for the address and type “local_time” in the Namespace. After that, hit ok. third form

Then, you will have now your “Service References”. forth form

Double click the “Get Time” Button and do this following code for getting the local time.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        'DECLARE THE VARIABLE AND CREATE AN INSTANCE OF THE WEB SERVICE PROXY CLASS
        Dim localtime As New local_time.LocalTimeSoapClient
        Dim formattime As Date
        Dim addtime As Integer
 
        'DISPLAY THE PROPER CURSOR
        Cursor = Cursors.WaitCursor
        'PROCESSES ALL THE WINDOWS MESSAGE THAT IS CURRENTLY IN THE MESSAGE QUEUE.
        Application.DoEvents()
 
        Try
            'CHECKING IF THE INPUT IS A NUMERIC VALUE AND NOT A NULL VALUE. 
            If IsNumeric(txtzipcode.Text) = True And txtzipcode.Text <> "" Then
                'RETRIEVE THE LOCAL TIME FROM THE WEB SERVICE.
                formattime = localtime.LocalTimeByZipCode(txtzipcode.Text)
                'THE LOCAL TIME FROM THE WEB SERVICE IS DELAYED FOR 1 HOUR, 
                ' THEREFOR, CREATE A FORMULA THAT WILL ADD 1 HOUR IN THE TIME.
                addtime = Format(formattime, "hh") + 1
                'SET THE EXACT TIME IN THE TEXTBOX(txtlocaltime).
                txtlocaltime.Text = addtime & ":" & Format(formattime, "mm:ss")
            Else
                MsgBox("Server was unable to process request. The zip code must be correct!", MsgBoxStyle.Exclamation)
            End If
        Catch exp As Exception
            MsgBox("Server was unable to process request. The zip code must be correct!" & exp.Message, MsgBoxStyle.Exclamation)
            Exit Sub
        Finally
 
            'RESET THE CURSOR TO DEFAULT.
            Cursor = Cursors.Default
        End Try
 
    End Sub

Go to the design views and double click the Form. Do this following code to disable the TextBox that the local time appears.

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'DISABLE THE TEXTBOX WHEREIN THE LOCAL TIME WILL APPEAR.
        txtlocaltime.Enabled = False
    End Sub

Add new comment

59 views