问题描述
如果（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）然后
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?
推荐答案
这篇关于任何人都可以帮助找到如何在vb.net中获得下个月的第一天的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！