Access VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5296 / 9994

←次へ　｜　前へ→


	【7924】Re:誕生日計算

Gin_II - 06/6/5(月) 17:18 -


	引用なし

	パスワード

> 生年月日を入力させる（西暦ｙｙｙｙｍｍｄｄ）

CDate 関数や、Format 関数を使って、日付型に変換してやる必要があります。

CDate(Format(Forms!フォーム名!テキストボックス名, "@@@@/@@/@@"))
のように。

Microsoft Office アシスタント: IsDate 関数
http://office.microsoft.com/ja-jp/assistance/HP010431811041.aspx

チェックも必要ということであれば、IsDate 関数なども使ってください。

> という問題をやっているのですが、datediff関数を使うのであろうと思うのですが
> 西暦がからんでおり、後何日という構文がうまく組めません。

Microsoft Office アシスタント: DateDiff 関数
http://office.microsoft.com/ja-jp/assistance/HP010431091041.aspx

Microsoft Office アシスタント: DateAdd 関数
http://office.microsoft.com/ja-jp/assistance/HP010431071041.aspx

If Format([誕生日], "mmdd") > Format(Now(), "mmdd") Then
　　Debug.Print DateDiff("d", [誕生日], DateAdd("yyyy", 1, Now()))
Else
　　Debug.Print DateDiff("d", [誕生日], Now())
End If

258 hits

▼

【7923】誕生日計算 Takebashi 06/6/5(月) 15:27