Como escrever um código de data Em vb.net?

votos
0

VB CODE.

dteFrom = Format(CDate(Year(Date) & - & Month(Date) & - & 01), yyyy-mm-dd)
dteTo = Format(CDate(Year(Date) & - & Month(Date) & - &  DaysInMonth(dteFrom)), yyyy-mm-dd)

Eu copiar este código em VB.NET, It mostrando erro (de Data)

dteFrom = Format(CDate(Year(Of Date)() & - & Month(Of Date)() & - & 01), yyyy-mm-dd)
dteTo = Format(CDate(Year(Of Date)() & - & Month(Of Date)() & - & DaysInMonth(dteFrom)), yyyy-mm-dd)

Qualquer um pode ajudar a resolver este problema.

Precisa Código VB.Net.

Publicado 27/08/2009 em 05:58
fonte usuário
Em outras línguas...                            


3 respostas

votos
4

Parece que você quer duas cordas que representam os primeiros e últimos dias do mês atual. Nesse caso, você pode fazer o seguinte:

Dim today As Date = Date.Today
Dim desiredFormat As String = "yyyy-MM-dd"

Dim fromDate As Date = New Date(today.Year, today.Month, 1)
Dim dteFrom As String = fromDate.ToString(desiredFormat)

Dim toDate As Date = fromDate.AddDays(Date.DaysInMonth(today.Year, today.Month) - 1)
Dim dteTo As String = toDate.ToString(desiredFormat)
Respondeu 27/08/2009 em 06:11
fonte usuário

votos
1

Este será o mais próximo de seu código original:

dteFrom = Format(CDate(Year(Date.Today) & "-" & Month(Date.Today) & "-" & "01"), "yyyy-MM-dd")
dteTo = Format(CDate(Year(Date.Today) & "-" & Month(Date.Today) & "-" & Date.DaysInMonth(Year(Date.Today), Month(Date.Today))), "yyyy-MM-dd")

Esta será uma forma mais ".NET" para fazê-lo:

dteFrom = String.Format("{0:yyyy-MM}-01", Date.Today)
dteTo = String.Format("{0:yyyy-MM}-{1:00}", Date.Today, Date.DaysInMonth(Year(Date.Today), Month(Date.Today)) )
Respondeu 27/08/2009 em 07:37
fonte usuário

votos
0

Algo como:

Dim dateString as String = string.format("{0:yyyy-MM-dd}", New DateTime(DateTime.Now.Year,DateTime.Now.Month, 1))
Respondeu 27/08/2009 em 06:06
fonte usuário

Cookies help us deliver our services. By using our services, you agree to our use of cookies. Learn more