Public Sub mooSetDateFormat()

 

  'Sets the DateFormat Option in Oracle OLAP

   

  Dim boo As Boolean

  If Not oregistered Then: boo = regQ:

  'Check Im connected if not connect

  If Not o.connected Then

    boo = o.connect

    boo = o.connected

  Else

    boo = True

  End If

 

  'Connected so execute

  If boo = True Then

     boo = o.mooSetDateFormat("<DD><MTXT><YY>") ' Format should be <DD><MTXT><YY>

     boo = o.wrap_runNonQ("show DateFormat"): Debug.Print (o.mooGetDML)

  Else

   'Something went wrong print any error information

   Debug.Print "Unable to Connect"

   Debug.Print o.getlastmooerr

  End If

End Sub