From b00ffff0d99da32767d0b7c7d617cdc6d411034f Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Tue, 18 Jan 2022 16:18:47 +0100
Subject: [PATCH] Language: Add UnixTime Converter

---
 GUIs.ZooFlow/Search/frmFlowSearch.vb  |  4 ++--
 GUIs.ZooFlow/Search/frmSearchStart.vb |  6 +++---
 Modules.Language/DateTimeEx.vb        | 12 ++++++++++++
 Modules.Language/Language.vbproj      |  1 +
 4 files changed, 18 insertions(+), 5 deletions(-)
 create mode 100644 Modules.Language/DateTimeEx.vb

diff --git a/GUIs.ZooFlow/Search/frmFlowSearch.vb b/GUIs.ZooFlow/Search/frmFlowSearch.vb
index 5e14be25..65334d70 100644
--- a/GUIs.ZooFlow/Search/frmFlowSearch.vb
+++ b/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
                     }
                 }
             }
diff --git a/GUIs.ZooFlow/Search/frmSearchStart.vb b/GUIs.ZooFlow/Search/frmSearchStart.vb
index aa23a1bd..86bfe333 100644
--- a/GUIs.ZooFlow/Search/frmSearchStart.vb
+++ b/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 {
-                        New DocumentResultList() With {
+                    .Results = New List(Of DocumentResultList.DocumentResult) From {
+                        New DocumentResultList.DocumentResult() With {
                             .Title = SelectedTab.Text,
                             .Datatable = oDTSearchResult
                         }
diff --git a/Modules.Language/DateTimeEx.vb b/Modules.Language/DateTimeEx.vb
new file mode 100644
index 00000000..4cc4d86e
--- /dev/null
+++ b/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
diff --git a/Modules.Language/Language.vbproj b/Modules.Language/Language.vbproj
index 1598a26f..d7b8357b 100644
--- a/Modules.Language/Language.vbproj
+++ b/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" />