Problem format Date

[firefox84]

Hi, I have have create a macro that reads in a document the field Date, the format of date insert into a field of Calc table is GG/MM/AA, but the date reads of my macro isn't for example 22/12/08, but is 39804.

Is there a way to convert the data accessed 39804, in the format 22/12/08 ?

Thanks

[Villeroy]

=TEXT(A1;"GG/MM/AA")
_________________
Rest in peace, oooforum.org
Get help on http://forum.openoffice.org

[johnnycashplus]

If I were to use that "Text" fix then wouldn't I have problems if you wanted to use a formula using that cell to calculate another date.

[Villeroy]

[firefox84]

I apologize for not having explained well, and my problem 'as follows, I have a macro that reads a cell from the data contained in it:

Eg.

Date

10/10/09
11/10/09
13/10/09

the code that makes the reading of the cell is as follows:

Dim cell as Object
Dim i as Integer
Dim valueCell as Integer


For i = 1 to nCols
oRange.getCellByPosition cell = (i - 1, index)
TxtCampo = oDlg.getControl ( "txtCampo" & i)

Select Case cella.Type
Case com.sun.star.table.CellContentType.VALUE
valueCell = cell.getFormula
or
valueCell = cell.Value
End Select

If the date is 10/10/09 valueCell read = 40096

If I re-enter through my macro data in the paper, the value entered is 40096.

Is there a way to convert the 40096 in the format 10/10/09?



I tried to read the data as a string

Eg.

Date

10/10/09
11/10/09
13/10/09

the code that makes the reading of the cell is as follows:

Dim cell as Object
Dim i as Integer
Dim valueCell as String


For i = 1 to nCols
oRange.getCellByPosition cell = (i -1, index)
txtCampo = oDlg.getControl ( "txtCampo" & i)

Select Case cella.Type
Case com.sun.star.table.CellContentType.VALUE
valueCell = cell.getString
End Select

If the date is 10/10/09 read valueCell = 10/10/09

If I re-enter through my macro data in the paper, the value added is in text format'10 / 10/09.

Code to insert date in cell:

cella.setString (txtCampo.Text)

Is there a way to avoid adding the character '?

Thanks for any replay

[firefox84]

In Api I found the command DateFormat: http://api.openoffice.org/docs/common/ref/com/sun/star/awt/UnoControlDateFieldModel.html # Date

through this we can change the date format, can you tell me how to use or thats command, you do an example of its use?

My goal is to change the date format in a cell, by using a my macro.

For example:

My macro reads 21/10/2008, the goal of macro must change a DateFormat into 10/21/2008.


I considerably simplify my problem,because my English is not very good.

[turtle47]

Hi,

to change the cellformat have a look to this code:

[Villeroy]