|
From: | Lennart Borgman (gmail) |
Subject: | Re: Checking parameters |
Date: | Sun, 17 Jun 2007 13:18:07 +0200 |
User-agent: | Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.4) Gecko/20070604 Thunderbird/2.0.0.4 Mnenhy/0.7.5.666 |
Lennart Borgman (gmail) wrote:
You probably want to use the most simple way, something like (defun get-hours(time) (interactive "sHH:MM: ") (let ((timelist (split-string time ":")) (errmsg "Time format error")) (unless (= (length (nth 1 timelist)) 2) (error errmsg)) (+ (string-to-number (nth 0 timelist)) (/ (string-to-number (nth 1 timelist)) 60.0))))
And this is better: (defun get-hours(time) (interactive "sHH:MM: ") (let ((timelist (split-string time ":")) (errmsg "Time format error")) (save-match-data (unless (string-match "\\`[0-9]+:[0-9]\\{2\\}\\'" time) (error errmsg))) (+ (string-to-number (nth 0 timelist)) (/ (string-to-number (nth 1 timelist)) 60.0))))
[Prev in Thread] | Current Thread | [Next in Thread] |