Convertir PRTime a Fecha y Hora

[culd]

Buenas, tengo por ejemplo esta fecha/hora, en formato PRTime de UTC
1259194555781250

La idea seria tranformar eso a la fecha y hora correspondiente.

PD: Solo necesito el algoritmo nada mas.

Edito: Tengo un solo ejemplo de como quedaria una fecha desenciptada...
“1221842272303080” quedaria asi “16:37:52 19/09/2008 UTC”.

[seba123neo]

Hola, proba:

Código vb:

MsgBox DateAdd("s", 1221842272.3, "01/01/1970 00:00:00")
 

el "1221842272.3" son segundos, los que vos pusiste "1221842272303080" son en formato PRTime que son microsegundos, yo los pase a segundos, o sea el epoch de unix.

saludos.

[culd]

Iniciado por seba123neo

Hola, proba:

Código vb:

MsgBox DateAdd("s", 1221842272.3, "01/01/1970 00:00:00")
 

el "1221842272.3" son segundos, los que vos pusiste "1221842272303080" son en formato PRTime que son microsegundos, yo los pase a segundos, o sea el epoch de unix.

saludos.

Jajajajaja que HDP... y yo que me arme este algoritmo

Código vb:

Public Function PRTime_Fecha(PRTime As Double) As String
Dim Numero As Double
Dim Fecha As Date
Dim Dias As Long
Dim Horas As Long
Dim Minutos As Long
Dim MinutosEXACTOS As Double
Dim Segundos As Long
 
'----- Calculo la fecha -----
'Tiempo / 1000000 <--- Ahi obtengo la cantidad de segundos de la fecha
'Resultado / 86400 <--- Obtengo la cantidad de dias (86400 es la cantidad de segundos de un dia)
Dias = Int(((PRTime / 1000000) / 86400))
Fecha = DateAdd("d", Dias, CDate("01/01/1970"))
 
'----- Calculo la hora -----
Horas = Int((((PRTime / 1000000) / 60) / 60) - (Dias * 24))
 
'----- Calculo los minutos -----
MinutosEXACTOS = (((PRTime / 1000000) / 60) - (Dias * 24 * 60)) - (Horas * 60)
Minutos = Int(MinutosEXACTOS)
 
'----- Calculo los segundos -----
Segundos = Int((MinutosEXACTOS * 60) - (Minutos * 60))
 
PRTime_Fecha = Fecha & " " & Horas & ":" & Minutos & ":" & Segundos
End Function