関連記事 ⇒ さくらのマネージドサーバに変更することに

9月 232013
 



vb 変換 日付ですが。。

■■ Q&Aサイトまとめ

  ■ Visual Studio2008(vb.net)を使用しています。文字列を日付時刻に直すにはどうしたらいいでしょうか?文字列"20130312131152”を"yyyy/MM/dd HH:mm:ss"形式に変換したいのですが簡単にできる方法ないでしょうか?よろしくお願いします。

  ⇒ 詳しくはこちら

  ■ yyyyMMdd形式をyyyy/MM/ddにしたい。Visual Studio2008(vb.net)を使用しています。yyyyMMdd形式の文字列を正しい日付ならばyyyy/MM/dd形式に変換したいのですが、簡単にできる方法はないでしょうか?ちなみに正しい日付でない場合は、そのままの値を表示したいです。よろしくお願いします。

  ⇒ 詳しくはこちら

  ■ VBでバイナリファイルから読み取ったバイト配列をdate型(日付型)に変換するにはどうすればいいでしょうか?

  ⇒ 詳しくはこちら

  ■ 指定文字列の書式変換について。Excel 2007で作成しています。使用はExcel 2003になります。出来れば条件付き書式で解決したいのですが不可能ならばVBでのご教授願います。セルC7に日付入力(表示形式:yy-mmdd)セルI7に日付入力(表示形式:yyyy.m.d)※現在各セルに空白ならば塗りつぶしの条件付き書式を設定しています。各セルそれぞれの入力が正確な日付であれば「文字色:濃い青」で表示正確な日付でなければ(例:2012年4月31日など存在しない)「文字色:赤」で表示という操作をしたいのですが、条件付き書式でCOUNTIFでワイルドカードを用いて試みると文字列で認識されるのか思っている動作をしてくれません。まず、条件付き書式でワイルドカードは使用できないのでしょうか?次に、VBでの操作で実行しようと試みたのですが私自身、VBの経験はあるのですが解説がないと理解出来ないのでほぼ初心者で自分ではマクロが組めません。また、作成ファイルの使用者はマクロ機能を理解出来てないので出来ればシンプルな方法をご教授願います。希望として、上記条件(日付でなければ赤)に追加でI7の日付がC7の日付より小(古)さければ「文字色:赤」も実行できると理想的です。説明下手ですがよろしくお願いします。

  ⇒ 詳しくはこちら

  ■ エクセルについて質問しますA1に01/04/01と入力してある日付をB1に1989/04/01と変換する方法はありますか?A列にA1の様な日付が沢山入っています年号の期間は昭和と平成が混在しています例)01/04/01は1989/04/01 53/04/01は1978/04/01 上記の様に和暦が混在しているものをすべて西暦にする 関数とVBを教えてください宜しくお願いします

  ⇒ 詳しくはこちら

  ■ カレンダーの初期値設定についておはようございます。VB.NETのプログラムについてご質問がありますので、ご教授お願いします。只今、カレンダーの日付をACCESSのデータ(DataTable型)からデータを取得し、その値をカレンダーの初期値として設定しようとしています。ACCESSのデータには今”20100914”というデータのみ入っています。これをカレンダーで2010年9月14日と表示させたいのですが、どのような方法で取得したらいいのでしょうか?プログラム中にSQLを発行し、DataTable型として値はとれているようなのですが・・・。これを文字列に変換するのかなと思いつつ・・・作業に行き詰っています。アドバイスよろしくお願いいたします。

  ⇒ 詳しくはこちら

  ■ VB6.0「日付変換」についての質問です。 (Vol.5)VBを勉強しだして、まだ2週間ほどの初心者です。基本がまだまだ、出来ていないため、不明な事が多く四苦八苦しています。TextBox2内に入力された数字("##########"の8桁もしくは、"####/##/##"の10桁)をEnterキーを押し、日付に変換(####/##/##)の形にして再度、入力された、TextBox2内に表示するという問題ですが、mahoo niee様をはじめ、沢山の方のご協力で、なんとか実行できるようになりました。本当にありがとうございました。しかし自分の未熟さで、まだ以下の問題が発生しております。その後、前回の(Vol.4)mahoo niee様のアドバイスなど参考に自分がやりたい処理に合わせた関数などを探して試したりしたのですが基本が出来ていない為、ロジックの組み立てが出来ず、前に一向に進みません。自分的には前回mahoo niee様からアドバイス頂いた、最終的にFormat関数で処理したいのですがロジックをどう組み立てたらいいか分かりません。どうか宜しくお願いします。※あれだけ、アドバイス頂いたのに、本当に申し訳ありません。①日付変換で通常は無い日付も変換されてしまう。(例)入力:20151254→2015/12/54②何も入力してない状態で、Enterを押すとエラーがでる。③(以前記述した課題)YYYY/MM/DD YYYYは4桁未満の場合は前ゼロ編集する。MM/DD MMは2桁未満の場合は前ゼロ編集する。DD DDは1桁未満の場合は前ゼロ編集する。YYYYMMDD YYYYは4桁未満の場合は前ゼロ編集する。MMDD MMは2桁未満の場合は前ゼロ編集する。DD DDは1桁未満の場合は前ゼロ編集する。これ以外の条件で入力された場合は編集を行わず、入力されたままの状態でいい→Vol.4でのアドバイスの内容は良く理解できたのですが、それをどうやってロジックを組み立てていくか(コードの記述方法)が分かりません。★書いたコードPrivate Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn ThenDim hiduke As Long ‘数値認識させる為の変数。Dim nen As Single ‘年の変数Dim tuki As Single ‘月の変数Dim hi As Single ‘日の変数hiduke = CLng(Val(Replace(Text2.Text, "/", "")))nen = Left(hiduke, 4)tuki = Mid(hiduke, 5, 2)hi = Right(hiduke, 2)Text2.Text = nen & "/" & tuki & "/" & hiEnd IfEnd Sub

  ⇒ 詳しくはこちら

  ■ VB6.0「日付変換」についての質問です。 (Vol.4)VBを勉強しだして、まだ2週間ほどの初心者です。基本がまだまだ、出来ていないため、不明な事が多く四苦八苦しています。TextBox2内に入力された数字("##########"の8桁もしくは、"####/##/##"の10桁)をEnterキーを押し、日付に変換(####/##/##)の形にして再度、入力された、TextBox2内に表示するという問題ですが、mahoo niee様をはじめ、沢山の方のご協力で、なんとか実行できるようになりました。本当にありがとうございました。しかし自分の未熟さで、まだ以下の問題が発生しております。再度ご教授宜しくお願い致します。①日付変換で通常は無い日付も変換されてしまう。(例)入力:20101232→2010/12/32→これについては、Format関数、ISDate関数を使えばいいのでしょうか? また使うとすると、どのように記述すればいいのでしょうか?②何も入力してない状態で、Enterを押すとエラーがでる。(以前記述した課題) YYYY/MM/DD YYYYは4桁未満の場合は前ゼロ編集する。 MM/DD MMは2桁未満の場合は前ゼロ編集する。 DD DDは1桁未満の場合は前ゼロ編集する。 YYYYMMDD YYYYは4桁未満の場合は前ゼロ編集する。 MMDD MMは2桁未満の場合は前ゼロ編集する。 DD DDは1桁未満の場合は前ゼロ編集する。 これ以外の条件で入力された場合は編集を行わず、入力されたままの状態でいい→この課題をコードで記述すれば解消されるのでしょうか?また書くとするとSelec Caseなどを使って文字制限(バイト)すればいいのでしょうか?★書いたコードPrivate Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Dim hiduke As Long ‘数値認識させる為の変数。 Dim nen As Single ‘年の変数 Dim tuki As Single ‘月の変数 Dim hi As Single ‘日の変数 hiduke = CLng(Val(Replace(Text2.Text, "/", ""))) nen = Left(hiduke, 4) tuki = Mid(hiduke, 5, 2) hi = Right(hiduke, 2) Text2.Text = nen & "/" & tuki & "/" & hi End IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 47 Then Exit Sub ‘数値記号チェック If KeyAscii = vbKeyBack Then Exit Sub If Not Chr(KeyAscii) Like "[0-9]" Then KeyAscii = 0 End IfEnd Sub

  ⇒ 詳しくはこちら

  ■ VB6.0 「日付変換」について質問です。 (Vol.3)VBを勉強しだして、まだ2週間ほどの初心者です。基本がまだまだ、出来ていないため、不明な事が多く四苦八苦しています。TextBox2内に入力された数字("##########"の8桁もしくは、"####/##/##"の10桁)をEnterキーを押し、日付に変換(####/##/##)の形にして再度、入力された、TextBox2内に表示するには、どのようにコードを組めばいいのでしょうか。前回こちらの、知恵袋で教えていただいた、Mid関数、Left関数、Right関数を使用して、コードを書いたのですが、うまくいきません。よろしくお願い致します。また以前にご指摘いただいたものを含めて修正したのですが、Enterキーを押しても、変換表示されません。なぜでしょうか?※なおテキストボックス2には数値("123456789"と"バックスペース"と"/"しか入力出来ないようにしています。★コードPrivate Sub Text2_LostFocus() ‘① Dim hiduke As Long ‘数値認識させる為の変数。 Dim nen As Single ‘年の変数 Dim tuki As Single ‘月の変数 Dim hi As Single ‘日の変数 hiduke = CLng(Val(Text2.Text)) nen = Left(hizuke, 4) tuki = Mid(hizuke, 5, 2) hi = Right(hizuke, 2) Text2.Text = nen & "/" & tuki & "/" & hi End SubPrivate Sub Text2_KeyPress(KeyAscii As Integer) ‘② If KeyAscii = 47 Then Exit Sub ‘数値記号チェック If KeyAscii = vbKeyBack Then Exit Sub If Not Chr(KeyAscii) Like "[0-9]" Then KeyAscii = 0 End If End Sub※数値記号のチェックはうまく機能していて、ちゃんと数値しか入力出来ないようになっているのですが、日付に変換できません。 やはり、上記の①のコードが間違っているのでしょうか? 皆様のお力をお貸し下さい。宜しくお願い致します。

  ⇒ 詳しくはこちら

  ■ VB6.0 「日付変換」について質問です。 (Vol.2)VB6.0「日付変換」での質問です。 VBを勉強しだして、まだ2週間ほどの初心者です。基本がまだまだ、出来ていないため、不明な事が多く四苦八苦しています。テキストボックス内に入力された数字("##########"の8桁もしくは、"####/##/##"の10桁)をEnterキーを押し、日付に変換(####/##/##)の形にして再度、入力された、テキストボックス内に表示するには、どのようにコードを組めばいいのでしょうか。前回こちらの、知恵袋で教えていただいた、Mid関数、Left関数、Right関数を使用して、コードを書いたのですが、うまくいきません。よろしくお願い致します。また以前にご指摘いただいたものを含めて修正したのですが、Enterキーを押しても、変換表示されません。なぜでしょうか? Private Sub Text2_() ←ここのイベントがおかしいのでしょうか?以前はLost Focusを入れていて、ご指摘を受けました。 Dim hiduke As Long ‘数値認識させる為の変数。 Dim nen As String ‘年の変数 Dim tuki As String ‘月の変数 Dim hi As String ‘日の変数 hizuke = CLng(Val(Text2.Text)) nen = Left(hizuke, 4) tuki = Mid(hizuke, 5, 2) hi = Right(hizuke, 2) Text2.Text = nen & "/" & tuki & "/" & hi※また別にテキストボックス2には数値チェックもしてあります。これが原因?Private Sub Text2_KeyPress(KeyAscii As Integer) Select Case KeyAscii ‘数値記号チェック Case vbKey0 To vbKey9, vbKeyBack, 47 Case Else KeyAscii = 0 End Select End Sub※数字と/記号のみの表示しか出来ないようにしています。本当に初歩的な事ばかりの質問ですが、宜しくお願いします。

  ⇒ 詳しくはこちら






Sorry, the comment form is closed at this time.

関連記事はこちら

関連記事はこちら

■関連記事 ⇒ さくらのマネージドサーバに変更することに






じゃらん Web サービス Supported by 楽天ウェブサービス