XProfan

SubProc Get.Einer

    Parameters Zahl&&
    declare f!
    Var Divisor& = 10
    f! = (Zahl&& / Divisor& - Int(Zahl&& / Divisor&))
    Zahl&& = (Zahl&& / Divisor& - Int(Zahl&& / Divisor&)) * Divisor&
    Return (f! * Divisor&)

EndProc

SubProc Get.Zehner

    Parameters Zahl&&
    declare f!
    Var Divisor& = 100
    f! = (Zahl&& / Divisor& - Int(Zahl&& / Divisor&))
    Zahl&& = (Zahl&& / Divisor& - Int(Zahl&& / Divisor&)) * Divisor&
    Return (f! * Divisor&)

EndProc

Print Int(Get("Einer",2020))
Print "Warum kommt hier nur 19 raus?"
Print Int(Get("Zehner",2020))
Print
Print Get("Einer",2020)
Print "Als Floatausgabe richtig..."
Print Get("Zehner",2020)
Print "und mit Round auch"
Print Int(Round(Get("Zehner",2020),0))
WaitInput

CLS
Var Zahl& = 2020
Var Divisor& = 100
set("decimals",15)
print "  ";Zahl& / Divisor&
set("decimals",6)
print "  ";Zahl& / Divisor&
WaitInput
end