função para dividir exportação de dados em arquivos XML- em lotes

Olá Pessoa,

Alguém tem um luz de montar um função para dividir uma exportação de dados em arquivos XML - em lotes... Baseando na definição do Max. de numero de registro em cada arquivo

Digo: Tenho 9585 registros

Daí eu dividi por 2 obtendo 4.7952,5

Via Mod (%) obtive o resto... Daí, validei a parte intera e Add +1

Obtendo:

Parte A arquivo 1 com 4793 registros

Parte B arquivo 2 com 4792 registros

Total : 9585 De forma estática Ok;

Contudo, preciso obter os lotes e o resto dinamicamente baseado apenas no parâmetro do Maximo de registros.

Por exemplo:

Maximo de registro: 4000

Se dividir o total pelo máximo definido teria:

2 lotes de 4000 + outro lote do resto 1585 registros

4000 + 4000 + 1585

ObterLotes(maxPorReg);
Retornado:

a) nLotesIteiros

b) qtde_RegistroLote

c) qtde_qRestoResto

Agradeço qualquer ajuda.