プログラミング初心者です。
すみません。教えてください。
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での平方関数について
-
九九の答えの計算
-
RS-232C接続のための VS 2008 C...
-
vba 時間の引き算 例えば 15:00...
-
VBAでOutlookを終了させたい Ex...
-
Windows PowerShellでC言語を実...
-
excel vbaから実行するexe実行...
-
意味不明の実行時エラーで困っ...
-
Windows上のプログラム。「予め...
-
byte型をstring型として扱うには
-
Designer.vbは直接コードをいじ...
-
AppActivateについて
-
Accessフォームで全レコードを...
-
プリンタの状態を取得したいです
-
webページの印刷制限について
-
電卓の作成 VB
-
WinSCPで画像のように puttyを...
-
PDFファイルを印刷し終了するには
-
exeファイルを実行するとすぐに...
-
ACCESS VBAで別のACCESS(mdb)を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBでUSB制御プログラム作成する...
-
Lotus Notesのカレンダーに外部...
-
IPアドレスの競合について
-
九九の答えの計算
-
シリアル通信の通信・検証方法...
-
Visual Basicでの平方関数について
-
USBシリアルケーブル仕様の通信...
-
MSCommによるCOMポートの制御
-
vb.netでCreateEventの引数
-
SOAPで画像データを送信する
-
ミキサーの情報の取得方法を教えて
-
vba 時間の引き算 例えば 15:00...
-
Designer.vbは直接コードをいじ...
-
Visual Studio 「AnyCpu」について
-
アウトルックが起動しているか...
-
「読み込み違反」が起きたとき...
-
意味不明の実行時エラーで困っ...
-
印刷ダイアログを表示させない方法
-
Windows PowerShellでC言語を実...
-
excel vbaから実行するexe実行...
おすすめ情報