[VB6] Orario da valore TimeStamp

[IKON]

Ciao Ragazzi,
utilizzo VB6

Devo convertire il valore di un cmp TimeStamp in un orario.
Qualcuno sa come si fa?

Grazie

[mgmg]

Scusa ma che valori vedi nel timestamp? Non sai il metodo con cui viene scritto?
Ciao

[IKON]

i valori timestamp sono scritti su un db su un server che io vado solo a leggere, quindi non so come vengono scritti.

il valore è un numero di 14 caratteri timpo questo 1129130119

[IKON]

scusa volevo dire 10 caratteri

[mgmg]

Da Questo numero 1129130119 mi sembra di capire che 130119 è l'ora e 1129 sono i giorni trascorsi dal 01/01/2000 alla data in cui è stato scritto il record:
Prova:
Text1 = CDate(1129)
B = DateDiff("d", 1 / 1 / 2000, Text1)
A = DateAdd("d", 1129, 1 / 1 / 2000)

Prova a verificare se quando scrivono l'ora la formattano sempre in hhmmss verificando gli orari prima delle ore 10 se sono esempio: 090000, se è così basta che provi con:

c = "1129130119"
d = Right(c, 6)

Speriamo!! Ciao

[IKON]

Penso che quel numero dovrebbero essere il numero di secondi passati dal 01/01/1970 alle 00:00:00

quindi dovrei trovare una funzione matematica che traduce quel numero nell'orario che rappresenta

[mgmg]

Se sono secondi puoi fare in questo modo:
Tempo = rs!timestamp (1129130119)
DataP = "01/01/1970"
'ritrovo data/ora
A = DateAdd("s", Tempo, DataP)
'la data e l'ora che ritorna è 12/10/2005 15.15.19
'con instr cerco lo spazio e lo trovo in posizione 11
B = InStr(1, A, " ", vbTextCompare)
'trovo l'ora che è 15.15.19
Ora = Mid(A, B + 1, Len(A) - B)

Ciao