Home Excel - Dicas Microsoft Excel VBA Excel VBA - Sistema Excel planilha vba sistema data e hora retorna msgbox

Excel planilha vba sistema data e hora retorna msgbox

E-mail Imprimir PDF

Retorna os formatos de data e hora
Saberexcel - dicas microsoft excel vba macros

Estas funções e declarações do aplicativo microsoft excel vba, retornam os formatos de data 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 testando_formatos_dia_hora()
MsgBox DateCourte, vbInformation, "Saberexcel - site das macros"
MsgBox DateLongue, vbInformation, "Saberexcel - site das macros"
MsgBox FormatoHorario, vbInformation, "Saberexcel - site das macros"
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 FormatoHorario()
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
FormatoHorario = 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

   Faça o download do exemplo de planilha microsft excel vba
vba sistema data e hora retorna msgbox (19.41 kB 2010-11-27 20:31:33)


Última atualização em Ter, 23 de Agosto de 2011 08:55  

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_counterHoje4872
mod_vvisit_counterOntem4316
mod_vvisit_counterEsta Semana19319
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês33048
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10455877
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