sub MyReadingsVal {
        my ($dev, $rdg, $def) = @_;

        if ( $dev eq "TIME" ) {
            $rdg eq 'hour'    and return $notifytable_hour;
            $rdg eq 'hfhour'  and return $notifytable_hour << 1 + ( $notifytable_min > 29 ? 1 : 0 );
            $rdg eq 'qhour'   and return $notifytable_hour << 2 + floor( $notifytable_min/15 );
            $rdg eq 'minute'  and return $notifytable_min;
            $rdg eq 0         and return $notifytable_min;
            return undef;
        } else {
            return ReadingsVal( $dev, $rdg, $def );
        }

}