Gerando 10 datas subsequentes

USUÁRIO: SENHA:

SALVAR LOGIN ?


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Gerando 10 datas subsequentes

JJF

GUARULHOS
SP - BRASIL

Postada em 04/11/2004 00:07 hs

Pessoal estou desenvolvendo uma agenda onde agendo 10 dias sequenciais excluindo os sábados e domingos, a partir de uma data informada. exemplo. informo em um textbox 01/11/2004 e ele gera 02/11/2004 03/11/2004 04/11/2004 05/11/2004 pula 06 e 07 que são sábado e domingo e gera 08/11/2004 ... alguém já fez?, poderia pe ajudar. uso vb6 ado tab.mdb Obrigado.

Tomás
não registrado

Postada em 04/11/2004 00:35 hs

private sub Monta_Data(byval Data as date)
'recebe a data por valor
dim X as byte
for x= 1 to 10
   if weekday(data)<> 1 and weekday(data)<>7 then
        'insira a data

   endif
   data=data+1
next x

end sub

JJF

GUARULHOS
SP - BRASIL

Postada em 04/11/2004 02:58 hs

Tomás, era o que eu precisava. muito obrigado.

Página(s): 1/1


		CyberWEB Network Ltda. © Copyright 2000-2025 - Todos os direitos reservados. Powered by HostingZone - A melhor hospedagem para seu site