[Resolvido]Função para adicionar dias de Segunda a Quinta

**Gilberto Rocha** 19/10/2011, 00:11

Gilberto Rocha: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 1027
Registrado : 21/01/2010

Mensagem nº1

Função para adicionar dias de Segunda a Quinta

Mensagem Gilberto Rocha 19/10/2011, 00:11

Amigos, necessito de uma função para adicionar dias de segunda a quinta por semestres.

Os semestres são assim:
1º Semestre de Fevereiro a junho
2º Semestre de Agosto a Dezembro

Então seria duas funções.

Aguardo e obrigado!!!

criquio 19/10/2011, 00:57

criquio

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº2

Re: [Resolvido]Função para adicionar dias de Segunda a Quinta

Mensagem criquio 19/10/2011, 00:57

Olá! Acredito que com pequenas alterações, conseguirá adaptar para o seu caso:


Dim N As Integer, D As Date

Me.Texto0 = Null
D = Date

Do While N < 20

If Format(D, "w") = 6 Then
    D = DateAdd("d", 3, D)
ElseIf Format(D, "w") = 7 Then
    D = DateAdd("d", 2, D)
Else
    D = DateAdd("d", 1, D)
End If

Me.Texto0 = Me.Texto0 & vbCrLf & D

N = N + 1

Loop

.................................................................................

Meu novo site: www.vcssistemas.com.br

Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
1 - faça uma cópia do aplicativo
2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
3 - use o Compactar/Reparar
4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
Positive as mensagens que achar útil, no canto superior direito delas.