на дельфи я делал так: посимвольным циклом с конца искал позицию последней дроби и обрезал всё до нее