Trunc / Frac -> Wie funktionieren die intern?

[SebE]

Hat jemand den Source der beiden Funktionen?
Hab leider keine Ahnung, wie die beiden intern funktionieren könnten.

Ich dachte erst bei TRUNC:
Result := Zahl div 1 //DIV funktioniert aber NUR bei Ganzzahl und FRAC:
Result := Zahl - Trunc(Zahl); Kann mir das jemand sagen?

Danke