EPOCH time

[trancexx]

This can be done by dllcalling function or two from msvcrt.dll. Limitation of that way is that it cannot proceed negative EPOCH times and is limited to maximum year of 2038 (3000).

Probably there is some other function inside some other dll since Javascript has this as built-in function and for example VBS can deal with "negative" times.

Anyway, this is done without DllCall(). It is completley based on Date.au3 and functions inside it.

- Why did I extract this out of Date.au3? Because this way these two functions are about 6-7 times faster than using Date.au3.

- Speed compared to some other methods? Incredible! Impressive! omg!

- Why? Date.au3 is very resourceful script. When I look at functions inside of it I'm starting to wonder if people who wrote them are humans at all? I have serious suspicions about Jos van der Zande. I think that he (it!) is some sort of artificial intelligence. I think that that entity has no form but exists in form that is far beyond our... something. I'm serious.

Functions with small example:

expandcollapse popup

ConsoleWrite("EPOCH time 1234567890 is " & _Epoch_decrypt(1234567890) & @CRLF)
ConsoleWrite("Date 4712/12/31 23:59:59 is EPOCH " & _Epoch_encrypt("4712/12/31 23:59:59") & @CRLF)



Func _EPOCH_decrypt($iEpochTime)
    Local $iDayToAdd = Int($iEpochTime / 86400)
    Local $iTimeVal = Mod($iEpochTime, 86400)
    If $iTimeVal < 0 Then
        $iDayToAdd -= 1
        $iTimeVal += 86400
    EndIf
    Local $i_wFactor = Int((573371.75 + $iDayToAdd) / 36524.25)
    Local $i_xFactor = Int($i_wFactor / 4)
    Local $i_bFactor = 2442113 + $iDayToAdd + $i_wFactor - $i_xFactor
    Local $i_cFactor = Int(($i_bFactor - 122.1) / 365.25)
    Local $i_dFactor = Int(365.25 * $i_cFactor)
    Local $i_eFactor = Int(($i_bFactor - $i_dFactor) / 30.6001)
    Local $aDatePart[3]
    $aDatePart[2] = $i_bFactor - $i_dFactor - Int(30.6001 * $i_eFactor)
    $aDatePart[1] = $i_eFactor - 1 - 12 * ($i_eFactor - 2 > 11)
    $aDatePart[0] = $i_cFactor - 4716 + ($aDatePart[1] < 3)
    Local $aTimePart[3]
    $aTimePart[0] = Int($iTimeVal / 3600)
    $iTimeVal = Mod($iTimeVal, 3600)
    $aTimePart[1] = Int($iTimeVal / 60)
    $aTimePart[2] = Mod($iTimeVal, 60)
    Return StringFormat("%.2d/%.2d/%.2d %.2d:%.2d:%.2d", $aDatePart[0], $aDatePart[1], $aDatePart[2], $aTimePart[0], $aTimePart[1], $aTimePart[2])
EndFunc


Func _Epoch_encrypt($date)
    Local $main_split = StringSplit($date, " ")
    If $main_split[0] - 2 Then
        Return SetError(1, 0, "") ; invalid time format
    EndIf
    Local $asDatePart = StringSplit($main_split[1], "/")
    Local $asTimePart = StringSplit($main_split[2], ":")
    If $asDatePart[0] - 3 Or $asTimePart[0] - 3 Then
        Return SetError(1, 0, "") ; invalid time format
    EndIf
    If $asDatePart[2] < 3 Then
        $asDatePart[2] += 12
        $asDatePart[1] -= 1
    EndIf
    Local $i_aFactor = Int($asDatePart[1] / 100)
    Local $i_bFactor = Int($i_aFactor / 4)
    Local $i_cFactor = 2 - $i_aFactor + $i_bFactor
    Local $i_eFactor = Int(1461 * ($asDatePart[1] + 4716) / 4)
    Local $i_fFactor = Int(153 * ($asDatePart[2] + 1) / 5)
    Local $aDaysDiff = $i_cFactor + $asDatePart[3] + $i_eFactor + $i_fFactor - 2442112
    Local $iTimeDiff = $asTimePart[1] * 3600 + $asTimePart[2] * 60 + $asTimePart[3]
    Return $aDaysDiff * 86400 + $iTimeDiff
EndFunc

What is really special about this functions is that they cover dates from -4712/12/31 23:59:59 (EPOCH -210831897601) to 2147483647/12/25 20:00:00 (EPOCH 67767976233000000). First date is nothing special but second one is far beyond other converters can convert. Far, far...

edit: "comared" is not a word lol

Edited September 6, 2013 by trancexx

[enaiman]

Thank you for sharing this

It will help me great at the moment because I just wanted to start writing such a function myself and my Guardian Angel whispered me to search first on forum Lucky me

I wouldn't mind seeing the dllcall version too

[Jos]

. I think that he (it!) is some sort of artificial intelligence. I think that that entity has no form but exists in form that is far beyond our... something. I'm serious.

Excuse me ... you are referring to me as "it"?

Jos

[Szhlopp]

Excuse me ... you are referring to me as "it"?

Jos

I think it is...

LOL

[trancexx]

Thank you for sharing this

It will help me great at the moment because I just wanted to start writing such a function myself and my Guardian Angel whispered me to search first on forum Lucky me

I wouldn't mind seeing the dllcall version too

$epoch_time = 1234567890
    $aCall = DllCall("msvcrt.dll", "str:cdecl", "ctime", "int*", $epoch_time) 
    ConsoleWrite("EPOCH time = " & $epoch_time & @CRLF)
    ConsoleWrite("EPOCH time converted to your timezone time = " & $aCall[0] & @CRLF)

Can be used for 0 < $epoch_time < 2147483647

@AI (a.k.a. Jos);

What? You're gonna X-ray me now or something?

[GEOSoft]

Excuse me ... you are referring to me as "it"?

Jos

And he/she/it went so far as to suggest that your intelligence was artificial. Ik zou zeggen dat een klap in het gezicht.

[Jos]

@AI (a.k.a. Jos);

What? You're gonna X-ray me now or something?

That would be a too friendly treatment

Ik zou zeggen dat een klap in het gezicht.

Yes... that's it for sure! Edited November 11, 2008 by Jos

[trancexx]

And he/she/it went so far as to suggest that your intelligence was artificial. Ik zou zeggen dat een klap in het gezicht.

You would. Wouldn't you?

[Jos]

You would. Wouldn't you?

Don't think you translated that correctly when you make this remark.

[trancexx]

Don't think you translated that correctly when you make this remark.

I was just using "argumentum ad hominem" (google?) for some fire.

You ruined it now!

[enaiman]

$epoch_time = 1234567890
    $aCall = DllCall("msvcrt.dll", "str:cdecl", "ctime", "int*", $epoch_time) 
    ConsoleWrite("EPOCH time = " & $epoch_time & @CRLF)
    ConsoleWrite("EPOCH time converted to your timezone time = " & $aCall[0] & @CRLF)

Can be used for 0 < $epoch_time < 2147483647

Sweet

Thanks alot.

[taz742]

Thanks a lot trancexx for this useful unix timestamp encode/decode functions

Edited October 19, 2009 by taz742

[trancexx]

Very nice, trancexx, I've been looking for an alternative to the limited range of msvcrt.dll.

There is something wrong with your decrypt function though.

A timestamp of 1263769500 returns a invalid date of 2009/13/17 23:05:00.

You are right.

But I would lie if I tell you I didn't know that

Corrected it a long ago but didn't post here. Corrected can be found inside the script called ResourcesViewerAndCompiler.au3.

Function there is called _EpochDecrypt. It was just a touch.

[jchd]

May I add a little reminder to those that could be tempted to use trancexx code for applications where leap seconds matter (stock operations, remote auctions, documents timestamping, astronomy and the like) without asking themselves the right questions. Of course, this is a general remark and is in no way specific to what trancexx kindly shares with us.

You need to determine exactly which taste of Unix epoch you have/want, which time scale you are converting to/from and which local legislation you need to take care of, in cases where placing a point in time makes a big difference if it falls that day/month/year or the next.

AFAIK there can be up to 26 (no, not 24) seconds of difference between legal and official time. Also trying to place a time point more than 6 months in future within a few seconds is almost impossible.

It's possible that those leap seconds will be suppressed completely someday, but until this happens (2013?) some of us will have to manipulate time with great care on such demanding occasions.

[ABV]

An EPOC of 0, seems to give a date in 1969!

[KaFu]

Corrected it a long ago but didn't post here. Corrected can be found inside the script called

Function there is called _EpochDecrypt. It was just a touch.

[czardas]

I read the preamble and the rest.

Interesting bit of code trancexx. I designed a front end, what do you think?

It does have something to do with measuring time, honest!

Edit

I just looked at how you are using comparison operators alongside mathematical operators in lines 26 and 27. That's something new to me. Your example is appreciated. Thanks.

Edited October 20, 2011 by czardas

[trancexx]

I read the preamble and the rest.

Interesting bit of code trancexx. I designed a front end, what do you think?

It does have something to do with measuring time, honest!

What do you think I think?

[JohnOne]

I think he thinks you think that he thinks....

wait, forget that.

Whats an epoch?

EDIT:

Is it off star wars?

Edited October 20, 2011 by JohnOne

[czardas]

Since I figured you were encrypting time, I though there was a chance you might find it amusing. I'm sure you're going to tell me anyway.

I'm not sure what are the real applications for unix time are, so forgive me for showing ignorance.