vb Duvida

[Kuro o Shiniga 87]

Ola galera, não sei se estou na area correta se eu não estiver desculpem!

 

Então eu tenho um programa em VB, e um sistema de venda e todo dia 10 o programa gera o boleto para os clientes, só que tem cliente que não pode pagar dia 10 alguns pagam dia 15 outros dia 12 e assim vai ...

 

Queria saber se alguém sabe de alguma forma de alterar as data de vencimento dos clientes de uma vez! aguardo respostas!

Edited October 10, 2013 by Pinpao

[Kempaichi 14]

Ola,

sua dúvida ta na área certa, mas seria mais fácil para o pessoal te ajudar se você posta-se o script do seu programa.

 

Att,

[Kuro o Shiniga 87]

Ola, então a função creio eu ser simples eu quero apenas uma função que retire os dias de uma data digita exemplo

 

Vai ter um campo para eu digitar uma data exemplo 11/10/2013 ai quero que retire apenas dos dias retire todos os dias ai a data volta para 30/09/2013

[caotic 393]

eaheuh'

eu ainda não entedi.

 

Pelo que eu vi você quer voltar para o ultimo mes e isto e bem facil.

Edited October 11, 2013 by caotic

[Kuro o Shiniga 87]

Isso mesmo! Tipo hoje é 11/10/2013 quero que retire os 11 dias e volte para 30/09/2013

Edited October 11, 2013 by Pinpao

[caotic 393]

Ou melhor....

fazer assim

Function toDat(ByVal x As String)
        Dim y As String
        y = x
        If Val(x) < 10 Then
 
            y = "0" + y.ToString
 
        End If
 
        Return y
    End Function
 
    Function retireDatDays(ByVal dat As String)
        Dim x As String
        Dim a As String
        Dim days As String = Microsoft.VisualBasic.Left(dat, 2)
        Dim maxdays As String = DateTime.DaysInMonth(Microsoft.VisualBasic.Right(dat, 4), Microsoft.VisualBasic.Left(Microsoft.VisualBasic.Right(dat, 7), 2))
        If Val(days) < Val(maxdays) Then
            a = Val(Microsoft.VisualBasic.Right(dat, 4))
            Dim m As String = Microsoft.VisualBasic.Left(Microsoft.VisualBasic.Right(dat, 7), 2)
            If Val(m) = 1 Then
                a = Val(Microsoft.VisualBasic.Right(dat, 4)) - 1
                x = "12"
            Else
                x = Val(m) - 1
            End If
            Return DateTime.DaysInMonth(a, x).ToString + "/" + toDat(x.ToString()) + "/" + a.ToString()
        End If
 
        Return dat
    End Function

Pronto e so usar a função retireDatDays e pronto e ele va tirar o dias do mês corretamente.

Edited October 11, 2013 by caotic

[Kuro o Shiniga 87]

Mas eu já resolvi kkk é que aqui eu trabalho com GAS, e consegui fazer uma forma bem menor

DateAdd("D", - Day(Data), Data)

Mesmo assim obrigado por ter tentando ajudar ! :]

[Furabio 258]

Movido para a área correta.

[Lumus 254]

Tópico Movido
Este tópico foi movido de "OFF-Topic → Linguagens de Programação → Suporte Linguagens"
para "OFF-Topic → Linguagens de Programação → Suporte Linguagens → Dúvidas Resolvidas - Suporte Linguagens".