Module DateConversion
Public ReadOnly Property Epoch() As DateTime
Get
Return New DateTime(1970, 1, 1, 0, 0, 0, DateTimeKind.Utc)
End Get
End Property
Public Function FromUnix(ByVal seconds As Integer, local As Boolean) As DateTime
Dim dt = Epoch.AddSeconds(seconds)
If local Then dt = dt.ToLocalTime
Return dt
End Function
Public Function ToUnix(ByVal dt As DateTime) As Integer
If dt.Kind = DateTimeKind.Local Then dt = dt.ToUniversalTime
Return CInt((dt - Epoch).TotalSeconds)
End Function
End Module
REM https://stackoverflow.com/questions/13108574/converting-datetime-to-number-of-seconds-in-vb-net
ilmerge "c:\temp\Source.exe" "C:\blah\DLL_to_Add.dll" /out:"c:\temp\BuiltEXE.exe" /target:winexe /targetplatform:"v4,C:\Program Files (x86)\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.0"
REM Need to adjust the source,dll, and output for your task.
REM You may need to change the target platform for the .NET Framework you're using