[Visual Basic 6] - Visualizzare Ore, minuti, secondi

[lucausa75]

Salve ragazzi,

sto realizzando un programma che carica i dati di una tabella excel su una MSHFLEXGRID.

Fino a qui tutto OK ma il problema è nella conversione dei dati.

Mi spiego meglio.

Nella tabella excel c'è un campo la cui formattazione è di tipo personalizzato: [=0]?;[<4,16666666666667][hh].mm.ss;[hh].mm e il valore restituito su excel è di tipo: 06.32.44 cioè 6h 32min 44sec.

Con la seguente riga di codice Griglia.Text = xlApp(Lista).Cells(i, j) carico i valori sulla MSHFLEXGRID.

All'atto di caricare però i valori di tipo h-min-sec sulla griglia visualizzo numeri del tipo 1,48032407407407E-02 anzichè 06.32.44.

Sicuramente debbo utilizzare una funzione di conversione che non conosco: mi aiutate?

Grazie 1000!

[banryu79]

Salve ragazzi,

sto realizzando un programma che carica i dati di una tabella excel su una MSHFLEXGRID.

Fino a qui tutto OK ma il problema è nella conversione dei dati.

Mi spiego meglio.

Nella tabella excel c'è un campo la cui formattazione è di tipo personalizzato: [=0]?;[<4,16666666666667][hh].mm.ss;[hh].mm e il valore restituito su excel è di tipo: 06.32.44 cioè 6h 32min 44sec.

Con la seguente riga di codice Griglia.Text = xlApp(Lista).Cells(i, j) carico i valori sulla MSHFLEXGRID.

All'atto di caricare però i valori di tipo h-min-sec sulla griglia visualizzo numeri del tipo 1,48032407407407E-02 anzichè 06.32.44.

Sicuramente debbo utilizzare una funzione di conversione che non conosco: mi aiutate?

Grazie 1000!

Ma Griglia.Text cosa si aspetta di ricevere in igresso e cosa invece ti sputa fuori xlApp(Lista).Cells(i, j)?

Non conosco l'oggetto MSHFLEXGRID ma sembra che le date vengano interpretate e/o visualizzate come se fossero dei double.

[lucausa75]

Ma Griglia.Text cosa si aspetta di ricevere in igresso e cosa invece ti sputa fuori xlApp(Lista).Cells(i, j)?

Non conosco l'oggetto MSHFLEXGRID ma sembra che le date vengano interpretate e/o visualizzate come se fossero dei double.


...grazie per l'aiuto, ho cmq risolto utilizzando questa riga di codice:

MyStr = Format(xlApp(Lista).Cells(i, j), "hh:mm:ss")
Griglia.Text = MyStr