Excel VBA質問箱 IV

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

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


3527 / 13644 ツリー ←次へ | 前へ→

【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

って二つ用意した方がいいんじゃないかな〜?

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