• 締切済み

日付についての質問です

textbox1とtextbox2をユーザーフォームに配置しています。 例えば、textbox1に"2008/2/10"を入力します。 あらかじめ設定しておいた日数（例えば3年）が経った時の日付を textbox2に表示させることはできますか？

回答 全件
Class Q3767345A Public Shared Sub…

みんなの回答

回答No.1

Class Q3767345A Public Shared Sub Main(args As String()) Dim dt As DateTime = DateTime.ParseExact("2008/2/10", "yyyy/M/d", System.Globalization.CultureInfo.CurrentCulture.DateTimeFormat) dt = dt.AddYears(3) System.Console.WriteLine(dt.ToString) System.Console.ReadKey(True) End Sub End Class 'わかるだろ？ってことで面倒くさかったので 'テキストボックス云々の処理は書いてない

lucky_777
質問者

お礼

ありがとうございました。参考になりました。

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • ExcelVBAでの日付入力について

    UserFormにTextBoxがTextBox1からTextBox10の１０個あり、すべて日付を入力します。 たとえば「12/10」と入力し、EnterもしくはTabキーなどで他のTextBoxにカーソルを移動させると 「2008/12/15」と前に年を表示させたいと思っています。 もし、日付ではないものを入力された場合は、エラーメッセージを表示したいと思っています。 日付入力はTextBox1から順に入力していくのですが、いつも１０個すべてのTextBoxが入力される わけではありません。（TextBox1～TextBox3のみ入力などがあります。） どのようにしたら日付データ「12/10」と入力したら自動的に「2008/12/10」と年を追加させる ことができ、日付データではない場合はエラー表示することができるのでしょうか。 （「2008/12/10」と入力された場合は、そのまま表示） ご教授のほど、よろしくお願いします。

  • Excel VBA（Win2000、Office2000）

    現在、VBAでExcelのシートに書き込むフォームを作っており、日付に関することで困っています。 フォーム上には複数のComboBox、TextBoxが並んでおり、OKボタンをクリックすることで、フォーム上に並んだ、ComboBox、TextBoxの値をセルに書き込むようにしています。 問題の日付に関する質問についてですが・・・ ユーザーフォーム上に 年を入力するComboBox1 → 2004 月を入力するComboBox2 → 5 日を入力するComboBox3 → 7 *いづれも、プルダウンから数字を選択して入力するようにしています。 この3つの入力値を合わせて、2004/05/07と認識させて、TextBox1に"金"と表示させたいのですが、どのようにしたら良いでしょうか？ TextBox1表示されるタイミングは、日を入力するComboBox3が入力された時としたいです。 宜しくお願い致します。

  • エクセルＶＢＡ　フォームの日付を指定

    データ登録フォームの日付を指定したいのですがどうすればよいでしょうか？ まず、userform5を開きます。規定値は当日にしていますが、過去のものも入れられるようクリアして任意の日付を入力します。 その後、実行ボタンを押すとuserform2を開き、入力開始するのですが、その時の撮影日textboxの値にさきほど入力した値を入れたいです。 変数はPrivate torokudate As Dateこのような形でよいと思いましたが、どこに書けば他のフォームでも利用できるのでしょうか？ うまくいってるのかどうかわかりませんが、表示が0：00とされました。 撮影日textboxのプロパティ設定がわるいのかどうかもよくわかりません。 初歩的なＶＢＡですが、よろしくお願いします。

  • VBAについての質問です

    ユーザーフォーム内に２つのテキストボックスがあります。 TextBox１に『10:00』と入力すると、 TextBox2には、10分後の『10:10』と自動表示させるためには、 どうしたら良いのでしょうか？ また、TextBox１が空白にした時は、自動的にTextBox２も空白にする 機能も付加したいです。 よろしくお願いします。

  • VB2008で日付と時間の計算

    教えて下さい。 VBで日付と時間の足し算をしたいのですがやり方がわかりません。 フォームに6つのテキストボックスを配置し、6つのテキストボックスには それぞれ日・時・分の数値を入力します。 例えばヤフーオークションの終了時刻を計算したい場合、 TextBox1～3に現在の日時を入力し、TextBox4～6に残り時間を入力します。 現在時刻 [4] 日 [17] 時 [44] 分 残り時間 [3] 日 [6] 時間 [30] 分 この数値の足し算結果をメッセージボックスに終了時刻として表示させるようにしたいのですが、やり方が分からず困ってます。 教えていただけないでしょうか。

  • Accessのフィルタについて

    Access2000を使っています。 フォームに配置した「TextBox1」と「TextBox2」（両者とも日付/時刻型）を引数として指定範囲の抽出をすべく Me.Filter="検索結果 Between　#"& TextBox1 &"# And #"& TextBox2 &"#" Me.FilterOn=True （「検索結果」はテーブルに配置したフィールドに連結） のコードをボタンのクリックイベントに設定しました。 ところが、例えば「TextBox1」に「01/02/03」、また、「TextBox2」に「01/05/04」を入力して、ボタンをクリックしても抽出されません。 フォームに戻って、フォームのプロパティで確認するとフィルタの欄に 「検索結果　Between #01/02/03# And #01/05/04#」と表示されておりコードに間違いはないと思われますが、フォームフィルタをかけてみると、検索結果のテキストボックスに「Between #03/01/02# And #04/01/05#」という具合に日付が「日／年／月」に置き変わって表示されています。これがコードを実行しても抽出されない原因だと思われるのですか、何故、このように日付が変わってしまうのでしょうか。また、どうすれば変わらないようにできるのでしょうか。 よろしくお願いします。

  • VBA publicで日付が呼び出せない

    VBAにて、ユーザーフォーム上のテキストボックスに初期値として今日の日付が入力されており、さらにそれを任意で変更することも出来、最終的なテキストボックスの値を変数に格納するというマクロを作成しようとしています。 'テキストボックス2の初期値を今日の日付とする Private Sub UserForm_Initialize() TextBox2.Text = Format$(Date, "yyyy/mm/dd") 'テキストボックス2の値が日付かどうかチェック Private Sub TextBox2_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) If IsDate(TextBox2.Value) Then DenpyouDate = TextBox2.Value Else TextBox2.Value = "" MsgBox ("日付が不正です") TextBox2.Text = Format$(Date, "yyyy/mm/dd") End If End Sub '他のモジュールでdenpyoudateを使用し、指定のセルに和暦形式で入力する Public DenpyouDate As Date Sheets("伝票").Range("A10").Value = Format(DenpyouDate, "e") Sheets("伝票").Range("C10").Value = Format(DenpyouDate, "m") 「ユーザーフォームのテキストボックスに初期値として日付を表示させ、その最終的な値を変数として格納、別のモジュールで呼び出してセルにセットする」というイメージです。 このマクロを実行した際、初期値である今日の日付を任意の日付に変更した場合は、問題なくそのままの値がセルにセットされるのですが、初期値のまま実行すると、その数値が反映されません。 ローカルウィンドウをチェックすると、ユーザーフォームの時点では、テキストボックスの初期値がきちんとdenpyoudateに格納されているのですが(例：2009/11/24)、それを別モジュールで呼び出した時は、denpyoudateの値が(#0:00:00#)になっており、これが原因だと考えています。 このエラーを回避し、初期値の場合でも値がきちんとセルにセットされるようにするには、どうしたらよいでしょうか？

  • VBAのTextBoxに今日の日付

    いつもお世話になります。 Windows7 Excell2010 です。 ユーザーフォームのTextBoxには下記のようにマクロを記述しています。 Private Sub UserForm_Initialize() UserForm2.TextBox1.Text = Date End Sub その結果下記のように表示されます。 13/7/16(火) シートのセルにはこのまま入力されるので、 セルの書式　設定で　「mm/dd」にしてもそのままの 「13/7/16(火)」になりす。 ご指導を仰ぎたいのはユーザーフォームのTextBoxで 「07/16」にして最終的にはセルも同じくしたい。 ご協力ください。

  • ユーザーフォームのテキストボックスの書式設定について

    ユーザーフォームのテキストボックスの書式設定について TextBox1に金額、TextBox2に日付を入力し、Sheet1に転記するような フォームを作っています。 TextBox1には、 Private Sub TextBox1_Change() y = TextBox1.Text TextBox1.Text = Format$(CLng(y), "#,##0") End Sub としています。 TextBox2には、書式をH○○.○.○という設定にしたいのですが、 どのようにしたらよいでしょうか。

  • アクセスで日付データの和暦表示と西暦表示を切り替えたいのですが

    日付データを１０種類近く（データ入力日、提出日、発行日等）配置したフォームを作っています。 このフォーム中で表示させている全ての日付データを、同じフォームに配置したボタンを押す度に、和暦表示と西暦表示とに切り替えるようにしたいのですが、うまくできません。どのようにしたらよいのでしょうか？

インク注文方法に関する相談
このQ&Aのポイント
  • インク注文方法に関する相談内容についてお知らせください。製品名はDCPJ926Nです。
  • パソコンまたはスマートフォンのOSと接続方法、関連するソフト・アプリ、電話回線の種類について教えてください。
  • この質問はブラザー製品に関するものです。ご質問内容に合わせた回答をお待ちしています。
回答を見る

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する