[Resolvido]Agregar dias de datas em campo de texto de formulário

Olá a todos

Será que me podem ajudar?

Não consigo fazer o display, num campo texto, de dias de datas consecutivas.

Tenho dois campos:
DiaIni (campo calculado com o dia do mês de um campo do tipo data - "DataIni")
DiaFim (campo calculado com o dia do mês de um campo do tipo data - "DataFim")

Estes campos só existem no formulário. O conteúdo não vem de nenhuma tabela.

Pretendo obter um campo texto, no formulário, com o seguinte conteúdo (supondo que DiaIni = 2 e DiaFim = 5):
'02','03','04','05'

Na situação de as datas de inicio e fim serem as mesmas (por exemplo DiaIni = 2 e DiaFim = 2) o resultado terá que ser:
'02' (e não '02','02')

É necessário incluir as plicas (') antes e depois de cada dia e virgula a separar.

Obrigado
LM

Bom dia,

Tente o seguinte:

Código:

Dim dIni, dFim as integer

txtSeuCampo = Null
dIni = DiaIni
dFim = DiaFim

For i = dIni to dFim step 0
    if isNull(txtSeuCampo) = false then txtSeuCampo = txtSeuCampo & ", "
    txtSeuCampo = txtSeuCampo & "'"
    if i < 10 then txtSeuCampo = txtSeuCampo & "0"
    txtSeuCampo = txtSeuCampo & i & "'"

    i = i + 1
next

Se os campos DiaIni e DiaFim contiverem caractéres não numéricos (letras ou simbolos), o código dará erro.

Abraço.

Peço desculpa por não ter respondido antes.
Reconheço a minha falta

Obrigado