■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#5764-0ImDateについてguriko1999-12-16(木) 17:33
     #5775-0RE#5764:ImDateについてobara1999-12-16(木) 21:32
     #5789-0RE#5775:ImDateについてguriko1999-12-17(金) 11:13
     #5791-0RE#5789:ImDateについてobara1999-12-17(金) 12:29
     #5793-0RE#5789:ImDateについてobara1999-12-17(金) 12:33
     #5795-0RE#5793:ImDateについてguriko1999-12-17(金) 13:18
     #5796-0RE#5795:ImDateについてobara1999-12-17(金) 14:14
     #5799-0RE#5796:ImDateについてguriko1999-12-17(金) 15:31
#5764-0
ImDateについて
どうもはじめて投稿します。

ImDateについてなのですが、vaspreadのデータをクリックするとImDateに反映させるのですが
日付をBackspaceで消去してからspreadデータをクリックすると日付が表示されません。
デバッグではnumbgerプロパティーに数値が入っているのですが
Textプロパティーがフォーマットの固定文字しかはいっていません。

vaspreadからImDateへの反映のプログラムは
      Dim rtn  as Boolean
      Dim data as Variant
      Dim day  as String

      rtn = vaspread.GetText(Col,Row,data)   ’dataは 'yyyy / mm / dd'
      day = data
      ImDate.Text = day
という感じです。
Backspaceで日付を消すと何か変わってしまうんでしょうか?
ちなみに'yyyy / mm / dd'をyyyymmddにしてImDate.numberにいれてもだめでした。
分かる方がいらっしゃるならどうぞ御教授おねがいします。m(_ _)m
#5775-0
RE#5764:ImDateについて
> vaspreadからImDateへの反映のプログラムは
>       Dim rtn  as Boolean
>       Dim data as Variant
>       Dim day  as String
> 
>       rtn = vaspread.GetText(Col,Row,data)   ’dataは 'yyyy / mm / dd'
>       day = data
>       ImDate.Text = day
> という感じです。
> Backspaceで日付を消すと何か変わってしまうんでしょうか?
> ちなみに'yyyy / mm / dd'をyyyymmddにしてImDate.numberにいれてもだめでした。
> 分かる方がいらっしゃるならどうぞ御教授おねがいします。m(_ _)m
私も試してみましたが「ImDate.Text = day」でエラーが発生しました。
ImDate.Text = day → imDate.Text = Format(day, "yyyy/mm/dd")
とすればimDateへ表示できますした。
imDateとSpreadのフォーマット形式を同一にすればいいと思うのですが?
違うのでしょうか?
#5789-0
RE#5775:ImDateについて
obaraさん、御返答ありがとうございます。

> > vaspreadからImDateへの反映のプログラムは
> >       Dim rtn  as Boolean
> >       Dim data as Variant
> >       Dim day  as String
> > 
> >       rtn = vaspread.GetText(Col,Row,data)   ’dataは 'yyyy / mm / dd'
> >       day = data
> >       ImDate.Text = day                      'ImDateのフォーマットは"yyyy  / mm / dd"
> > という感じです。
> > Backspaceで日付を消すと何か変わってしまうんでしょうか?
> > ちなみに'yyyy / mm / dd'をyyyymmddにしてImDate.numberにいれてもだめでした。
> > 分かる方がいらっしゃるならどうぞ御教授おねがいします。m(_ _)m
> 私も試してみましたが「ImDate.Text = day」でエラーが発生しました。

私のプログラムではうまくいっているのですが

> ImDate.Text = day → imDate.Text = Format(day, "yyyy/mm/dd")
> とすればimDateへ表示できますした。

やってみましたが変わりませんでした。ImDateをBackspaceで消す行為をしなければうまくいくのですが
消すと表示されなくなります。デバックでは以前と変わらずImDate.Textは"   /   /  "
dayにはきちんと"yyyy / mm / dd"がはいっています。
ちなみにImDate.numberはちゃんとyyyymmddです
エラーはでません。それでImDateに適当な日付を入力してやるとうまくいくんです。

> imDateとSpreadのフォーマット形式を同一にすればいいと思うのですが?
> 違うのでしょうか?

ひとつならそれでいいのですが一つのセルに"yyyy / mm / dd〜yyyy / mm / dd"のように
いれてしまっているので文字形式でやっています。

Backspaceで日付を消すとやっぱり何かおかしくなるんでしょうか?
#5791-0
RE#5789:ImDateについて
BackSpaceで消したときに起こるのですか?Deleteの時は起きないとか?
私は下記コードで試してみました。
Private Sub vaSpread_Click(ByVal Col As Long, ByVal Row As Long)

  Dim vBuff As Variant

  If vaSpread.GetText(Col, Row, vBuff) Then
Debug.Print "vBuff=" & vBuff
Debug.Print "ImDate.Text=" & imDate.Text
Debug.Print "ImDate.number=" & imDate.Number
    imDate.Text = Format(vBuff, "yyyy/mm/dd")
  End If
End Sub
> やってみましたが変わりませんでした。ImDateをBackspaceで消す行為をしなければうまくいくのですが
> 消すと表示されなくなります。デバックでは以前と変わらずImDate.Textは"   /   /  "
> dayにはきちんと"yyyy / mm / dd"がはいっています。
> ちなみにImDate.numberはちゃんとyyyymmddです
> エラーはでません。それでImDateに適当な日付を入力してやるとうまくいくんです。
> 
> > imDateとSpreadのフォーマット形式を同一にすればいいと思うのですが?
> > 違うのでしょうか?
> 
> ひとつならそれでいいのですが一つのセルに"yyyy / mm / dd〜yyyy / mm / dd"のように
> いれてしまっているので文字形式でやっています。
> 
> Backspaceで日付を消すとやっぱり何かおかしくなるんでしょうか?
私の環境ではなりませんでした。Win98 + Sp1 , WinNt4.0 + Sp5 
よくわかりませんね〜困った問題ですね!
使用しているコントロールはBOCのInputMan6.0ですよね?購入時期が古くありませんか?
もしかしたらSpをBOCで配布しているかもしれません
#5793-0
RE#5789:ImDateについて
追加です。
> やってみましたが変わりませんでした。ImDateをBackspaceで消す行為をしなければうまくいくのですが
> 消すと表示されなくなります。デバックでは以前と変わらずImDate.Textは"   /   /  "
> dayにはきちんと"yyyy / mm / dd"がはいっています。
"yyyy / mm / dd"ではおかしいのでは? 正:"yyyy/mm/dd"ではないのでしょうか?
> ちなみにImDate.numberはちゃんとyyyymmddです
> エラーはでません。それでImDateに適当な日付を入力してやるとうまくいくんです。
#5795-0
RE#5793:ImDateについて
obaraさん、たびたび有り難うございます。

> > やってみましたが変わりませんでした。ImDateをBackspaceで消す行為をしなければうまくいくのですが
> > 消すと表示されなくなります。デバックでは以前と変わらずImDate.Textは"   /   /  "
> > dayにはきちんと"yyyy / mm / dd"がはいっています。
> "yyyy / mm / dd"ではおかしいのでは? 正:"yyyy/mm/dd"ではないのでしょうか?

カスタムのフォーマットで"yyyy / mm / dd"としたんですけどまずいんでしょうか?

えーと私が使用しているのはInputMan OCXv4.0Jでした。VB4の環境でやっています。
古いからまずいんでしょうか?この環境での対応策はないものでしょうか?
#5796-0
RE#5795:ImDateについて
> obaraさん、たびたび有り難うございます。
> 
> > > やってみましたが変わりませんでした。ImDateをBackspaceで消す行為をしなければうまくいくのですが
> > > 消すと表示されなくなります。デバックでは以前と変わらずImDate.Textは"   /   /  "
> > > dayにはきちんと"yyyy / mm / dd"がはいっています。
> > "yyyy / mm / dd"ではおかしいのでは? 正:"yyyy/mm/dd"ではないのでしょうか?
> 
> カスタムのフォーマットで"yyyy / mm / dd"としたんですけどまずいんでしょうか?
> 
> えーと私が使用しているのはInputMan OCXv4.0Jでした。VB4の環境でやっています。
> 古いからまずいんでしょうか?この環境での対応策はないものでしょうか?
お役に立てずすみません。そのVerのことは残念ながら解りません。(所持してません)
BOCのユーザーサポートにMailしてみては如何でしょうか。次の日には回答が来ると思いますので。。。
#5799-0
RE#5796:ImDateについて
> お役に立てずすみません。そのVerのことは残念ながら解りません。(所持してません)
> BOCのユーザーサポートにMailしてみては如何でしょうか。次の日には回答が来ると思いますので。。。

いいえとんでもありません。obaraさんどうも有り難うございました。
このページと関連する記事:
#6813-0時間の計算。2000-03-21(火) 17:31
#583-1テキストボックスに表示した日付を矢印キーで操作したい。2004-04-15(木) 16:29
#29849-0日付型関数の桁数2000-09-12(火) 15:17
#46445-0ファイルの更新日時の取得2001-09-02(日) 15:27
#16850-0Dateについて2000-02-25(金) 02:50
#8563-0日付処理について2000-06-05(月) 13:06
#20279-0日付の比較2002-03-18(月) 16:51
#1912-0日付属性のデータへの入力フォームについて1999-09-28(火) 16:55
#14761-0IIf関数について2001-02-27(火) 16:07
#8296-0yy/mm/dd を yyyy/mm/dd に変換する場合、yyyyはどう決まるのでしょうか?1999-10-27(水) 11:25
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)