Guest User

Untitled

a guest
Jun 23rd, 2018
76
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.14 KB | None | 0 0
  1. Public Function ConvertFileTime(ByVal d As Double) As Date
  2. ConvertFileTime = DateAdd("n", (d / 600000000) + (60 * -4), #1/1/1601#)
  3. End Function
Add Comment
Please, Sign In to add comment