Convertir Ticks en Fecha y viceversa

Hoy quisiera publicar un tip que es prácticamente tonto, pero dado que he recibido la consulta y la solución puede no resultar de lo más intuitiva, aquí dejo una función para convertir Ticks en Fecha y Fecha en Ticks.


Antes que nada, qué son Ticks?

Un tick es el mínimo valor que representa un paso, equivalente a 100 nanosegundos, o sea en un mili segundo hay 10.000 ticks.

Public Function TicksToDateTime(ticks As Long) As DateTime
   ' Intuitivo sería tener una función DateTime.FromTicks(Long)

   Return New DateTime(ticks) 
End Function

Public Function DateTimeToTicks(date As DateTime) As Long
   Return date.Ticks
End Function

Como había anticipado, la solución es muy tonta!

En cuanto a tener una forma más intuitiva, podríamos crear un Método de Extensión, (Extension Method), que afecte la clase DateTime, de esa manera tener DateTime.FromTicks(Long).