任何人都可以帮助找到如何在vb.net中获得下个月的第一天 [英] Can anybody help to find How to get 1st Day of Next Month in vb.net
问题描述
如果(Start_date = End_Date)和(Start_date<>NULL)那么
Dim End_date_val As String
End_date_val = END_DATE_DD.Text.ToString()
Dim Endvalue As Integer
Endvalue = Convert.ToInt32(End_date_val)
$ /
Dim NoOfDays As Integer = DateTime.DaysInMonth(END_DATE_YY.Text,END_DATE_MM.Text)
Endvalue = Endvalue + 1
如果(Endvalue< = NoOfDays)那么
End_Date ='&RSmartUtl.UDConvertDate(Trim (结束价值),修剪(END_DATE_MM.Text),修剪(END_DATE_YY.Text))&'
否则
'********** *****在这里,我想为下一个月的第一天编写End_Date代码。
结束如果
我的Sql =SELECT PROCESS_NAME,&_
START_DATE,&_
END_DATE,&_
说明,& _
FN_UD_DECODE(PROCESS_STATUS,'CE','已完成错误',FN_UD_DECODE(PROCESS_STATUS,'C','已完成',FN_UD_DECODE(PROCESS_STATUS,'P','进度',FN_UD_DECODE( PROCESS_STATUS,'R','部分完成','错误'))))PROCESS_STATUS,&_
ERROR_MESSAGE,&_
LOG_FILE_NAME&_
FROM PROCESS_LOG&_
WHERE MODULE_MASTER_ID =&ModuleID&_
AND COMPANY_MASTER_ID =&Val(CompID)& _
AN D LOCATION_MASTER_ID =&Val(LocID)&_
AND START_DATE> =&(Start_date)&_
AND END_DATE< &(End_Date)&_
订购ID DESC
我有以上代码
If(Endvalue< = NoOfDays)然后<br />
End_Date ='&RSmartUtl.UDConvertDate(Trim(Endvalue),Trim(END_DATE_MM.Text),Trim(END_DATE_YY。文字))&'
Else
'***************这里我想为End_Date编写下一个代码如果是下个月的第一天的日期。
结束如果
在其他情况下,我希望获得下个月的第一天可以任何人帮助我出去了?
If (Start_date = End_Date) And (Start_date <> "NULL") Then
Dim End_date_val As String
End_date_val = END_DATE_DD.Text.ToString()
Dim Endvalue As Integer
Endvalue = Convert.ToInt32(End_date_val)
Dim NoOfDays As Integer = DateTime.DaysInMonth(END_DATE_YY.Text, END_DATE_MM.Text)
Endvalue = Endvalue + 1
If (Endvalue <= NoOfDays) Then
End_Date = "'" & RSmartUtl.UDConvertDate(Trim(Endvalue), Trim(END_DATE_MM.Text), Trim(END_DATE_YY.Text)) & "'"
Else
'*************** Here I want to write code for End_Date as next date that 1st day if Next Month.
End If
MySql = " SELECT PROCESS_NAME," & _
" START_DATE," & _
" END_DATE," & _
" DESCRIPTION," & _
" FN_UD_DECODE(PROCESS_STATUS, 'CE', 'Completed with Errors', FN_UD_DECODE(PROCESS_STATUS, 'C', 'Completed' ,FN_UD_DECODE(PROCESS_STATUS, 'P', 'Progress', FN_UD_DECODE(PROCESS_STATUS,'R', 'Partial Completed','Error')))) PROCESS_STATUS, " & _
" ERROR_MESSAGE, " & _
" LOG_FILE_NAME " & _
" FROM PROCESS_LOG " & _
" WHERE MODULE_MASTER_ID = " & ModuleID & _
" AND COMPANY_MASTER_ID=" & Val(CompID) & _
" AND LOCATION_MASTER_ID=" & Val(LocID) & _
" AND START_DATE >= " & (Start_date) & _
" AND END_DATE < " & (End_Date) & _
" ORDER BY ID DESC "
I have above code
If (Endvalue <= NoOfDays) Then
End_Date = "'" & RSmartUtl.UDConvertDate(Trim(Endvalue), Trim(END_DATE_MM.Text), Trim(END_DATE_YY.Text)) & "'"
Else
'*************** Here I want to write code for End_Date as next date that 1st day if Next Month.
End If
In above else condition i want to get 1st day of next month can anybody help me out?
推荐答案
看看这个: DateTime Extensions使一些简单的任务更容易阅读 [ ^ ] - 它在C#中,但代码非常明显。它为您提供所需的功能。
Have a look at this: DateTime Extensions to Make Some Simple Tasks a Little More Readable[^] - it's in C#, but the code is pretty obvious. It provides functions for what you need.
您好,
首先获得系统日期
它在C#.net
日期时间dt = System.Datetime.Now;
string strNextmonth =1 - +(dt.Month + 1).ToString()+ - + dt.Year;
Hi,
First get the System Date
It is in C#.net
Datetime dt= System.Datetime.Now;
string strNextmonth= "1 - " + (dt.Month + 1).ToString() + " - " + dt.Year;
Itis in VB.net
dim dt as datetime
dt = System.Datetime.Now
Dim strNextmonth as string
strNextmonth =1 - +(dt.Month + 1).ToString()+ - + dt.Year
Hi,
Itis in VB.net
dim dt as datetime
dt = System.Datetime.Now
Dim strNextmonth as string
strNextmonth= "1 - " + (dt.Month + 1).ToString() + " - " + dt.Year
这篇关于任何人都可以帮助找到如何在vb.net中获得下个月的第一天的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!