DESCOBRIR QUAL O PROXIMO DATA

CCRISANEVB 25/04/2010 11:53:32
#340184
Oiee...Por favor preciso de uma ajuda de vcs...
O problema é o seguinte: Tem um textbox que informe se o vencimento só que por dia de semana. (1=Domingo 2 = Segunda ...7=Sábado..certo???)

Tenho que pegar a data atual por exemplo hj 25/04 e verificar se for de domingo a segunda o prazo de entrega é até terça dia 27/04 se pegar na terça dia 27/04 jogar para a próxima terça dia 04/05...Não consegui fazer, pois estes dias pode ser qualquer dia da semana...

Agradeço a todos a colaboração
ASHKATCHUP 25/04/2010 11:59:16
#340186 Resposta escolhida
Mais ou menos isso?

-Se for domingo, adiciona dois dias
-Se for segunda, adiciona um dia
-Se for outros dias, adiciona 7 dias



Private Sub Form_Load()
    Dim dNovaData                       As Date
    [ô]
    If Weekday(Now) = vbSunday Then
        dNovaData = DateAdd([Ô]d[Ô], 2, Now)
    ElseIf Weekday(Now) = vbMonday Then
        dNovaData = DateAdd([Ô]d[Ô], 1, Now)
    Else
        dNovaData = DateAdd([Ô]d[Ô], 7, Now)
    End If
    [ô]
    MsgBox dNovaData
    [ô]
End Sub
CCRISANEVB 25/04/2010 12:08:04
#340188
certo ASHKATCHUP o problema é que informo o dia da semana, e nem sempre é Terça, pode ser segunda ou outro dia qualquer...
ASHKATCHUP 25/04/2010 12:11:02
#340189
Deixa eu ver se entendi...

-Tem um combobox que você informa o dia da semana do vencimento
-Em um textbox, a pessoa diz o dia do vencimento.
-Então:
++Se o dia do textbox for de domingo ao dia no combobox, o vencimento cai no dia do combobox, da mesma semana.
++Se o dia do textbox for depois do dia do combobox, o vencimento cai no dia do combobox, mas na próxima semana.


é isso?
CCRISANEVB 25/04/2010 12:18:20
#340190
+ ou - isso em um textbox informo o dia da semana = 1 =Domingo , 2 - Segunda-Feira
só não informo a data vencto, terá que verificar com a data atual... o que for feito até a próxima segunda informo a data da semana por exemplo informo o dia da semana para vencto = 3 - Terça.. o que fizer entre 20/04 até 26/04 vencto 27/04 o que fizer de 27/04 até 03/05 cairá em 04/05...ficou difícl de enteder né...desculpe...
ASHKATCHUP 25/04/2010 12:25:03
#340191
Mas ele vai usar o dia da semana para que? Só para achar a nova data de vencimento?
CCRISANEVB 25/04/2010 12:26:31
#340192
Sim...
ASHKATCHUP 25/04/2010 12:28:47
#340193
E essa parte

Citação:


o que for feito até a próxima segunda



é fixo segunda ou depende do textbox?
CCRISANEVB 25/04/2010 12:59:27
#340195
um dia antes do dia informado no caso de terça-feira , até segunda...
se fosse quarta-feira o dia informado até terça...se fosse quinta até quarta.
ASHKATCHUP 25/04/2010 14:03:50
#340201
Da uma olhada no projeto em anexo e ve se ele faz o que você quer..a idéia é meio confusa...
JILNEY 26/04/2010 23:04:41
#340312
testa este codigo, coloca 3 textbox e um botao no form:

Private Sub Command1_Click()

Text1.Text = Format(Date, [Ô]long date[Ô])

Dim x As Long
x = InStr(Text1, [Ô],[Ô])

Text2.Text = Mid(Text1.Text, 1, x - 1)

If Text2.Text = [Ô]domingo[Ô] Then
Text3 = Date + 2
ElseIf Text2 = [Ô]segunda-feira[Ô] Then
Text3 = Date + 1
ElseIf Text2 = [Ô]terça-feira[Ô] Then
Text3 = Date + 7
ElseIf Text2 = [Ô]quarta-feira[Ô] Then
Text3 = Date + 6
ElseIf Text2 = [Ô]quinta-feira[Ô] Then
Text3 = Date + 5
ElseIf Text2 = [Ô]sexta-feira[Ô] Then
Text3 = Date + 4
ElseIf Text2 = [Ô]sabado[Ô] Then
Text3 = Date + 3

End If

End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar