WIP: hour precision.

This commit is contained in:
David Keegan 2013-10-28 11:33:09 +00:00
parent a894537691
commit 8c031da5f9
2 changed files with 4 additions and 4 deletions

View file

@ -23,9 +23,9 @@ def _Throw(Msg): Misc.Throw(Msg, ModuleName)
def DateParse(Datestr):
"""Converts a date string to seconds since the epoch."""
Fs = DateFormat;
if length(Datestr) > 16 : Fs = DateFormatHms;
elif length(Datestr) > 13 : Fs = DateFormatHm;
elif length(Datestr) > 10 : Fs = DateFormatH;
if len(Datestr) > 16 : Fs = DateFormatHms;
elif len(Datestr) > 13 : Fs = DateFormatHm;
elif len(Datestr) > 10 : Fs = DateFormatH;
return mktime(strptime(Datestr, Fs))
def DateToText(Seconds):

View file

@ -70,7 +70,7 @@ transaction date."
; Hard-coded alternative value for debug only.
(or dklrt-PackageDirectory
(setq dklrt-PackageDirectory "/opt/dk/emacs/dklrt-20131028.1025/"))
(setq dklrt-PackageDirectory "/opt/dk/emacs/dklrt-20131028.1129/"))
;;;###autoload
(defun dklrt-SetCcKeys()