Print result of `db/ntp-to-time' when called interactively

Otherwise no result is displayed.

site-lisp/db-utils.el

@@ -201,8 +201,8 @@ FORMAT-STRING defaults to some ISO 8601-like format."
                                                   'raw)
                                        ;; we explicitly call `calcFunc-unixtime'
                                        ;; here to set the time zone to UTC
-                                       0)))
-    (format (or format-string
+                                       0))
+         (time-string (format (or format-string
                                   "%04d-%02d-%02dT%02d:%02d:%012.9fZ")
                               (calcFunc-year unix-time)
                               (calcFunc-month unix-time)
@@ -216,6 +216,9 @@ FORMAT-STRING defaults to some ISO 8601-like format."
                               ;; corresponding regression test …
                               (string-to-number
                                (calc-eval "trunc(second($), 9)" 'num unix-time)))))
+    (if (called-interactively-p 'interactive)
+        (message time-string)
+      time-string)))
 
 (defun conditionally-enable-lispy ()
   "Enable lispy-mode when in `eval-expression’ or in