Get Date Separator SAP B1

Dear All,
   Today , We will see, Get Date Separator SAP B1 through SDK.

  Friend Function GetDateSep() As String
        Dim oCompanyService As SAPbobsCOM.CompanyService = Nothing
        Dim oCompanyAdminInfo As AdminInfo = Nothing
        Dim strReturn As String = String.Empty
        'get company service
        oCompanyService = oApp.SAPCompany.GetCompanyService
        'get admin info
        oCompanyAdminInfo = oCompanyService.GetAdminInfo
        Try
            strReturn = oCompanyAdminInfo.DateSeparator
        Catch ex As Exception
            strReturn = String.Empty
        Finally
            If oCompanyService IsNot Nothing Then
                oCompanyService = Nothing
            End If
            If oCompanyAdminInfo IsNot Nothing Then
                oCompanyAdminInfo = Nothing
            End If
        End Try


        Return strReturn
    End Function