Pergunte aqui

Histórico de revisões [voltar]

clique para ocultar/mostrar a revisão 1
Versão inicial

Bom dia,

Parece que você tentou inserir a data e a hora atual em controles campo de data e campo de tempo. Acontece que no LibreOffice estes controles aceitam valores apenas em estruturas (estructures). Então o código ficaria da seguinte forma:

Sub Main
Dim oDoc, oForm, odatData, otimEntrada
Dim oData As New com.sun.star.util.Date 'Estrutura para a data'
Dim oEntrada As New com.sun.star.util.Time 'Estrutura para o tempo'

   oDoc = ThisComponent
   oForm = oDoc.Drawpage.Forms.getByName("MainForm")

   odatData = oForm.getByName("datData")
   With oData
     .Year = Year(Date)
     .Month = Month(Date)
     .Day = Day(Date)
   End With
   odatData.Date = oData

  otimEntrada = oForm.getByName("timEntrada")
   With oEntrada
     .Hours = Hour(Time)
     .Minutes = Minute(Time)
   End With
   otimEntrada.Time = oEntrada   
End Sub

Atte,

Bom dia,

Parece que você tentou inserir a data e a hora atual em controles campo de data e campo de tempo. Acontece que no LibreOffice estes controles aceitam valores apenas em estruturas (estructures). Então o código ficaria da seguinte forma:

Sub Main
Dim oDoc, oForm, odatData, otimEntrada
Dim oData As New com.sun.star.util.Date 'Estrutura para a data'
Dim oEntrada As New com.sun.star.util.Time 'Estrutura para o tempo'

   oDoc = ThisComponent
   oForm = oDoc.Drawpage.Forms.getByName("MainForm")

   odatData = oForm.getByName("datData")
   With oData
     .Year = Year(Date)
     .Month = Month(Date)
     .Day = Day(Date)
   End With
   odatData.Date = oData

  otimEntrada = oForm.getByName("timEntrada")
   With oEntrada
     .Hours = Hour(Time)
     .Minutes = Minute(Time)
   End With
   otimEntrada.Time = oEntrada    odatData.Commit()
   otimEntrada.Commit()

End Sub

Atte,