data atual na caixa de diálogo [RESOLVIDO]

1. data atual na caixa de diálogo [RESOLVIDO]

wagnergarcia
(usa Outra)

Enviado em 23/01/2013 - 17:08h

Boa tarde a todos,

Estou criando uma caixa de diálogo e quero que nela apareça a data atual. A macro ja esta pronta, só me falta saber como faze-la aparecer na caixa de diálogo, ou através da caixa de texto ou atráves de rótulo. Alguem sabe o comando que eu devo utilizar???

0 0

Quote

2. Re: data atual na caixa de diálogo [RESOLVIDO]

wagnergarcia
(usa Outra)

Enviado em 25/01/2013 - 00:22h

Boa noite gente!!!

Eu consegui resolver parte de meu problema. Ao tentar enviar a linha de comando a qual mostra a data atual, somente no msgbox obtive sucesso. Ao enviar para o rótulo, o msg box: "datatual = "Bandeirantes, " & day(date) & " de " & mes & " de " & year(date) & "."" apresenta um erro na variável "mes".... A mensagem diz que essa variável ja esta definida. Tentando passar informações de células para o rótulo tambem nao obtive exito.

Public Sub pontoShow

'ativa a planilha SENHA
novoUsuario = ThisComponent.Sheets.GetByName("SENHA")
'carrega a biblioteca minhaBiblioteca para liberar acesso
DialogLibraries.LoadLibrary("minhaBiblioteca")
'cria e exibe o diálogo cadastroSenha vinculando o diálogo ao módulo ponto
dlg3 = CreateUnoDialog(DialogLibraries.minhaBiblioteca.ponto)
'executa a caixa de diálogo cadastroSenha

dlg3Model = dlg3.Model
olbData = dlg3.getControl("lbData")

olbData.text = "Bandeirantes, " & date(now) & "."& " de " & mes & " de " & year(date) & "."
lb12 = dlg3.getControl("lb12")
lb12.text = novoUsuario.getCellRangeByName("d12").value
'executa a caixa de diálogo cadastroSenha
dlg3.Execute()

Dim dia, ano as integer
Dim mes as string ' NESSA LINHA QUE APARECE O ERRO
Dim data as object

if(month(date) = 1) then
mes = "janeiro"
elseif(month(date) = 2) then
mes = "fevereiro"
elseif(month(date) = 3) then
mes = "março"
elseif(month(date) = 4) then
mes = "abril"
elseif(month(date) = 5) then
mes = "maio"
elseif(month(date) = 6) then
mes = "junho"
elseif(month(date) = 7) then
mes = "julho"
elseif(month(date) = 8) then
mes = "agosto"
elseif(month(date) = 9) then
mes = "setembro"
elseif(month(date) = 10) then
mes = "outubro"
elseif(month(date) = 11) then
mes = "novembro"
else
mes = "dezembro"
end if
'LOGO ABAIXO, USANDO MSGBOX, OCORRE TD NORMALMENTE
datatual = "Bandeirantes, " & day(date) & " de " & mes & " de " & year(date) & "."
Msgbox datatual
End Sub

Desconfio que para conseguir rodar legal eu deva converter a variavel mes. Alguem pode me ajudar??

0 0

Quote