![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
こんにちわ。VB、かなりの初心者です。
タイトルの通りある時間から分を差し引くプログラムを作成しているのですが、効率のいい方法が見つかりません。
例えば、12:03から30分だけ時間を差し引くというプログラムです。
今は、時間と分に分割して、分にマイナスが出れば時間を-1し、60分からマイナス分を差し引くという方法でやっています。上記の12:03から30分だけ時間を差し引くという例でしたら11:33が表示されます。
ただコードも長く見にくくなるので、効率のいい方法がないかなと質問させていただきました。
よろしくお願いします。
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
こんなのはどうでしょう?
Dim intHH As Integer
Dim intMM As Integer
Dim intSS As Integer
Dim TimeX As Date
Dim TimeY As Date
'現在の時間をセット
TimeX = Now()
'差し引く時間をセット
intHH=1
intMM=30
intSS=10
'計算
TimeY = TimeSerial(Hour(TimeX) - intHH , _
Minute(TimeX) - intMM, _
Second(TimeX) - intSS)
'結果の表示
MsgBox Format$(TimeY, "HH:MM:SS")
No.1
- 回答日時:
エクセルVBAでテストしましたが、
Sub test01()
Cells(1, 4) = Cells(1, 1) - #12:30:00 AM#
End Sub
A1に12:03
B1に0:30
でD1に11:33
となりました。以上はエクセルVBAの場合ですが、
このように日付や時刻をシリアル値で持つのは、VBでもVBAでも同じと思います。この方式をとる結果、最大の
メリットは、日付や時刻の、引き算や足し算の表現のシンプルさに現れます。
(1)コンスタント30分で引く(時刻も#で囲むと旨く行くようです。)
(2)30分と言う時刻値の入った変数で引く
でやってみてください。
本回答が大きな間違いをしていないことを祈りつつ。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 一戸建て 手付金について 5 2023/07/16 01:04
- Excel(エクセル) Excel 時間の引き算でマイナスを表示させることは出来ますか 3 2023/06/14 21:54
- 統計学 直線の傾き(回帰係数)から相関係数を計算できるのでしょうか? 2 2022/09/16 19:28
- 会社・職場 事業場外労働時間と残業代について教えてください 1 2022/11/07 20:08
- 統計学 どの統計を使えばいいのか教えてください(EZ-Rを使用) 5 2022/10/11 13:28
- 仕事術・業務効率化 効率的な勉強方法(分野問わず)を教えてください 1 2023/08/16 01:33
- 求人情報・採用情報 障害者雇用で働いています。週30時間の勤務なので手取り12.5万ぐらいです。これは標準金額ですよね? 2 2023/02/08 23:37
- 簿記検定・漢字検定・秘書検定 満期保有目的債券の償却原価法の計算について(簿記2級) 1 2022/06/18 15:40
- 所得税 所得税の計算方法がわかりません 4 2022/06/26 13:36
- 統計学 処理Aと処理A+Bの2群の差から、AとBの効果や相対的重要性を定量したい 5 2023/02/22 09:42
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ユーザーフォームのラベルに日...
-
VB.net 登録されている日付の連...
-
SUMPRODUCT関数 『複数条件』...
-
パソコンの日付変更したら、ヤ...
-
VBSでTXTファイルを配列に格...
-
大文字Oと0の違い
-
励磁パターン
-
他のPCの日付・時刻の取得
-
テキストボックスに今日の日付...
-
日付によって表示するページを...
-
使用期限付きDLL
-
【Excel VBA】条件に合った行の...
-
DataGridViewの和暦表示について
-
最近、iPhoneがおかしいです 私...
-
OCNモバイルONEを使っています...
-
質問に回答が付くとメールにま...
-
5年前のノートPCから最新機の処...
-
電話の着信が来てないのに着信...
-
iPhoneの通知が何故か来なくな...
-
アンドロイドから通知無しで鳴る音
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ユーザーフォームのラベルに日...
-
エクセルのVBAで日付を検索し転...
-
Eclipseの対応する括弧の強調表...
-
DataGridViewでyyyy/MM/dd
-
VisualBasic6.0のFormat関数で...
-
JSPからYYYYMMDDで日付入力する
-
今日より前の書き方 マクロ
-
3人のじゃんけんのプログラム
-
システム日付とは?
-
【Excel VBA】条件に合った行の...
-
VBA 日付、未来の日付はエラー...
-
【VBA】土日をスキップして日付...
-
VBAで当月の1日を表示するには...
-
「eclipseで作るカレンダー(ス...
-
VBAの質問になります 行の非表示
-
VB 日付範囲チェック
-
コンボボックスに日付を表示する
-
テキストボックスにカレンダー...
-
指定した日付が、その月の第何...
-
VB6.0 のformat関数について
おすすめ情報