Forum LibreOffice i OpenOffice korisnika

**Vladislav Stevanović**

Kako kodom da obrišem trenutni datum u Date field-u u calcu?

***Goran Rakić***

http://wiki.services.openoffice.org/wiki...Text_Field
http://wiki.services.openoffice.org/wiki...Date_Field

**Vladislav Stevanović**

To je koliko vidim deo koda kada je date field na prozorčetu. U mom slučaju on je direktno na listu.

**Vladislav Stevanović**

Evo odgovora, zahvaljujući Andrew Pitonyak-u:

Kod:

Sub getAControlFromCalc

  Dim sName$ : sName = "Date Field 1"

  Dim oSheet

  Dim oForm

  Dim oControlDataModel

  Dim oControl

  oSheet = ThisComponent.getSheets().getByname("Sheet1")

  ' Assume there is only one form.

  oForm = oSheet.getDrawPage().getForms().getByIndex(0)

  ' Assume the control is not in a sub form.

  oControlDataModel = oForm.getByName(sName)

  oControl = ThisComponent.CurrentController.getControl(oControlDataModel)

oControl.text = empty

End Sub