B4J Code Snippet SQL Server - Convert SQL Server Datetime Value to Unix Datetime and vice versa

It requires jDateUtils library

Sub GetDatetimeValueSqlServerFromUnixDatetime(dt As Long) As Double
    Dim p As Period =  DateUtils.PeriodBetweenInDays(DateTime.DateTimeParse("1/1/1900", "0:0:0"), dt)
    Return p.Days + ((p.Hours * 3600 + p.Minutes * 60 + p.Seconds)/(3600*24))
End Sub

Sub GetDatetimeValueUnixFromSqlServerDatetime(days As Double) As Long
    Dim p As Period
    p.Initialize
    
    p.Days = Floor(days)
    p.Seconds = Floor((days - p.Days) * (3600*24))
    
    Return DateUtils.AddPeriod(DateTime.DateTimeParse("1/1/1900", "0:0:0"), p)
End Sub