My Pastes
Public Pastes
Layout Width
Share Pastebin
Guest
Public paste!

Untitled

By: a guest | Sep 5th, 2010 | Syntax: None | Size: 0.17 KB | Hits: 17 | Expires: Never
Download | Raw | Embed | Report abuse
Copy text to clipboard
  1. Dim daysInMonth As Integer = DateTime.DaysInMonth(input.Year, input.Month)
  2. Dim remainingDays As Integer = daysInMonth - input.Day
  3. Return input.AddDays(remainingDays + 1)
create new paste | create new version of this paste RAW Paste Data