ピンポイントで記述するVB時刻比較、日付取得

■VBの時刻比較、月末までの日付取得

１．現在時刻と指定時刻の比較

 '現在時刻取得     
　Dim tsGenzai As TimeSpan = DateTime.Now.TimeOfDay     
 '指定時刻取得     
 Dim tsReiji As TimeSpan = TimeSpan.Parse("00:00:00")     

 '現在時刻と指定時刻の比較     
 if(tsGenzai.CompareTo(tsReiji) < 1) Then     
   '０時より前の時の処理     
 ElseIf(tsGenzai.CompareTo(tsReiji) > 1) Then     
   '０時より後の時の処理     
 Else     
   '０時の時の処理     
 End IF     

２．月末までの日付取得

  'リスト作成     
 　Dim getsumatsumade As New ArrayList     
  '現在日付から月末までループ     
  'iに現在日を入れて、To以降のDateSerialの中で、翌月1日-1の日付を取得している     
 　For i = CInt(Day(Now)) To CInt(Day(DateSerial(Year(Now),Month(Now)+1,0)))     
   '日付iを代入     
    getsumatsumade.Add(i)     
  Next