厳密には、これは「オンラインソフト」ではありません。
俺が作ったユーティリティ関数です。
はっきり言って、大した処理ではありません。それぞれが数行の関数で、作ろうと思えば、30分もかからないでしょう。しかし、しょっちゅう使う関数なので、新しいアプリに取りかかる度に作るのも馬鹿馬鹿しい…というようなのをアップして行こうと思います。
このシリーズでは、原則的に著作権も主張しません。まぁ、その程度のものだってことですが。
第1弾は、日付処理。
Function Tomorrow(dt As Date) As Date | 指定した日の翌日を得る |
Function Yesterday(dt As Date) As Date | 指定した日の前日を得る |
Function DaysAfter(dt As Date, nDays As Integer) As Date | 指定された日の数日後を得る |
Function DaysBefore(dt As Date, nDays As Integer) As Date | 指定された日の数日前を得る |
Function NextWeek(dt As Date) As Date | 指定された日の1週間後を得る |
Function LastWeek(dt As Date) As Date | 指定された日の1週間前を得る |
Function WeeksAfter(dt As Date, nWeeks As Integer) As Date | 指定された日の数週後を得る |
Function WeeksBefore(dt As Date, nWeeks As Integer) As Date | 指定された日の数週前を得る |
Function NextMonth(dt As Date) As Date | 指定された月の翌月を得る |
Function LastMonth(dt As Date) As Date | 指定された月の前月を得る |
Function MonthsAfter(dt As Date, nMonths As Integer) As Date | 指定された月の数ヶ月後を得る |
Function MonthsBefore(dt As Date, nMonths As Integer) As Date | 指定された月の数ヶ月前を得る |
Function NextYear(dt As Date) As Date | 指定された日の翌年同日を得る |
Function LastYear(dt As Date) As Date | 指定された日の前年同日を得る |
Function YearsAfter(dt As Date, nYears As Integer) As Date | 指定した日の数年後を得る |
Function YearsBefore(dt As Date, nYears As Integer) As Date | 指定した日の数年前を得る |
Function EndOfMonth(dtSrc As Date) As Date | 当月の月末を得る |
Function IsEndOfMonth(dt As Date) As Boolean | 当日が月末かどうか調べる |
Function IsLeapYear(y As Integer) As Boolean Function IsLeapYearStrict(y As Integer) As Boolean | 指定した年が閏年かどうか調べる |
なお、ドキュメントはありません。.bas ファイル1本です。
O友(omot.otomo@nifty.ne.jp)"BarnDance" の対象開発言語
Microsoft Visual Basic Version 5.0"BarnDance" の権利
BarnDance は、著作権フリーのユーティリティ関数集です。以下に挙げる条件をお守りいただく限り、再配布・転載は自由です。免責事項1. 他ネット、雑誌などの他のメディアへの転載や紹介に際しては、事前に作成者に電子メールで詳細を通知、許可を得ること。
2. 営利目的に使用しないこと。
3. 実費を越える金額の授受を伴わないこと。
4. 中身、タイムスタンプなど、一切変更を加えないこと。
5. 作成者が「O友(omot.otomo@nifty.ne.jp)」であることを明記すること。
なお、プログラム開発のための再利用には一切、制限・条件はありません。
1. 作成者は、"BarnDance" の使用により生じた結果に関して、一切の責を負わない。
2. 作成者は、"BarnDance" 及びそのドキュメントに不備があった場合でも修正・訂正の義務は負わない。
3. 作成者は、"BarnDance" 及びそのドキュメントに関する質問に答える義務は負わない。