Retornar campo data de dialog para célula

[Conras]

Pessoal, estou tentando colocar um valor de data dentro de um dialog para uma célula no Calc.

Estou usando este comando:

REM  *****  BASIC  *****

Dim oDialog1 As Object

Sub Dialog1Show
DialogLibraries.LoadLibrary( "Standard" )
oDialog1 = CreateUnoDialog( DialogLibraries.Standard.Dialog1 )
oDialog1.Execute()
End Sub

Sub ReadNSaveDialog1 ()

	txtTeste = oDialog1.GetControl("txtTeste")
	Data_RNC = oDialog1.GetControl("Data_RNC")
	
	lastrow = LastRowNumber()
	ThisComponent.Sheets(3).getCellByPosition(0, lastrow).setString( txtTeste.Text)
	'ThisComponent.Sheets(3).getCellByPosition(1, lastrow) = CDateFromIso(Data_RNC)
	
	txtTeste.Text = ""
	'Data_RNC.Date = ""

End Sub


Function LastRowNumber () as Long

	Dim oDoc 		as Object
	Dim lastRow 	as Long
	Dim oSheet		as Object
	Dim oCol, rd, find, aray
	
	oDoc = ThisComponent
	oSheet = oDoc.Sheets().getByName("Lancamento")
	oCol = oSheet.getColumns().getByIndex(0)
	rd = oCol.createReplaceDescriptor
	rd.searchRegularExpression = true
	rd.setSearchString(".")
	find = oCol.FindAll(rd)
	aray = Split(find.AbsoluteName, "$")
	LastRowNumber = aray(ubound(Aray))
	'Print LastRowNumber
End Function

E esta Tela

Consigo Colocar o valor do textfield, mas o valor do datafield já esgotei minhas possibilidades de pesquisa e tentativas.

Segue arquivo para apreciação corrigido

Controle_RNC_Materia_Prima_LibreOffice.ods

[schiavinatto]

De uma olhada aqui: Imputar dados de Caixa de Dialogo em planilha Calc

[Conras]

@Gilberto Schiavinatto , obrigado. A minha planilha surgiu desta que você mencionou. Coloquei o arquivo no post desta pergunta. Se quiser, use-a no seu site.

[Grafeno]

Boa noite

A propriedade Text do Datefield, diferente do que acontece com Textfield, fica “escondida” no seu Model. Então você deve usar a seguinte linha para colocar a data (valor) na célula:

ThisComponent.Sheets(3).getCellByPosition(1, lastrow).setValue(CDate(Data_RNC.Model.Text))

E para limpar o Datefield use:

Data_RNC.Model.Text = ""

Atte,

[Conras]

@Grafeno, agradeço a ajuda. Coloquei a informação que pediu, e tinha retornado um erro, mas vi depois que eu havia digitado um ponto a mais na linha. Deu certinho aqui.

[Grafeno]

@Conras, que bom que no final de certo!

[anderson]

Ficou muito legal esse calendário no textfield. Como eu poderia melhorar a estética do calendário, ele ficou estreito com os dois botões HOJE e NENHUM fora do layout, tipo da largura do textfied.Será que alguém saberia fazer por favor. Obrigado !