- aggiunta EffectorWindow con TitleBar
- Utilizzata EffectorWindow per MultipleCopyWnd - Utilizzata BaseWindow per ProcessManagerV - aggiunto titolo a TitleBar - aggiunto modulo Converters
This commit is contained in:
@@ -0,0 +1,20 @@
|
||||
Public Module Converters
|
||||
|
||||
ReadOnly dtLuaMinValue As New DateTime(1970, 1, 1, 0, 0, 0, DateTimeKind.Utc)
|
||||
|
||||
Public Function ConvertDateTimeToString(dtValue As DateTime) As String
|
||||
If dtValue < dtLuaMinValue.AddDays(1) Then
|
||||
Return ""
|
||||
ElseIf dtValue > DateTime.Today Then
|
||||
Dim d = dtValue.ToString("T")
|
||||
Return dtValue.ToString("T")
|
||||
Else
|
||||
Return dtValue.ToString("d T")
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Function ConvertDateTimeToLuaInteger(dtValue As DateTime) As Integer
|
||||
Return Math.Floor((dtValue.ToUniversalTime - dtLuaMinValue).TotalSeconds)
|
||||
End Function
|
||||
|
||||
End Module
|
||||
Reference in New Issue
Block a user