Language: Add UnixTime Converter

GUIs.ZooFlow/Search/frmFlowSearch.vb

@@ -228,12 +228,12 @@ Public Class frmFlowSearch
             }
             Dim oShortGuid = Guid.NewGuid()
             Dim oWindowGuid = $"FLOWSEARCH-{My.User.Name}"
-            Dim oParams = New DocumentResultParams() With {
+            Dim oParams = New DocumentResultList.Params() With {
                 .WindowGuid = oWindowGuid,
                 .Results = New List(Of DocumentResultList) From {
                     New DocumentResultList() With {
                         .Title = "FlowSearchResult",
-                        .Datatable = pDTRESULT
+                        .DataTable = pDTRESULT
                     }
                 }
             }

GUIs.ZooFlow/Search/frmSearchStart.vb

@@ -951,10 +951,10 @@ Public Class frmSearchStart
             If oDTSearchResult.Rows.Count > 0 Then
                 Dim oShortGuid = Guid.NewGuid()
                 Dim oWindowGuid = $"{SEARCH_ID.ToString}-{My.User.Name}"
-                Dim oParams = New DocumentResultParams() With {
+                Dim oParams = New DocumentResultList.Params() With {
                     .WindowGuid = oWindowGuid,
-                    .Results = New List(Of DocumentResultList) From {
+                    .Results = New List(Of DocumentResultList.DocumentResult) From {
-                        New DocumentResultList() With {
+                        New DocumentResultList.DocumentResult() With {
                             .Title = SelectedTab.Text,
                             .Datatable = oDTSearchResult
                         }

Modules.Language/DateTimeEx.vb

@@ -0,0 +1,12 @@
+Imports System.Runtime.CompilerServices
+
+Public Module DateTimeEx
+    Const UnixEraStartTicks As Long = 621355968000000000
+    <Extension> Public Function UnixTimestamp(value As Date) As Long
+        Dim UnixEraTicks = value.Ticks - UnixEraStartTicks
+        Return UnixEraTicks \ 10000
+    End Function
+    Public Function DateFromUnix(timestamp As Long) As Date
+        Return New Date(UnixEraStartTicks + timestamp * 10000)
+    End Function
+End Module

Modules.Language/Language.vbproj

@@ -75,6 +75,7 @@
   </ItemGroup>
   <ItemGroup>
     <Compile Include="DataTableEx.vb" />
+    <Compile Include="DateTimeEx.vb" />
     <Compile Include="InvalidChars.vb" />
     <Compile Include="Utils.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />