MONTAR DATAS NO TEXTBOX - VB.NET
Ola pessoal eu estou precisando inserir a data inicial e final de cada mes corrente em dois TextBox como os dias de cada mes é variavel terei que montar as datas nos respectivos Textbox, estou tentando da seguite forma
txtStartDate.text = convert.ToString(new date(now.date.year, now.date.month, 1))
txtEndDate.Text = convert.ToString(new date(now.date.year, now.date.month, now.date.DaysInMonth(now.date.year, now.date.month)))
mas esta dando erro
Alguem pode me ajudar por favor
So pra informar esse é um projeto Web
obrigado
txtStartDate.text = convert.ToString(new date(now.date.year, now.date.month, 1))
txtEndDate.Text = convert.ToString(new date(now.date.year, now.date.month, now.date.DaysInMonth(now.date.year, now.date.month)))
mas esta dando erro
Alguem pode me ajudar por favor
So pra informar esse é um projeto Web
obrigado
DataFinal = datainicial + 1 mes - 1 dia
Cara, como a data inicial de cada mês será sempre 1, então fiz só a data final, ok?
[txt-color=#0000f0]Dim[/txt-color] DataFinal [txt-color=#0000f0]As String[/txt-color] = [txt-color=#0000f0]Date[/txt-color].DaysInMonth([txt-color=#0000f0]Date[/txt-color].Now.Year, [txt-color=#0000f0]Date[/txt-color].Now.Month) & [txt-color=#e80000][Ô]/[Ô][/txt-color] & [txt-color=#0000f0]IIf[/txt-color](Len([txt-color=#0000f0]Date[/txt-color].Now.Month) = 1, [txt-color=#0000f0]Date[/txt-color].Now.Month, [txt-color=#e80000][Ô]0[Ô][/txt-color] & [txt-color=#0000f0]Date[/txt-color].Now.Month) & [txt-color=#e80000][Ô]/[Ô][/txt-color] & [txt-color=#0000f0]Date[/txt-color].Now.Year
txtEndDate.text = DataFinal
Abraços
[txt-color=#0000f0]Dim[/txt-color] DataFinal [txt-color=#0000f0]As String[/txt-color] = [txt-color=#0000f0]Date[/txt-color].DaysInMonth([txt-color=#0000f0]Date[/txt-color].Now.Year, [txt-color=#0000f0]Date[/txt-color].Now.Month) & [txt-color=#e80000][Ô]/[Ô][/txt-color] & [txt-color=#0000f0]IIf[/txt-color](Len([txt-color=#0000f0]Date[/txt-color].Now.Month) = 1, [txt-color=#0000f0]Date[/txt-color].Now.Month, [txt-color=#e80000][Ô]0[Ô][/txt-color] & [txt-color=#0000f0]Date[/txt-color].Now.Month) & [txt-color=#e80000][Ô]/[Ô][/txt-color] & [txt-color=#0000f0]Date[/txt-color].Now.Year
txtEndDate.text = DataFinal
Abraços
Você está utilizando a função DaysInMonth de uma maneira errada.
Faça como abaixo...
Faça como abaixo...
Me.txtStartDate.Text = Convert.ToString(New Date(Now.Date.Year, Now.Date.Month, 1))
Me.txtEndDate.Text = Convert.ToString(New Date(Now.Date.Year, Now.Date.Month, Date.DaysInMonth(Today.Year, Today.Month)))
Caso a dúvida tenha sido resolvida, ENCERRE o tópico.
Caso contrário, ATUALIZE ele informando o problema.
Regras de conduta do fórum
[txt-color=#e80000]Encerre seus tópicos [/txt-color]
Quando você acha uma solução prática e efetiva que outro usuário lhe enviou no Fórum, por favor encerre seu tópico. Tópico encerrado é sinal de pergunta respondida, assim quem precisa cadastrar um novo tópico pode primeiro olhar as ocorrências de tópicos encerrados para ver se a resposta já não foi dada e somente haverá uma pergunta repetida.
Caso contrário, ATUALIZE ele informando o problema.
Regras de conduta do fórum
[txt-color=#e80000]
Quando você acha uma solução prática e efetiva que outro usuário lhe enviou no Fórum, por favor encerre seu tópico. Tópico encerrado é sinal de pergunta respondida, assim quem precisa cadastrar um novo tópico pode primeiro olhar as ocorrências de tópicos encerrados para ver se a resposta já não foi dada e somente haverá uma pergunta repetida.
Tópico encerrado , respostas não são mais permitidas