Comment écrire un code de date dans vb.net?

voix
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)

Je copie ce code en VB.NET, Il erreur montrant (Date)

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)

Quelqu'un peut-il aider à résoudre ce problème.

Vous avez besoin de code VB.Net.

Créé 27/08/2009 à 05:58
source utilisateur
Dans d'autres langues...                            


3 réponses

voix
0

Quelque chose comme:

Dim dateString as String = string.format("{0:yyyy-MM-dd}", New DateTime(DateTime.Now.Year,DateTime.Now.Month, 1))
Créé 27/08/2009 à 06:06
source utilisateur

voix
4

On dirait que vous voulez deux chaînes représentant les premiers et derniers jours du mois en cours. Dans ce cas, vous pouvez effectuer les opérations suivantes:

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)
Créé 27/08/2009 à 06:11
source utilisateur

voix
1

Ce sera le plus proche de votre code d'origine:

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")

Ce sera une façon plus « .NET » de le faire:

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)) )
Créé 27/08/2009 à 07:37
source utilisateur

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