[Resolvido]Calcular qtde de dias entre uma data e o final do mês

Olá meu povo
Eu novamente na precisão

Estou desenvolvendo um pequeno aplicativo para controle de entrega de vale transporte, que é meio complexo para a empresa. Vejamos:
Fucionario é admitido (dataadmissão) no dia 10/02/2014, nos próximos 10 dias a empresa pagara diariamente seu vale, até ai consegui chegar, =dataadmissao+10
e cheqo a data de inicio de recebimento do vale transporte. O que preciso: que o programa calcule quantos dias terá a partir desta data até o final do mesmo mês, e se possível acrescido de + 4 dias. Final, a quantidade de dias x 2 = total de vales que será entregue.

Fico no aguardo, desde já agradeço a tenção do povo do fórum

Boa noite,
Veja se é isto que precisa
Function DiasVanderlei(dtData As Date) As Byte
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' '
' código criado por Alexandre Neves, do Fórum MaximoAccess '
' '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'verifica se ainda tem 10 dias ou mais
If DateDiff("d", dtData, DateSerial(Year(Date), Month(Date) + 1, 0)) > 9 Then
DiasVanderlei = DateDiff("d", DateAdd("d", 10, dtData), DateSerial(Year(Date), Month(Date) + 1, 0))
Else
DiasVanderlei = 0
End If
DiasVanderlei = (DiasVanderlei + 4) * 2
End Function

Obrigado pela presteza, mas onde insiro este código
em algum EVENTO ?, em um formulario específico ?
Se puder me falar os passos, agradeço

Vanderlei

Boa noite,
Vá explorando o fórum. Além de o ajudar no que precisa, dar-lhe-á luzes sobre potencialidades para fazer melhorias.
Cole o código num módulo e fica a ser uma função reconhecida pela bd.

Olá Vanderlei,

Você já havia proposto o seu caso no forum itlab. Tanto a solução do Alexandre quanto a que apresentei que você ainda não leu são válidas. Teste uma ou outra solução qual a que melhor lhe convir.

Já respondi no outro forum, grato pela atenção, aquele códiugo me satisfaz com algumas ressalva

Boa noite,
Fica resolvido?
Se sim, marque o Resolvido

Resolvido

Grato

Vanderlei, estando resolvido, é necessário marcar o tópico como resolvido.

Aguardamos sua ação.

resolvido