Boa tarde
Estou criando um formulário no calc onde salva os dados em uma plan2.
todos os dados estão sendo saldo, porem a data esta indo como texto ex: ('15/06/2016), como corrigir?
Sub Guardar_Datos()
'-------------------------------------------------------------------
Dim xDato As Variant, nRow As Long
If MsgBox( "Você deseja salvar as alterações?", 33, "Diálogo en Calc" ) = 1 Then
nRow = UltimaFila( 1 )
With oDialogo.Model
xDato = .DateField1.Text
ThisComponent.Sheets(1).GetCellByPosition(0,nRow).SetFormula( xDato ) "estas que esta dando erro!!!!!"
xDato = .TextField2.Text
ThisComponent.Sheets(1).GetCellByPosition(1,nRow).SetFormula( xDato )
xDato = .TextField3.Text
ThisComponent.Sheets(1).GetCellByPosition(2,nRow).SetFormula( xDato )
xDato = .TextField4.Text
ThisComponent.Sheets(1).GetCellByPosition(3,nRow).SetFormula( xDato )
xDato = .TextField5.Text
ThisComponent.Sheets(1).GetCellByPosition(5,nRow).SetFormula( xDato )
xDato = .TextField6.Text
ThisComponent.Sheets(1).GetCellByPosition(6,nRow).SetFormula( xDato )
xDato = .TextField7.Text
ThisComponent.Sheets(1).GetCellByPosition(7,nRow).SetFormula( xDato )
xDato = .TextField8.Text
ThisComponent.Sheets(1).GetCellByPosition(8,nRow).SetFormula( xDato )
xDato = .TextField9.Text
ThisComponent.Sheets(1).GetCellByPosition(9,nRow).SetFormula( xDato )
xDato = .TextField10.Text
ThisComponent.Sheets(1).GetCellByPosition(10,nRow).SetFormula( xDato )
xDato = .ComboBox1.Text
ThisComponent.Sheets(1).GetCellByPosition(4,nRow).SetFormula( xDato )
.DateField1.Text = ""
.TextField2.Text = ""
.TextField3.Text = ""
.TextField4.Text = ""
.TextField5.Text = ""
.TextField6.Text = ""
.TextField7.Text = ""
.TextField8.Text = ""
.TextField9.Text = ""
.TextField10.Text = ""
.ComboBox1.Text = ""
End With
End If
End Sub