2

Como posso exportar um tipo Date para o openoffice/libreoffice quando preciso exportar um tipo String faço da seguinte forma.

 SheetOpenOffice.GetCellByPosition(vCont,vlinha).SetString(Q_Assoc.Fields[i].AsString);

Como posso fazer quando o tipo que vem na query for um tipo Date?

1 Resposta 1

2

Tente fazer da seguinte maneira:

if ((DateToStr(Q_Assoc.Fields[i].Value) <> Null) and (DateToStr(Q_Assoc.Fields[i].Value) <> '')) then
    SheetOpenOffice.GetCellByPosition(vCont,vlinha).SetString(Q_Assoc.Fields[i].Value);
3
  • Deu esse erro: InterfaceOleWrapper_Impl::Invoke : [automation bridge]UnoConversionUtilities<T>::variantToAny Cannot convert the value of vartype :"8" to the expected UNO type of type class: 11 Commented 18/04/2017 às 19:10
  • 1
    @rodrigo.oliveira, editei a resposta no lugar do SetValue coloque SetString Commented 18/04/2017 às 19:18
  • @rodrigo.oliveira, deu certo? Commented 19/04/2017 às 1:59

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .