smagluk и sokol92, какие у вас офисы (версии)?
У меня пример отрабатывает без использования CdateToIso, т.е. =Date()
У меня в LibreOffice 6.4.3.2 не работает, не тот формат даты, но если изменить формат даты, то нормально.
smagluk, измените в вашем коде:
1.
Dim DateField1 As New com.sun.star.util.Date вместо As Date (у вас эта переменная не использовалась, но если нужна, создайте новую)
2. вместо строки кода:
Dlg.getModel().getByName("DateField1").Date = CdateToIso(Date())DateField1.Day = DatePart("d", Date())
DateField1.Month = DatePart("m", Date())
DateField1.Year = DatePart("yyyy", Date())
Dlg.getModel().getByName("DateField1").Date = DateField1