Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


59862 / 76732 ←次へ | 前へ→

【21536】Re:条件が認識しません
回答  りすりす  - 05/1/22(土) 23:59 -

引用なし
パスワード
   ▼あすなろ さん:
>■どうしても分かりませんので教えてください。
>最初にインプットBOXを表示させて時刻をhh.mm.ssの形式で入力させます。
>その後入力した時刻から10分前の時刻を取得したいのです。
>下記のようにVBAを構成しましたが
>分(fun)が9以下を認識していないようで
>End Ifまで進んでしまいます。
>やりたい事は10分前の時刻取得なので
>例えば入力した分が5分だと10分前は55分となります。
>どのようにすれば宜しいのでしょうか?
>
>■実はまだこの後に取得した10分前の時、分、秒から
>hh.mm.ssの形式への表示もしなければなりません。
>他にhh.mm.ssの形式で10分前の時刻を取得する良い方法があればご教授願います。
>
>Sub auto_open()
>  Dim time As String
>  Dim zi As String
>  Dim fun As String
>   time = InputBox("時刻を入力してください。hh.mm.ss", "時刻入力")
>  If time <> "" Then
>    Sheets("Sheet1").Select
>    Range("B1").Value = time
>    zi = Left(time, 2)
>    fun = Mid(time, 4, 2)
>    '時の取得
>    If fun <= 9 Then
>    Range("b2").Value = zi - 1
>    ElseIf zi = 0 Then
>    Range("b2").Value = 23
>    End If
>    Range("b2").Value = zi
>    '分の取得
>    If fun <= 9 Then
>    Range("b3").Value = fun + 50
>    End If
>    Range("b3").Value = fun - 10
>    '秒の取得
>    Range("B4").Value = Right(time, 3)
>  Else
>   MsgBox "時刻が入力されませんでした。最初からやり直してください"
>  Exit Sub
>  End If
> End Sub


 MsgBox DateTime.DateAdd("n", -5, Now)


DateTimeを使えば簡単 関数よりどりみどり。
DateTime. で コード支援が働くので(でないならCTRL+スペースキー)
お好きな関数をどうぞ!!

ついでに
DateTime.DateAddなら
DateAddをダブルクリックして選択状態にして、F1でヘルプ出現。
2 hits

【21534】条件が認識しません あすなろ 05/1/22(土) 23:31 質問
【21535】Re:条件が認識しません ちゃっぴ 05/1/22(土) 23:44 回答
【21536】Re:条件が認識しません りすりす 05/1/22(土) 23:59 回答
【21538】Re:条件が認識しません あすなろ 05/1/23(日) 0:20 質問
【21539】Re:条件が認識しません Hirofumi 05/1/23(日) 0:46 回答
【21540】Re:条件が認識しません あすなろ 05/1/23(日) 1:03 お礼
【21542】時刻取得 あすなろ 05/1/23(日) 1:55 質問
【21543】Re:条件が認識しません Hirofumi 05/1/23(日) 2:14 回答
【21552】Re:条件が認識しません あすなろ 05/1/23(日) 15:13 お礼

59862 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free