Office Systems Developer : Portuguese Related

Visual Studio Class Library para o Microsoft Access – C# (Parte1)

Joao Livio — Wed, 04 Nov 2009 11:35:00 GMT

Nesta série de vamos compreender como criar, gerir e implementar um Biblioteca (Class Library) para o Microsoft Access. Vamos utilizar o Visual Studio 2008, C#, Visual Basic e o Microsoft Access 2007.

Estes exemplos provêm da Class Library que criei este ano e que publiquei no Codeplex > aqui

Porque implementar uma Biblioteca de Classes no Microsoft Access?

Se implementarmos uma Classe e expormos a mesma, estamos a permitir que o Microsoft Access por si possa utilizar os seus recursos , ou seja, podemos utilizar as facilidades do Microsoft Framework no Código VBA, bastando para tal adicionar uma referência para o DLL. Podemos também utiliza-la em outro Projecto Visual Studio como por exemplo um Add-in.

Máquina cliente Requisitos

Microsoft Access 2007

Microsoft Framework 2.0 ou 3.5

Vamos necessitar das seguintes referências:

Microsoft Office 12.0 Object Library

Interop.Microsoft.Office.Interop.Access

No Microsoft Access

Ukase Add-ins

O Básico

Criar A Biblioteca
Configurações iniciais
Definições de Visibilidade COM
A Primeira Propriedade
Implementação COM

Código

A Classe

[ComVisible(true)]
[Guid("82382232-F1D7-4048-A1E0-F2879BCA0610")]
[ClassInterface(ClassInterfaceType.None)]
[ProgId("M3CommonFunctions")]
public class M3CommonFunctions : IM3CommonFunctions

Propriedade

Assembly asm = Assembly.GetExecutingAssembly();

     public Version GetMACLVersion
     {   
         get {  return asm.GetName().Version; }
     }

Interface

[Guid("4ECAAC7B-711C-4ac0-BBFC-58C4E3E8EE56")]
   [InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
   public interface IM3CommonFunctions
   {
       [DispId(1)]
       Version GetMACLVersion  { get; }
   }

VISUAL BASIC

<ComClass(Namespace_Comuns.ClassId, Namespace_Comuns.InterfaceId, Namespace_Comuns.EventsId)> _
Public Class Namespace_Comuns

    Private m_VersaoBiblioteca As String

#Region "COM GUIDs"
    ' These  GUIDs provide the COM identity for this class 
    ' and its COM interfaces. If you change them, existing 
    ' clients will no longer be able to access the class.
    Public Const ClassId As String = "6b6c0965-e6a5-4089-afbb-0ec787efe024"
    Public Const InterfaceId As String = "d8c53404-58b4-4f28-9d2f-4912f8cb6723"
    Public Const EventsId As String = "165be10c-a5a6-4d57-ac49-0ad7a8bd1cd5"
#End Region

    ' A creatable COM class must have a Public Sub New() 
    ' with no parameters, otherwise, the class will not be 
    ' registered in the COM registry and cannot be created 
    ' via CreateObject.
    Public Sub New()
        MyBase.New()
    End Sub

    Public ReadOnly Property VersaoBiblioteca() As String
        Get
            m_VersaoBiblioteca = My.Application.Info.Version.ToString
            Return m_VersaoBiblioteca
        End Get
    End Property
End Class

VBA

Private Sub Command0_Click()
    Dim obj As New Ukase.M3CommonFunctions
    MsgBox obj.GetMACLVersion
End Sub

Screencast

DevDays 2009

Joao Livio — Wed, 14 Jan 2009 20:50:00 GMT

Participe no grande evento técnico do ano e aproveite ao máximo a agenda do DevDays!

São 2 dias de conteúdos técnicos avançados, com mais de 50 sessões e 40 laboratórios, onde irá conhecer as mais recentes novidades da tecnologia Microsoft e contactar com reconhecidos especialistas das nossas Comunidades Técnicas.

> 2 dias de conteúdos técnicos avançados
> Mais de 50 sessões e cerca de 40 laboratórios
> Um evento para Programadores, Arquitectos e Designers

Contacte com Especialistas
Partilhe experiências, troque ideias, e aprenda com quem tem desafios semelhantes aos seus.

Inspire-se, divirta-se e mergulhe na Inovação
Encontre as melhores ideias e faça parte deste momento!

Aprenda sobre as mais recentes novidades tecnológicas como o Windows 7, Internet Explorer 8, Windows Azure e aprofunde os seus conhecimentos sobre desenvolvimento, web, design e experiência de utilização.

Venha ao DevDays!

ñ Saiba como o TeamSystem pode melhorar o desempenho da sua Equipa, tornando-a mais produtiva e eficiente

ñ A nova experiência de interacção digital com a Microsoft Surface

ñ Novos modelos de negócio potenciados pelo Windows Azure

ñ Veja como o Windows 7 e o IE8 elimina barreiras entre software, services e dispositivos e trazem ritmo acrescido ao seu dia-a-dia e da sua empresa

ñ Biztalk 2009 com uma solução de RFID muito interessante

ñ Consiga um novo nível de soluções Web com o Silverlight

ñ O potencial da informação geo-referenciada com o SQL Server 2008

Principais Conteúdos Temáticos
> Visual Studio 10 e .Net 4

> Microsoft Surface
> Windows 7 e Internet Explorer 8
> Windows Azure e Azure Services Platform
> Biztalk 2009
> Silverlight e WPF
> SQL Server 2008

> ASP.NET

> Windows Live Services

Participe!

Valor de Inscrição: 100€ (com IVA incluído)

January 2009 - Technical Rollup

Joao Livio — Thu, 08 Jan 2009 04:07:00 GMT

Secure and Monitor Your Windows and Office Environment -- Join the Beta Now http://co1piltwb.partners.extranet.microsoft.com/mcoeredir/mcoeredirect.aspx?linkId=11014551&s1=68628015-2ccc-cbc7-31b9-0e76c3415474

Project Codename Sundance provides you with an end-to-end solution to help your organization plan, deploy, and monitor security baselines of Windows operating systems and Microsoft Office 2007 applications. The beta release is available now for your review through January 6, 2009. After joining the beta review program, bookmark this link to the program site to get the latest information about upcoming events.

Outlook new KB´s

Outlook 2002 Win32 EN: Description of the Outlook 2002 hotfix package: September 10, 2008

http://support.microsoft.com/kb/956642/EN-US

Outlook 2003 Win32 EN: Description of the Outlook 2003 Junk E-mail Filter update: December 9, 2008

http://support.microsoft.com/kb/958620/EN-US

Outlook 2003 Win32 EN: When you try to print multiple copies of an e-mail message in Outlook 2003, all the copies of the e-mail message are stapled together

http://support.microsoft.com/kb/959633/EN-US

Outlook 2003 Win32 EN: Description of the Outlook 2003 hotfix package (Engmui.msp, Olkintl.msp): December 16, 2008

http://support.microsoft.com/kb/960103/EN-US

Outlook 2003 Win32 EN: Description of the Outlook 2003 hotfix package (Riched20.msp): December 16, 2008

http://support.microsoft.com/kb/960421/EN-US

Outlook 2007 Win32 ML: Description of the Outlook 2007 Junk E-mail Filter update: December 9, 2008

http://support.microsoft.com/kb/958619/EN-US

Outlook 2007 Win32 ML: Outlook 2007 may stop responding when you select an e-mail message that is restricted by Information Rights Management

http://support.microsoft.com/kb/959632/EN-US

Outlook 2007 Win32 ML: Description of the Outlook 2007 hotfix package (Mso.msp,Outlook.msp): December 16, 2008

http://support.microsoft.com/kb/959642/EN-US

Outlook 2007 Win32 ML: Description of the Outlook 2007 hotfix package (Cpao.msp): December 16, 2008

http://support.microsoft.com/kb/960501/EN-US

Outlook 2007 Win32 ML: Description of the Outlook 2007 hotfix package (Mso.msp, Outlook.msp): December 16, 2008

http://support.microsoft.com/kb/960535/EN-US

Outlook 2007 Win32 ML: How to remove the Live Search Maps Add-in for Outlook

http://support.microsoft.com/kb/961081/EN-US

Outlook 2007 Win32 ML: Error message when you start Outlook 2007: "Cannot start Microsoft Office Outlook Cannot open Outlook window"

http://support.microsoft.com/kb/961100/EN-US

Quando se tenta colar dados directamente do Excel 2007 para o Microsoft Access 2007 é gerado erro.

Joao Livio — Wed, 17 Dec 2008 14:27:17 GMT

Parece que têm havido alguns problemas com a actualização

Security Update for Microsoft Office Excel 2007 (KB958437).

O resutado é um erro quando se tenta colar dados directamente do Excel 2007 para o Microsoft Access 2007

Os dados na Área de Transferência estão danificados, por isso o Microsoft Access não consegue colá-los. / Pode haver um erro na Área de Transferência ou pode não existir memória suficiente. Tente novamente a operação.

Para já não consigo arranjar nenhuma solução, para resolver o problema desistale esta actualização. Vou dando notícias.

Reparar Ficheiros Office - Repair Office Files

Joao Livio — Thu, 30 Oct 2008 19:15:09 GMT

MDB, DBF, XLS, XLW and DOC Files Recover

ENGLISH

I am testing to recover files in format:

Access (MBD) - Until now 0 Offers
Dbase e FoxPro (DBF) - Until now 0 Offers
Excel (XLS e XLW) - Until now 0 Offers
Word (DOC)- Until now 0 Offers

I'am going to offer the first 3 Repairs for each format

Contact: livio@live.com.pt

PORTUGUÊS

Estou a iniciar testes para reparar ficheiros:

Access (MBD) - Até agora 0 ofertas
Dbase e FoxPro (DBF) - Até agora 0 ofertas
Excel (XLS e XLW) - Até agora 0 ofertas
Word (DOC) - Até agora 0 ofertas

Vou oferecer as primeiras 3 recuperações de cada Formato

Contacto: livio@live.com.pt

EVENTO: Architect Cloud Computing

Joao Livio — Thu, 30 Oct 2008 13:25:00 GMT

Cloud Computing

Um conceito global. Uma nova arquitectura!

O Cloud Computing é um termo simples que representa a abstracção para uma complexidade de padrões, serviços e infra-estrutura. É considerado por muitos, como uma forma escalável, elástica e económica de implementar soluções, representando uma mudança significativa de paradigmas.
Neste contexto, participe neste fórum de Arquitectos

Agenda

09:00
Welcome coffee
09:30
Microsoft's Cloud Computing Platform : What it is and when to use it
Cloud computing looks like the biggest change to hit our industry in many years. The advent of cheap, scalable computing power available over the Internet will affect almost everybody who works in IT. But taking advantage of this shift requires understanding this new approach and how to exploit it.
In this half-day seminar, David Chappell looks at the big picture of cloud computing, then focuses in on Microsoft's new cloud platform technologies.
David Chappell
13:00
Almoço (livre)
14:30 / 18:00
Sessões a desvendar após o PDC (Professional Development Conference)

Architect David Chappell

David Chappell is Principal of Chappell & Associates in San Francisco, California.
Through his speaking, writing, and consulting, he helps software professionals
around the world understand, use, and make better decisions about new
technologies. David has been the keynote speaker for many conferences
and events on five continents, and his seminars have been attended by
tens of thousands of developers, architects, and decision makers in forty
countries. David's books have been translated into ten languages and used
regularly in courses at MIT, ETH Zurich, and other educational institutions.
In his consulting practice, he has helped clients such as Hewlett-Packard,
IBM, Microsoft, Stanford University, and Target Corporation adopt new
technologies, market new products, train their sales staffs, and create business plans.

Announcing Service Pack 2 (SP2) for the 2007 Microsoft Office System

Joao Livio — Wed, 22 Oct 2008 20:07:00 GMT

We’re pleased to announce that Service Pack 2 (SP2) for the 2007 Microsoft Office system is expected to be released in the near future. Although we aren’t yet ...

http://blogs.technet.com/office_sustained_engineering/archive/2008/10/22/announcing-service-pack-2-sp2-for-the-2007-microsoft-office-system.aspx

Office Picture Manager FIX MRU Paths

Joao Livio — Mon, 20 Oct 2008 03:10:00 GMT

offPictManagerFixMRU (Version Beta1)

Feedback is welcome for erros and new features

System Requirements

Windows 2000 SP4/XP (32/64 Bits)

Windows Vista (32/64 Bits)

Office Picture Manger become slow to Open

My Original Article: Here

Download

Download FIX: Here

This patch is provided "AS-IS". Was created by Joao Livio Microsoft MVP Office, i don't work At or For Microsoft, please see http://mvp.support.microsoft.com/. Use it at your own Risk

Compilação de Artigos em Português realativos a Janeiro e Fevereiro 2008

Joao Livio — Tue, 04 Mar 2008 11:00:00 GMT

JANEIRO

Microsoft Notificações de Download, 19 janeiro
VBA e Office 14, sejamos realistas, nada de Hoaxs
Office Deployment Webcast´s
Interoperabilidade Microsoft Office com SAP
Microsoft Office 2008 Mac já à venda
Transferências de Pacotes LIP (Language Interface ...
Estenda as interfaces de programas do Microsoft Of...
Referência padrão entre opções de menu Excel 2003 ...
Transferências Populares - O que mais se "descarre...
SharePoint Server 2007, Videos, WebCast´s (1/6) de...
Recursos para o Microsoft Access 2007
Gerir facilmente todas as contas de correio electr...
Obter um calendário de 2008 gratuito para o Office...
Como Transformar Mêses em Extenso a partir de uma ...
Boletim de Segurança da Microsoft, V5, I1

FEVEREIRO

Rollup Técnico Fevereiro 2008
Novos Artigos (KB´s) Outlook 2003

Download LIP (Language Interface Pack) for Office 2003

Joao Livio — Wed, 16 Jan 2008 15:21:00 GMT

Portuguese Articles from my Syte - Artigos do meu Site

Joao Livio — Sat, 07 Jul 2007 01:52:00 GMT

Source/Fonte: http://officept.mvps.org

ACC: Tentar reparar um MDB Corrupto
ACC: Como colocar um MDB em Rede através de MDE´s em segurança e porque?
OF7: Como distribuir ACCDB ou ACCDE com o Office 2007 Runtime

Portuguese Functions for Access 2007 - Funções em Português para o Access 2007

Joao Livio — Sat, 07 Jul 2007 01:47:00 GMT

Funções Office 2007 VBA

Por razões de motor de busca de páginas e pela importância desta informação em Português resolvi incluir esta secção no site para ser mais fácil o acesso à sua monitorização.

Porque o autor deste Artigo não sou eu a página vai abrir como Same Frame (Mesma Página). Se resolver voltar atrás, basta clicar na seta voltar no seu Browser. Pode sempre utilizar o link original em baixo.

Alguns exemplos que irão encontrar para cada função estão em Inglês, basta apenas substituir a função em Inglês pela citada em Português, isto para quem tem o Office em Português obviamente.

Legal

Autor: Microsoft (MSFT)

Fonte: http://office.microsoft.com/pt-pt/access/HA101316762070.aspx

Portugues Post: Portugal PT-BR Post FAQ, perguntas Frequentes

Joao Livio — Sat, 07 Jul 2007 01:41:00 GMT

Perguntas Frequentes

P: [O meu Office ou Windows não passou no teste de Software Genuino]

R: Convêm ler como funciona o Sistema de Software Genuíno e verificar através do site da Microsoft os procedimentos a adoptar: (Software Microsoft Genuíno), em último caso pedir ajuda à Microsoft (Centro de Suporte)

P: [Posso instalar o Meu Office 2007 em mais de 1 Computador?]

R: [A melhor forma de responder a esta pergunta é efectuar um procedimento que 90% dos utilizadores não fazem. LÊR O EULA (Termos de Utilização do Produto antes de Abrir), assim pode sempre devolver se não concordar.] (Find License Terms for Software Licensed from Microsoft, Microsoft Office Suites License Designations]

P: [Posso alterar a língua de Inglês para Português no Office 2007?]

R: [Sim, para tal tem de adquirir um Language Pack para a Versão 2007. O Language Pack contém a conversão de Todo o UI (User Iterface, Funções e Ferramentas Ortográficas para Português de Portugal). Na altura da publicação desta FAQ só encontrei a sua comercialização através do Site da Microsoft: Clique Aqui NÃO ESQUECER de mudar a língua para PORTUGUES, por defeito vai aparecer BRASIL]

DEPOIS DE INSTALAR

Ir a Microsoft Office Tools - Microsoft Office Language Settings

Escolher a Língua Principal

Escolher as Línguas para Ortografia

P: [Quais são os requisitos mínimos de Hardware para o Office 2007?]

R: [Pode verificar por Suite e Utilitário Office 2007 os requisitos: Clique Aqui]

Training Kits Microsoft Powered in portuguese - PT Portugal Formacao Office Microsoft Powered

Joao Livio — Sun, 24 Sep 2006 15:56:00 GMT

Ajude a aumentar a segurança: Segurança no Office

Consultas II: Limitar os dados e calcular valores

Relatórios I: Apresentação dos dados

Apresentação dos controlos

Consultas I: obter respostas com consultas

Trabalhar com uma base de dados que não criou

Introdução às bases de dados

Criar um documento do Office acessível

Trabalhar com o teclado no Office

Consultas III: Criar consultas parametrizadas que solicitam a intervenção

Organizar os dados em tabelas

Os formulários são seleccionados consoante a função

Personalizar as barras de ferramentas e menus

Ajude a aumentar a segurança: Segurança no Office

Proteger documentos do Word

Criar um documento do Office acessível

Utilizar desenhos do Visio em apresentações, documentos e publicações

Preparar as férias: Escrever e enviar um boletim com o Word

Adicionar gráficos e mantê-los no local pretendido

Índice I: Criar um índice básico

Criar um destaque de documento

Utilizar impressão em série para mensagens de correio em massa e muito mais

Então é esse o segredo! Grandes funcionalidades do Word

Cabeçalhos e rodapés, simples de elaborar

Personalizar atalhos de teclado no Word

Decorar documentos com fundos, limites e efeitos de texto

Introdução ao XML no Word

Criar notas de rodapé e de fim

Formatar o documento com estilos

Apresentar o projecto no Word, PowerPoint ou Visio

Personalizar as barras de ferramentas e menus

Organizar o ClipArt e outros conteúdos multimédia

Descobrir uma calculadora mais eficiente

Então é esse o segredo! Grandes funcionalidades do Excel

Gráficos I: Como criar gráficos

Criar um documento do Office acessível

Gráficos II: Escolher o tipo de gráfico adequado

Então é esse o segredo! Trabalhar com folhas de cálculo realmente grandes

Trabalhar com o teclado no Office

Gráficos III: Criar gráficos com um aspecto profissional

Listas I: Como utilizar listas no Excel 2003

XML: De que se trata?

Listas II: Publicar listas do Excel 2003 num site do SharePoint

Utilizar fórmulas para editar, corrigir e verificar texto

Tabela Dinâmica I: O que têm os relatórios de Tabela Dinâmica de tão especial?

Tabela Dinâmica II: Entrar em acção com relatórios de Tabela Dinâmica

Criar assinaturas apelativas para as mensagens de correio electrónico

Partilhar um calendário utilizando o Outlook e o Windows SharePoint Services

Ver e partilhar vários calendários

Organizar o ClipArt e outros conteúdos multimédia

Conhecer o Visio

Formas I: Princípios básicos introdutórios sem os quais não consegue viver

O melhor modo de ligar formas em desenhos do Visio

Introdução rápida aos traçados de escritório

Uma rápida introdução a diagramas de blocos

Uma rápida introdução a organogramas

Imprimir desenhos grandes e obter os resultados pretendidos

Criar um documento do Office acessível

Utilizar desenhos do Visio em apresentações, documentos e publicações

Apresentar o projecto no Word, PowerPoint ou Visio

Personalizar as barras de ferramentas e menus

Information to Portuguese Readers

Joao Livio — Sun, 09 Apr 2006 10:33:00 GMT

~~Se está interessado em experimentar o Windows Vista, o Microsoft Office 2007, o Exchange "12" ou outras versões beta a lançar no futuro, irá definitivamente subscrever o TechNet Beta Central.~~

~~Seja o primeiro a conhecer as versões beta do Windows Vista, Office 2007 e Exchange 12!~~

~~Registe-se no site do TechNet~~ ~~www.microsoft.com/portugal/technet~~

~~Pré-registo das versões beta do Vista, Office 2007 e Exchange 12.~~

~~http://www.microsoft.com/portugal/technet/beta/default.mspx~~

How to Spell numbers to Euros using API?

Joao Livio — Sun, 17 Apr 2005 01:41:00 GMT

'(c) 2003 João Tito Lívio 
'This code can only be use as a part of an Application and could not be sell

 'To REQUEST a full functional sample please > Click

   This function originally was developed as the name indicates to convert numbers for extensive, 
even so it can be adapted for currency but with some limitations, or either, the used text for number 1.000.000.000, will have to be modified 
for ("A thousand million euros") And 1.000.000.000.000= ("1 million of millions Euros") Since we are in Europe and not in the United States.

Option Compare Database
 

Private Declare Function GetLocaleInfo& _
Lib "kernel32" Alias "GetLocaleInfoA" ( _
  ByVal Locale As Long, _
  ByVal LCType As Long, _
  ByVal lpLCData As String, _
  ByVal cchData As Long)


Private Const LOCALE_USER_DEFAULT& = &H400
Private Const LOCALE_SDECIMAL& = &HE
Private Const LOCALE_SCURRENCY& = &H14
Private Const LOCALE_SMONDECIMALSEP& = &H16

Public Enum enmFormat
  Maiusculas
  Minusculas
  PrimeiraMaiuscula
End Enum

Private arrGrupo() As String
'2 Dimensions
'1º -> [0]=Numeric value from group; [1]=extenso
'2ª -> Counter

Private Const e = "e "
Private Const Virgula = ", "

Private Const ZERO = "Zero "
Private Const um = "Um "
Private Const DOIS = "Dois "
Private Const TRES = "Três "
Private Const QUATRO = "Quatro "
Private Const CINCO = "Cinco "
Private Const SEIS = "Seis "
Private Const SETE = "Sete "
Private Const OITO = "Oito "
Private Const NOVE = "Nove "
Private Const DEZ = "Dez "

Private Const ONZE = "Onze "
Private Const DOZE = "Doze "
Private Const TREZE = "Treze "
Private Const CATORZE = "Catorze "
Private Const QUINZE = "Quinze "
Private Const DEZASSEIS = "Dezasseis "
Private Const DEZASSETE = "Dezassete "
Private Const DEZOITO = "Dezoito "
Private Const DEZANOVE = "Dezanove "

Private Const VINTE = "Vinte "
Private Const TRINTA = "Trinta "
Private Const QUARENTA = "Quarenta "
Private Const CINQUENTA = "Cinquenta "
Private Const SESSENTA = "Sessenta "
Private Const SETENTA = "Setenta "
Private Const OITENTA = "Oitenta "
Private Const NOVENTA = "Noventa "
Private Const CEM = "Cem "
Private Const CENTO = "Cento "
Private Const DUZENTOS = "Duzentos "
Private Const TREZENTOS = "Trezentos "
Private Const QUATROCENTOS = "Quatrocentos "
Private Const QUINHENTOS = "Quinhentos "
Private Const SEISCENTOS = "Seiscentos "
Private Const SETECENTOS = "Setecentos "
Private Const OITOCENTOS = "Oitocentos "
Private Const NOVECENTOS = "Novecentos "
Private Const MIL = "Mil "

Private Const MILHAO = "Milhão "
Private Const MILHOES = "Milhões "
Private Const BILIAO = "Bilião "
Private Const BILIOES = "Biliões "

Private strUnidades(9) As String
Private strTeens(99) As String
Private strDezenas(9) As String
Private strCentenas(9) As String
Private strMilhares(9) As String

Private mstrDecSep As String * 1
Private mstrDefaultErrorMsgOverflow As String
Private Const ERR_OVERF = "Overflow"

'Singular
Private mstrDefaultSufixoInteiro1 As String
Private Const SUF_INT1 = "Euro "
Private mstrDefaultSufixoDecimal1 As String
Private Const SUF_DEC1 = "Centimo "

'Plural
Private mstrDefaultSufixoInteiro2 As String
Private Const SUF_INT2 = "Euros "
Private mstrDefaultSufixoDecimal2 As String
Private Const SUF_DEC2 = "Centimos "

Private Const MAX_NUMBER As Double = 999999999999.99

Private Sub msEncher()

'strUnidades(0) = ZERO ' Must be an empty string
strUnidades(1) = um
strUnidades(2) = DOIS
strUnidades(3) = TRES
strUnidades(4) = QUATRO
strUnidades(5) = CINCO
strUnidades(6) = SEIS
strUnidades(7) = SETE
strUnidades(8) = OITO
strUnidades(9) = NOVE

'strTeens(0) = ZERO ' Must be an empty string
strTeens(1) = um
strTeens(2) = DOIS
strTeens(3) = TRES
strTeens(4) = QUATRO
strTeens(5) = CINCO
strTeens(6) = SEIS
strTeens(7) = SETE
strTeens(8) = OITO
strTeens(9) = NOVE
strTeens(10) = DEZ
strTeens(11) = ONZE
strTeens(12) = DOZE
strTeens(13) = TREZE
strTeens(14) = CATORZE
strTeens(15) = QUINZE
strTeens(16) = DEZASSEIS
strTeens(17) = DEZASSETE
strTeens(18) = DEZOITO
strTeens(19) = DEZANOVE

strDezenas(0) = ""
strDezenas(1) = "-"
strDezenas(2) = VINTE
strDezenas(3) = TRINTA
strDezenas(4) = QUARENTA
strDezenas(5) = CINQUENTA
strDezenas(6) = SESSENTA
strDezenas(7) = SETENTA
strDezenas(8) = OITENTA
strDezenas(9) = NOVENTA

strCentenas(0) = ""
strCentenas(1) = CEM
strCentenas(2) = DUZENTOS
strCentenas(3) = TREZENTOS
strCentenas(4) = QUATROCENTOS
strCentenas(5) = QUINHENTOS
strCentenas(6) = SEISCENTOS
strCentenas(7) = SETECENTOS
strCentenas(8) = OITOCENTOS
strCentenas(9) = NOVECENTOS


End Sub

Private Function mfTraduzir(xGrupo%, xstr$) As String
'Traslate 3 numbers group
'(right pad)
On Error GoTo erro
Dim blnAnteriorRedondo As Boolean   'quando grupo anterior = '*00'
Dim ret$, xlen%
xlen = Len(xstr$)
Dim Unid As Byte, strUnid$
Dim Teen As Byte, strTeen$
Dim Dezena As Byte, strDezn$
Dim Centena As Byte, strCent$

mstrDefaultSufixoInteiro1 = SUF_INT1
mstrDefaultSufixoDecimal1 = SUF_DEC1
mstrDefaultSufixoInteiro2 = SUF_INT2
mstrDefaultSufixoDecimal2 = SUF_DEC2


  Unid = CByte(Right(xstr$, 1))
  Teen = CByte(Right(xstr$, 2))
  Dezena = CByte(Mid(xstr$, xlen - 1, 1))
  Centena = CByte(Mid(xstr$, xlen - 2, 1))
If Centena Then
strCent = IIf(Teen = 0, strCentenas(Centena), _
  IIf(Centena = 1, CENTO, strCentenas(Centena)) & _
  IIf(Teen = 0, "", e)) & " "
End If

strDezn = IIf(Teen > 19, strDezenas(Dezena), strTeens(Teen)) & _
  IIf(Unid And Teen > 19, e, "")

strUnid = IIf(Teen > 19, strUnidades(Unid), "")

ret = strCent & strDezn & strUnid

  Dim strNumAnterior$, strExtAnterior$
  
  On Error Resume Next
  strNumAnterior = arrGrupo(0, xGrupo - 1) 'grupo anterior
  strExtAnterior = arrGrupo(1, xGrupo - 1)
  blnAnteriorRedondo = Val(Right(strNumAnterior, 2)) = 0
  On Error GoTo erro
  
  Select Case xGrupo
    Case 0                '   000
    
    Case 1 '000xxx
      
      arrGrupo(1, xGrupo - 1) = _
      IIf(blnAnteriorRedondo, _
      IIf(Val(strNumAnterior) = 0, "", e) & strExtAnterior, _
      e & strExtAnterior)
      
    ret = IIf(Val(xstr) = 0, "", _
      IIf(Val(xstr) = 1, MIL, ret & MIL))
      
    Case 2 '000xxxxxx
      arrGrupo(1, xGrupo - 1) = _
      IIf(Val(strNumAnterior) = 0 And Val(arrGrupo(0, xGrupo - 2)) = 0, _
        "", IIf(Val(strNumAnterior) > 0, IIf(Val(arrGrupo(0, xGrupo - 2)) = 0, _
        e, Virgula), "") & strExtAnterior)

    ret = IIf(Val(xstr) = 0, "", _
      IIf(Val(xstr) = 1, ret & MILHAO, ret & MILHOES))

    Case 3 ' 000xxxxxxxxx
      arrGrupo(1, xGrupo - 1) = _
      IIf(Val(strNumAnterior) = 0 And Val(arrGrupo(0, xGrupo - 2)) = 0 _
      And Val(arrGrupo(0, xGrupo - 3)) = 0, _
        "", IIf(Val(strNumAnterior) = 0, "", _
        IIf(Val(arrGrupo(0, xGrupo - 2)) = 0, e, Virgula)) & strExtAnterior)
      
    ret = IIf(Val(xstr) = 0, "", _
      IIf(Val(xstr) = 1, ret & BILIAO, ret & BILIOES))
  End Select

mfTraduzir = Trim(ret) & " "
Exit Function
erro:
  If Err = 5 Then
  Resume Next
  Else
  MsgBox Err & vbCrLf & Err.Description
  Resume Next
  End If
End Function
Private Sub Class_Initialize()
    msEncher
    mstrDecSep = mfstrGetDecimalSep
    mstrDefaultErrorMsgOverflow = ERR_OVERF
End Sub


Public Function gfGet( _
  ByVal dblX As Double, _
  Optional xmoeda As String, _
  Optional ByVal lngFormat As Long = PrimeiraMaiuscula) As String
On Error GoTo erro

Static mblnInitialized As Boolean

If Not mblnInitialized Then
    msEncher
    mstrDecSep = mfstrGetDecimalSep
    mstrDefaultErrorMsgOverflow = ERR_OVERF
    mblnInitialized = True
End If


If dblX > MAX_NUMBER Then
  gfGet = mstrDefaultErrorMsgOverflow
  Exit Function
End If

Dim strNeg$

If dblX < 0 Then
  dblX = dblX * -1
  strNeg = "Menos "
End If

'Por defeito fica em escudos
If xmoeda = "" Then
    xmoeda = "PTE"
End If
'

dblX = Format(dblX, ".00")
Dim strInteiro$, strDecimal$

  msGetParts CStr(dblX), strInteiro, strDecimal

  Dim ret$, retInt$, retDec$
    If strInteiro <> "" Then
      If CDbl(strInteiro) > 0 Then
        retInt = mfstrProcessar(strInteiro)
      Else
        retInt = ZERO
      End If
      retInt = retInt & IIf(CDbl(strInteiro) = 1, mstrDefaultSufixoInteiro1, mstrDefaultSufixoInteiro2)
    End If
       
    If strDecimal <> "" Then
      If CDbl(strInteiro) = 0 Then
        retInt = ""
      Else
        retInt = retInt & e
      End If
      retDec = mfstrProcessar(strDecimal)
      retDec = retDec & IIf(CDbl(strDecimal) = 1, mstrDefaultSufixoDecimal1, mstrDefaultSufixoDecimal2)
    End If
    
    
    ret = retInt & retDec
  
  gfGet = strNeg & IIf(lngFormat = Minusculas, LCase(ret), _
                    IIf(lngFormat = Maiusculas, UCase(ret), _
                    ret))
  
Exit Function
erro:
  gfGet = Err.Number & "; " & Err.Description
End Function

Private Sub msGetParts(ByVal strAll$, ByRef strInt$, ByRef strDec$)
  Dim intVirgLoc%
  intVirgLoc = InStr(1, strAll, mstrDecSep)
    
    If intVirgLoc > 0 Then
      strInt = Mid(strAll, 1, intVirgLoc% - 1)
      strDec = Mid(strAll, intVirgLoc% + 1)
        If Len(strDec) = 1 Then strDec = strDec & "0"
    Else
      strInt = strAll$
      strDec = ""
    End If
    
End Sub

Private Function mfstrProcessar(strPart$) As String
Dim lp%, xlen%, cnt%, ret$, buf$
Dim xstart%
xlen = Len(strPart$)
  For lp = 1 To xlen Step 3
  
  'Send numbers in 3 didit groups
  xstart = xlen - (3 * cnt)
  xstart = IIf(xstart <= 0, 1, xstart)
  buf = Right(Left(strPart$, xstart), 3)
  ReDim Preserve arrGrupo(1, cnt)
  arrGrupo(0, cnt) = CDbl(buf)
  arrGrupo(1, cnt) = mfTraduzir(cnt, Format(buf, "000"))
    cnt = cnt + 1
  Next
  
  'Spell joining the translated numbers
  Dim xtemp As String
  For lp = UBound(arrGrupo, 2) To 0 Step -1
    xtemp = xtemp & arrGrupo(1, lp)
  Next
  
  'Cut Fake spaces
  Dim red1$, inred1%, red2$, inred2%
  Dim tempA$, tempB$
  inred1 = 999: inred2 = 999

  red1 = "  ": red2 = " ,"


  Do Until inred1 + inred2 = 0

    inred1 = InStr(1, xtemp, red1)
    inred2 = InStr(1, xtemp, red2)

    If inred1 > 0 Then
      xtemp = Trim(Left(xtemp, inred1) & Right(xtemp, Len(xtemp) - (inred1 + 1)))
    End If

    If inred2 > 0 Then Mid(xtemp, inred2, 2) = ", "

  Loop
  ret = xtemp & IIf(Right(xtemp, 1) <> " ", " ", "")
  mfstrProcessar = ret

End Function

Private Function mfstrGetDecimalSep() As String
Dim ret&
Dim buf As String * 10
ret = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SDECIMAL, buf, Len(buf))
mfstrGetDecimalSep = Left(buf, InStr(1, buf, vbNullChar) - 1)
End Function


'      //////////////     PROPS     /////////////////////

Public Property Get DecimalSep() As String
  DecimalSep = mstrDecSep
End Property
Public Property Let DecimalSep(x As String)
  mstrDecSep = x
End Property
Public Property Get OverflowMsg() As String
  OverflowMsg = mstrDefaultErrorMsgOverflow
End Property
Public Property Let OverflowMsg(x As String)
  mstrDefaultErrorMsgOverflow = x
End Property
Public Property Get MaxNumber() As Double
  MaxNumber = MAX_NUMBER
End Property
Public Property Get SufixoInteiroSingular() As String
  SufixoInteiroSingular = mstrDefaultSufixoInteiro1
End Property
Public Property Let SufixoInteiroSingular(x As String)
  mstrDefaultSufixoInteiro1 = x & IIf(Right(x, 1) = "", "", " ")
End Property
Public Property Get SufixoInteiroPlural() As String
  SufixoInteiroPlural = mstrDefaultSufixoInteiro2
End Property
Public Property Let SufixoInteiroPlural(x As String)
  mstrDefaultSufixoInteiro2 = x & IIf(Right(x, 1) = "", "", " ")
End Property
Public Property Get SufixoDecimalSingular() As String
  SufixoDecimalSingular = mstrDefaultSufixoDecimal1
End Property
Public Property Let SufixoDecimalSingular(x As String)
  mstrDefaultSufixoDecimal1 = x & IIf(Right(x, 1) = "", "", " ")
End Property
Public Property Get SufixoDecimalPlural() As String
  SufixoDecimalPlural = mstrDefaultSufixoDecimal2
End Property
Public Property Let SufixoDecimalPlural(x As String)
  mstrDefaultSufixoDecimal2 = x & IIf(Right(x, 1) = "", "", " ")
End Property

Office Systems Developer : Portuguese Related

Visual Studio Class Library para o Microsoft Access – C# (Parte1)

O Básico

DevDays 2009

Participe no grande evento técnico do ano e aproveite ao máximo a agenda do DevDays!

January 2009 - Technical Rollup

Quando se tenta colar dados directamente do Excel 2007 para o Microsoft Access 2007 é gerado erro.

Reparar Ficheiros Office - Repair Office Files

MDB, DBF, XLS, XLW and DOC Files Recover

ENGLISH

PORTUGUÊS

EVENTO: Architect Cloud Computing

Announcing Service Pack 2 (SP2) for the 2007 Microsoft Office System

Office Picture Manager FIX MRU Paths

Compilação de Artigos em Português realativos a Janeiro e Fevereiro 2008

Download LIP (Language Interface Pack) for Office 2003

Portuguese Articles from my Syte - Artigos do meu Site

Portuguese Functions for Access 2007 - Funções em Português para o Access 2007

Funções Office 2007 VBA

Legal

ActiveX

Aplicação

Matrizes

Conversão

Base de Dados

Data/Hora

Agregado de Domínio

Gestão de Erros

Entrada/Saída de Ficheiros

Gestão de Ficheiros

Financeira

Monitorização

Matemática

Mensagens

Diversos

Fluxo do Programa

Texto

Portugues Post: Portugal PT-BR Post FAQ, perguntas Frequentes

Perguntas Frequentes

Training Kits Microsoft Powered in portuguese - PT Portugal Formacao Office Microsoft Powered

Information to Portuguese Readers

How to Spell numbers to Euros using API?