Op do, 12-07-2007 te 08:07 +0200, schreef Cecil Westerhof:
> I have the following table:
>
> |---+------------+---------+---------+--------+--------+-------+-------------------+----------+--------|
> | | datum | kmstand | prijs/l | liters | dagen | prijs | km's
> | prijs/km | km/l |
>
> |---+------------+---------+---------+--------+--------+-------+-------------------+----------+--------|
> | # | | 155111 | | | | |
> | | |
> | # | 2007-07-09 | 156146 | 102.2 | 62.25 | #ERROR | 63.62 | 1035
> | 6.147 | 16.627 |
> | # | 2007-09-11 | 6953 | 97.8 | 47.75 | #ERROR | 46.70 |
> Verkeerde kmstand | | |
> | # | | | | | #ERROR | |
> | | |
>
> |---+------------+---------+---------+--------+--------+-------+-------------------+----------+--------|
> #+TBLFM: $6='(if (and (not (check-if-after-hline)) (nz @-1$2) (nz
> $2)) (- (time-to-days (org-read-date t t "$2")) (time-to-days (org-read-date
> t t "@-1$2"))) "");S::$7='(if (and (nz $4) (nz $5)) (format "%.2f" (/ (* $4
> $5) 100)) "");N::$8='(if (and (nz @-1$3) (nz $3)) (if (> $3 @-1$3) (- $3
> @-1$3) (if (not (check-if-after-hline)) "Verkeerde kmstand" ""))
> "");N::$9='(if (and (nz $8) (nz $7)) (format "%.3f" (/ (* $7 100) $8))
> "");N::$10='(if (and (nz $8) (nz $5)) (format "%.3f" (/ $8 $5)) "");N
I should not use 'nz', but 'not' and 'equal'. This gives:
|---+------------+---------+---------+--------+-------+-------+-------------------+----------+--------|
| | datum | kmstand | prijs/l | liters | dagen | prijs | km's
| prijs/km | km/l |
|---+------------+---------+---------+--------+-------+-------+-------------------+----------+--------|
| # | | 155111 | | | | |
| | |
| # | 2007-07-09 | 156146 | 102.2 | 62.25 | -3 | 63.62 | 1035
| 6.147 | 16.627 |
| # | 2007-09-11 | 6953 | 97.8 | 47.75 | 64 | 46.70 |
Verkeerde kmstand | | |
| # | | | | | | |
| | |
|---+------------+---------+---------+--------+-------+-------+-------------------+----------+--------|
#+TBLFM: $6='(if (and (not (check-if-after-hline)) (not (equal @-1$2
"")) (not (equal $2 ""))) (- (time-to-days (org-read-date t t (concat $2)))
(time-to-days (org-read-date t t (concat @-1$2)))) "");S::$7='(if (and (nz $4)
(nz $5)) (format "%.2f" (/ (* $4 $5) 100)) "");N::$8='(if (and (nz @-1$3) (nz
$3)) (if (> $3 @-1$3) (- $3 @-1$3) (if (not (check-if-after-hline)) "Verkeerde
kmstand" "")) "");N::$9='(if (and (nz $8) (nz $7)) (format "%.3f" (/ (* $7 100)
$8)) "");N::$10='(if (and (nz $8) (nz $5)) (format "%.3f" (/ $8 $5)) "");N
The only problem is that in the second element of 'dagen' there stands
'-3'. It looks like it that '(not (equal @-1$2 ""))' is not correctly is
evaluated.
--
Cecil Westerhof <[EMAIL PROTECTED]>
_______________________________________________
Emacs-orgmode mailing list
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
