GANT csesztetése

2018-06-25 20:15:36 +02:00
parent 5bc4185d1f
commit 51be4568d2
9 changed files with 368 additions and 426 deletions
@@ -255,7 +255,7 @@ Public Module GeneralFunction
        l = Math.Round(Math.Abs(l), 2, MidpointRounding.AwayFromZero)

        VégStr = ""
-        SzámSzöveg = Format(l, "000000000000.0")
+        SzámSzöveg = Format(l, "000000000000.00")

        seged = Mid(SzámSzöveg, 1, 3)
        seged = Change3Value(seged)
@@ -285,7 +285,7 @@ Public Module GeneralFunction
        seged = Change3Value(seged)
        VégStr = VégStr & seged
        seged = Mid(SzámSzöveg, 14, 1)
-        VégStr = VégStr & " " & seged & "0/100"
+        VégStr = VégStr & " " & seged & "/100"

        Return UCase$(VégStr)
    End Function