VB6到VB.Net转换

扫码查看
Could someone please help me converting the following lines of vb6 code tovb.net. The message box should display "1/3/2005" if it is executed today.Private Sub Form_Load()Dim nWeekNumber As IntegerDim ThisYearStart As DateThisYearStart = YearStart(Today, 2)msgbox ThisYearStartEnd SubFunction YearStart(WhichYear As Integer) As DateDim WeekDay As IntegerDim NewYear As DateNewYear = DateSerial(WhichYear, 1, 1)WeekDay = (NewYear - 2) Mod 7If WeekDay < 4 ThenYearStart = NewYear - WeekDayElseYearStart = NewYear - WeekDay + 7End IfEnd Function 解决方案 这篇关于VB6到VB.Net转换的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持! 上岸,阿里云!
07-22 20:50
查看更多