Migrating to Harbour

[Enrico Maria Giordano]

Cristobal,

This expression works?

Code: Select all  Expand view  RUN

oSheet:Cells( 1, 1 ):Value = CTOD( "  /  /  " )
 

No.

EMG

[Antonio Linares]

Enrico,

Antonio,

When you use an empty date with xHarbour what value do you get in the Excel cell ?

NIL

EMG

NIL or NULL ?

[Enrico Maria Giordano]

Antonio,

Code: Select all  Expand view  RUN

? oSheet:Cells( 1, 1 ):Value, VALTYPE( oSheet:Cells( 1, 1 ):Value )

Code: Select all  Expand view  RUN

NIL U

EMG

[Antonio Linares]

Enrico,

I meant what do you see in Excel. What is shown is Excel ?

Not the value that you get from Harbour.

[Enrico Maria Giordano]

Antonio,

I meant what do you see in Excel. What is shown is Excel ?

Not the value that you get from Harbour.

Sorry. I see an empty cell. So we only need an automatic convertion from CTOD( "" ) to NIL.

EMG

[Antonio Linares]

Enrico,

have you tried this ?

oSheet:Cells( 1, 1 ):Value = nil

[Enrico Maria Giordano]

Antonio,

have you tried this ?

oSheet:Cells( 1, 1 ):Value = nil

Yes, I already reported the result. It works.

EMG

[nageswaragunupudi]

As of now there is no way except review all our code and modify wherever dates are assigned.

oSheet:Cells(r,c):NumberFormat := "dd-mm-yyyy" // or similar
oSheet:Cells(r,c):Value := If( Year(d) < 1900, nil, d )

I prefer
oSheet:Cells(r,c):Value := If( Year(d) < 1900, AdoNull(), d )
This works with ADO also.

[Enrico Maria Giordano]

Nages,

absolutely impractical...

EMG

[Enrico Maria Giordano]

Dear friends,

any news? I'm stuck with my Harbour migration...

EMG

[Antonio Linares]

Enrico,

What is missing ?

I mean, something that really stops you to migrate to Harbour

[Enrico Maria Giordano]

Antonio,

this one:

Code: Select all  Expand view  RUN

oSheet:Cells( 1, 1 ):Value = CTOD( "" )

EMG

[Antonio Linares]

Enrico,

But this worked fine, right ?

oSheet:Cells( 1, 1 ):Value = nil

[Rick Lipkin]

Enrico

Can you try something like this ?

Code: Select all  Expand view  RUN

oSheet:Range( "A:A" ):Set( "NumberFormat", '00/00/00' ) // field mask

// sets headers
oSheet:Cells( 1, 1 ):value  := "Date"
...
...
...

Do while ...
     
     oSheet:Cells( nRow, 1 ):Value  := ctod("")
     ...
     ....
     nRow++
     skip

Enddo  
 

In my code NumberFormat works on Char as well as numeric .. perhaps in it would force the above picture clause on column 1 to 00/00/00 ?

Rick Lipkin

[Enrico Maria Giordano]

Antonio,

But this worked fine, right ?

oSheet:Cells( 1, 1 ):Value = nil

Yes. But I have far too many places when dates can be empty.

Anyway, does it make sense that we can assign all empty types except date? These all work:

Code: Select all  Expand view  RUN

oSheet:Cells( 1, 1 ):Value = ""
oSheet:Cells( 1, 1 ):Value = 0
oSheet:Cells( 1, 1 ):Value = .F.

EMG