Accountant: Inventar, where, Checkmk, Abrechnung

pkg/accountant/money.go

@@ -0,0 +1,45 @@
+package accountant
+
+import (
+	"fmt"
+	"strconv"
+	"strings"
+)
+
+// ParseMoney liest einen Betrag in Euro (z. B. "89", "89,00", "89.5",
+// "1.234,56") und liefert Cent. Mehr als zwei Nachkommastellen und negative
+// Beträge sind Fehler.
+func ParseMoney(s string) (int64, error) {
+	s = strings.TrimSpace(s)
+	orig := s
+	if strings.Contains(s, ",") {
+		s = strings.ReplaceAll(s, ".", "") // Tausenderpunkte
+		s = strings.Replace(s, ",", ".", 1)
+	}
+	whole, frac, _ := strings.Cut(s, ".")
+	if whole == "" || len(frac) > 2 || strings.ContainsAny(frac, ".,") {
+		return 0, fmt.Errorf("Betrag %q nicht lesbar (z. B. 89,00)", orig)
+	}
+	for len(frac) < 2 {
+		frac += "0"
+	}
+	euros, err := strconv.ParseUint(whole, 10, 40)
+	if err != nil {
+		return 0, fmt.Errorf("Betrag %q nicht lesbar (z. B. 89,00)", orig)
+	}
+	cents, err := strconv.ParseUint(frac, 10, 8)
+	if err != nil {
+		return 0, fmt.Errorf("Betrag %q nicht lesbar (z. B. 89,00)", orig)
+	}
+	return int64(euros)*100 + int64(cents), nil
+}
+
+// FormatMoney formatiert Cent als Euro mit Dezimalkomma ("89,00"), wie
+// Lexware Office es beim Import erwartet.
+func FormatMoney(cents int64) string {
+	sign := ""
+	if cents < 0 {
+		sign, cents = "-", -cents
+	}
+	return fmt.Sprintf("%s%d,%02d", sign, cents/100, cents%100)
+}