Use built-in "pad" function

This commit is contained in:
Dianne Skoll
2022-03-24 17:34:08 -04:00
parent 06c5996086
commit ed72ef8629
2 changed files with 2 additions and 2 deletions

View File

@@ -51,7 +51,7 @@ FSET subst_ampm(h) iif(h<5, " om natten", h < 12, " om formiddagen", h < 18, " o
FSET subst_ordinal(d) "."
FSET subst_p(alt, d, t) iif(d==today()+1, "", "e")
FSET zeropad(s, len) iif(strlen(s + "") >= len, s + "", substr("0000", 1, len-strlen(s + "")) + s)
FSET zeropad(s, len) pad(s, "0", len)
FSET subst_a_alt(d) wkday(d) + ", den " + day(d) + ". " + mon(d) + " " + year(d)
FSET subst_ax(alt, d, t) iif(alt, subst_a_alt(d), $On + " " + subst_a_alt(d))

View File

@@ -47,7 +47,7 @@ SET $And "ja"
SET $Hplu "a"
SET $Mplu "a"
FSET zeropad(s, len) iif(strlen(s + "") >= len, s + "", substr("0000", 1, len-strlen(s + "")) + s)
FSET zeropad(s, len) pad(s, "0", len)
FSET subst_ordinal(d) iif(d==1, ":senä", d==2, ":sena", (d%10)==2||(d%10)==3||(d%10)==6||(d%10)==8, ":ntena", ":ntenä")