- modifiche a finestra e data

2025-06-12 20:04:21 +02:00
parent dcaef9eaa9
commit bdcda23197
3 changed files with 346 additions and 107 deletions
@@ -6,10 +6,9 @@
      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")
+         Return dtValue.ToString("d") & " " & dtValue.ToString("T")
      End If
   End Function