![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
プログラミング初心者です。
すみません。教えてください。
vbscriptの書き方です。
テーブルにある日付のレコード(yyyy/mm/dd)を取得して、
そのmm/ddが26日以降であれば翌月の25日を基準にプログラム処理する。
25日以前であれば当月の25日を基準にしてプログラム処理をするというように書きたいです。
先ずyyyy/mm/ddを、どのようにしてmm/ddだけを抽出すればよいか
書き方を教えていただけないでしょうか。
又、その日付が25日であれば当月。26日以降であれば翌月の25日を基準にするという
プログラムの書き方も教えていただけないでしょうか?
よろしくお願い致します。
No.1ベストアンサー
- 回答日時:
「基準」 とか、おそらく質問者が作成しようとしているプログラムの中で使っている単語なんだろうけど、回答する者にとっては何のこっちゃって感じ。
DB から日付値を取得した。(yyyy/mm/dd)
この日付値の中身によって、当月 25日または次月 26日の日付値を生成したい。(yyyy/mm/dd)
条件としては、DB から取得した日付値の day の部分が 26日~月末の場合は次月 26日の日付を生成し、1日~25日であれば当月 25日の日付値を生成する。
という質問?
VBScript は何年もやってないのですが、以下のような感じじゃダメ?
--------------------
Dim sourceDate ' DB から取得する日付値を格納する変数
Dim baseDate ' 生成する日付値
sourceDate = ・・・ ' DB から日付値を取得
If Day(sourceDate)<= 25 Then
baseDate = DateSerial(Year(sourceDate), Month(sourceDate), 25)
Else
baseDate = DateSerial(Year(DateAdd("m", 1, sourceDate)), Month(DateAdd("m", 1, sourceDate)),25)
End If
--------------------
以上のように、希望する日付値を生成するだけなら mm/dd を抽出する必要はないのですが、、、
それとも別の理由で mm/dd という形式の文字列が欲しいとか?
hoge = Year(sourceDate) & "/" & Month(sourceDate)
で生成できます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/01/23 09:24
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/05/23 16:28
- Access(アクセス) Accessのデータ型の日付/時刻型について 1 2023/04/02 17:03
- Excel(エクセル) エクセルの数式で教えてください。 2 2022/12/23 14:57
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/01/23 11:02
- Access(アクセス) エクセルのVBAについて教えてください。 4 2023/01/21 10:21
- Excel(エクセル) Excel 数行を1組とする300組ほどあるデータの項目を揃えたいです。 3 2023/01/26 19:38
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/01/23 17:13
- MySQL SQLについて質問です。 SELECT TO_CHAR(TO_DATE('90-10-08.'YY- 4 2022/05/13 20:55
- MySQL ある時間以内の利用者の抽出について 3 2022/03/26 11:15
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Visual Basicでの平方関数について
-
vba 時間の引き算 例えば 15:00...
-
Visual Studio 「AnyCpu」について
-
Designer.vbは直接コードをいじ...
-
タスクスケジューラでPerlが動...
-
C++初心者です。 debug asserti...
-
フォームの最前面が効かない
-
VB.Net リビルド 意味不明なメ...
-
アウトルックが起動しているか...
-
VBAでOutlookを終了させたい Ex...
-
EXCEL VBAから他アプリケーショ...
-
「読み込み違反」が起きたとき...
-
意味不明の実行時エラーで困っ...
-
Windows10のVBAでDirectX 8が使...
-
vbaでPDFファイルが印刷されない
-
Windows PowerShellでC言語を実...
-
Windows上のプログラム。「予め...
-
Using System.Drawing がうまく...
-
オブジェクト(dll)のレジストリ...
-
EXCELファイルの複数ダウンロー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBでUSB制御プログラム作成する...
-
MSCommによるCOMポートの制御
-
九九の答えの計算
-
ミキサーの情報の取得方法を教えて
-
ハンディターミナル
-
vb.netでCreateEventの引数
-
VB2005でスケジュール追加
-
遺伝的アルゴリズムについて教...
-
VBSでサウンドデバイスの変更方...
-
外部装置を扱うプログラムについて
-
コーディングの仕事に必要なも...
-
Android Studio で実行 できま...
-
拡張子に関連ついているプログ...
-
USBシリアルケーブル仕様の通信...
-
プログラム作成ソフトは何をダ...
-
派遣社員ですビジュアルベーシ...
-
美しいソースコード
-
Lotus Notesのカレンダーに外部...
-
CSS Dock Menu[jQuery]について
-
webサイトから自動ダウンロード
おすすめ情報