『日付け⇔シリアル値変換の記述は？』（万年太郎）
 本日の日付けを
�@シリアル値に変換してそれをMsgBoxに表示する記述
�Aそのシリアル値に演算して加減した数値を再び日付けに戻す
の記述がうまくいきません。どなたかご教示下さい。

 Sub 記述テスト()
   Dim Today,s2 As Variant
   Dim s As Long

   Today = Format(Date)
     MsgBox Today 　　　 　' 本日の日付けを表示
   s = Val(Today) 　　　　 ' シリアル値に変換
     MsgBox s              'シリアル値を表示

   s2 = s + 4
   s2 =format(date,"yy-mm-dd")   '加算したシリアル値を日付けに戻す
   MsgBox s2                     '加算した日付けを表示

End Sub

 WndowXP,Excek2003
----
 単純にいえばこんなこと？

 MsgBox Date + 4

 > s2 = s + 4
 で４足した日付を取得しているのに、
 >  s2 =format(date,"yy-mm-dd")   '加算したシリアル値を日付けに戻す 
 で今日の日付に戻してますね？？
 (MARBIN)
----

 DateAdd 関数で

 MsgBox DateAdd("d", 4, Date)
 (seiya)
----
 ありがとうございます。 
シリアル値に変換してそれを表示する部分がうまくいかないのですが、
どうしたらいいでしょう？
(><)万年太郎

----
 何をどうしたいのか良く解らないけど。
 シリアル値って、これですよ。
 MsgBox CDbl(CDate("2008/2/29"))

 単純に日付に加算したいなら
 MsgBox Format(CDate("2008/2/29") + 1, "yyyy/m/d")
 わざわざシリアル値にする必要がないです。
 BJ