Timestamp to date

searched, didnt find one, and im surprised. if you want to change your questions from "pre built functions" to "functions", you will get lots of responses.

Hi i have finally found an answer

Typicaly the two pieces of equipment i am using are different in their methods of giving the date (even though they are made by the same people).

solution

one uses the unix timestamp so

a = some date in unix time stamp
b = DateAdd("s", a, #1/1/1970#)

the other piece of equipment starts its counter on the first day of each year so

a = the equipments counter
b = DateAdd("s", a, #1/1/2006#)

sorted

cheers for having a look BSOB

Cez

a = the equipments counter
b = DateAdd("s", a, #1/1/2006#)

in regards to that ^, well done, and i dont mean to be a bug, and im sure youve thought of this, but i dont want some machine failing because i assumed youd thought of it: 2006 will only last another few months, you may want this to still work next year.
thats all.

Yes i had thought of this but thanks for pointing that out. Ive ended up getting the user to do enter the year. Ive also made it in to a function for vb,excel,access etc

Public Function PPMS_Timestamp_to_Date(TimeStamp As Double, year_yyyy As Double) As Date
' This function takes the current year and the time stamp from the mpms and works out the correct time and date
'the mpms time stamp starts on the first of each year

Dim startofyear As Date
startofyear = CDate("1/1/" + Str(year_yyyy)) ' calculate start of year
PPMS_Timestamp_to_Date = DateAdd("s", TimeStamp, startofyear) ' add time stamp to current year

End Function


If you have any more efficient ways of doing this or refining it i would like to know. Im a bit rusty on my vb at the moment. just getting back in to it

Cheers

Cez