Home Excel - Dicas Microsoft Excel VBA Excel VBA - Aplicativo Excel vba aplicativo mostra os formatos datas e horas

Excel vba aplicativo mostra os formatos datas e horas

E-mail Imprimir PDF

Saberexcel - o site das macros
Estas declarações macros e funções do Aplicativo Microsoft Excel VBA, retonam os formatos de data e hora

 
Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" _
    (ByVal Locale As Long, ByVal LCType As Long, _
    ByVal lpLCData As String, ByVal cchData As Long) As Long
 
Sub testar_me()
  MsgBox DateCourte
  MsgBox DateLongue
  MsgBox FormatHoraire
End Sub
 
Function DateCourte()
Dim tmp$
  With Application
    tmp = .Substitute(GetParam(&H1F), "d", .International(xlDayCode))
    tmp = .Substitute(tmp, "m", .International(xlMonthCode))
    tmp = .Substitute(tmp, "y", .International(xlYearCode))
  End With
  DateCourte = tmp
End Function
 
Function DateLongue()
Dim tmp$
  With Application
    tmp = .Substitute(GetParam(&H20), "d", .International(xlDayCode))
    tmp = .Substitute(tmp, “m”, .International(xlMonthCode))
    tmp = .Substitute(tmp, “y”, .International(xlYearCode))
  End With
  DateLongue = tmp
End Function
 
Function FormatHoraire()
Dim tmp$
  With Application
    tmp = .Substitute(GetParam(&H1003), “h”, .International(xlHourCode))
    tmp = .Substitute(tmp, “m”, .International(xlMinuteCode))
    tmp = .Substitute(tmp, “s”, .International(xlSecondCode))
  End With
  FormatHoraire = tmp
End Function
 
Private Function GetParam(LocalParam As Long) As String
Dim buf As String
  buf = Space$(255)
  GetLocaleInfo 0, LocalParam, buf, Len(buf)
  GetParam = Application.Trim$(Mid$(buf, 1))
End Function
 
Function SepDec()
  SepDec = Application.International(xlDecimalSeparator)
End Function
 
Function SepMil()
  SepMil = Application.International(xlThousandsSeparator)
End Function




Aprenda tudo sobre o Aplicativo Microsoft Excel VBA, sozinho, praticando com os produtos didáticos Saberexcel

Última atualização em Qui, 18 de Agosto de 2011 11:59  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje3979
mod_vvisit_counterOntem4432
mod_vvisit_counterEsta Semana30502
mod_vvisit_counterSemana passada46212
mod_vvisit_counterEsse mês17708
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10440537
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA