Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3548 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【61607】日付を数値もしくは、文字列としたい。 ちえ 09/5/21(木) 17:23 質問[未読]
【61609】Re:日付を数値もしくは、文字列としたい。 つん 09/5/21(木) 17:35 回答[未読]
【61610】Re:日付を数値もしくは、文字列としたい。 ちえ 09/5/21(木) 17:54 お礼[未読]
【61616】Re:日付を数値もしくは、文字列としたい。 つん 09/5/21(木) 22:38 発言[未読]
【61607】日付を数値もしくは、文字列としたい。
質問  ちえ  - 09/5/21(木) 17:23 -
引用なし
パスワード
   Private Sub SpinButton1_Change()
Dim hiz As Integer　　 '日数
　 With UserForm1
　　　 .TextBox1.Text = .SpinButton1.Value
　　　　hiz = .TextBox1.Text
　　　　.TextBox2.Text = Date - hiz
　 End With
End Sub

TextBox2には、日付が表示されます。
→2009/05/20

この日付を数値もしくは文字列へ変換したいのです。
→090520

どうすればよいのでしょうか？
ご教示ください。
【61609】Re:日付を数値もしくは、文字列としたい。
回答  つん  - 09/5/21(木) 17:35 -
引用なし
パスワード
   ▼ちえ さん
こんにちは＾＾

>TextBox2には、日付が表示されます。
>→2009/05/20
>
>この日付を数値もしくは文字列へ変換したいのです。
>→090520
>

Sub hogehoge()

　　Dim DD
　　
　　DD = Format(Date, "yymmdd")
　　
　　MsgBox DD & " : " & TypeName(DD)
　　MsgBox CLng(DD) & " : " & TypeName(CLng(DD))
　　
End Sub

こんな感じで参考になりますでしょうか？
【61610】Re:日付を数値もしくは、文字列としたい。
お礼  ちえ  - 09/5/21(木) 17:54 -
引用なし
パスワード
   ▼つん様
ご返信ありがとうございます。

Private Sub SpinButton1_Change()
Dim hiz As Integer　　 '日数
　 With UserForm1
　　　 .TextBox1.Text = .SpinButton1.Value
　　　　hiz = .TextBox1.Text
　　　　.TextBox2.Text = Date - hiz
　　 End With
　　
Dim dd
　dd = Format(UserForm1.TextBox2.Text, "yymmdd")
　　UserForm1.TextBox2.Text = dd
　 ' UserForm1.TextBox2.Text = CLng(dd)
　
End Sub

上記で欲しい結果となりました。
感謝致します。
【61616】Re:日付を数値もしくは、文字列としたい。
発言  つん  - 09/5/21(木) 22:38 -
引用なし
パスワード
   ちえさん

お役に立てたようで良かったです＾＾

ところで、
変数の宣言は、途中に挟まず、先頭にまとめてするほうがいいように思います。
そうしないと、エラーの原因のなったり（たぶん）、数が多くなってくると、把握が難しくなったりすると思うんです。

それと、

Dim dd　ですが、

私は文字列や数値に変換させるのに、valiant型（なんでも有り型）の一つの変数に、代入してしましたが（その方が理解しやすいかと思ったので）
実際には、文字列を入れる変数、数値を入れる変数と、型を決めて宣言したほうがいいと思います。
文字列と数値と両方いるなら、


Dim strDD As String
Dim lngDD as Long

って二つ用意した方がいいんじゃないかな〜？
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3548 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free