No.3ベストアンサー
- 回答日時:
西暦への変換の更新クエリです。
UPDATE テーブル名 SET フィールド1 = Format(CDate([フィールド1] & "1月1日"),"yyyy\年");
和暦の場合は、"yyyy\年" を "ggge\年" に。
No.5
- 回答日時:
モジュールにユーザー定義関数を作成する。
モジュールの新規作成ででてくる画面で
Function WANEN(XNEN)
'和暦年変換
If XNEN Is Null And Right(XNEN,1) <> "年" Then Exit Function
WANEN = Format(Datevalue(XNEN & "12月31日"),"gggee年")
End Function
Function CENEN(XNEN)
'西暦年変換
If XNEN Is Null And Right(XNEN,1) <> "年" Then Exit Function
CENEN = Format(Datevalue(XNEN & "12月31日"),"yyyy年")
End Function
と入力
更新クエリでWANEN([フィールド1])で和暦に、CENEN([フィールド1]で西暦に変換できます。
No.4
- 回答日時:
ANo.1 の GreatDragon です。
今回のケースでは更新クエリでは難しい(私のスキル不足な)ので、VBA のコードを作成してみました。
宜しかったら(DBのバックアップ後)お試しください。
'■■西暦年→和暦年■■
Public Sub SeirekiWareki()
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim Nen As Integer
Set Cn = CurrentProject.Connection
Set Rs = New ADODB.Recordset
Rs.Open "テーブル1", Cn, adOpenKeyset, adLockOptimistic
Do Until Rs.EOF
If IsNumeric(Left(Rs![フィールド1], 4)) Then
Nen = CInt(Left(Rs![フィールド1], 4))
If Nen > 1988 Then
Rs![フィールド1] = "平成" & (Nen - 1988) & "年"
ElseIf Nen > 1925 Then
Rs![フィールド1] = "昭和" & (Nen - 1925) & "年"
ElseIf Nen > 1911 Then
Rs![フィールド1] = "大正" & (Nen - 1911) & "年"
Else
'何もしません。
End If
Rs.Update
End If
Rs.MoveNext
Loop
Rs.Close: Set Rs = Nothing
Cn.Close: Set Cn = Nothing
End Sub
'■■和暦年→西暦年■■
Public Sub WarekiSeireki()
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim Nen As Integer
Set Cn = CurrentProject.Connection
Set Rs = New ADODB.Recordset
Rs.Open "テーブル1", Cn, adOpenKeyset, adLockOptimistic
Do Until Rs.EOF
If Not IsNumeric(Left(Rs![フィールド1], 2)) Then
If Left(Rs![フィールド1], 2) = "平成" Then
Nen = Val(Replace(Replace(Rs![フィールド1], "平成", ""), "年", ""))
Rs![フィールド1] = (Nen + 1988) & "年"
ElseIf Left(Rs![フィールド1], 2) = "昭和" Then
Nen = Val(Replace(Replace(Rs![フィールド1], "昭和", ""), "年", ""))
Rs![フィールド1] = (Nen + 1925) & "年"
ElseIf Left(Rs![フィールド1], 2) = "大正" Then
Nen = Val(Replace(Replace(Rs![フィールド1], "大正", ""), "年", ""))
Rs![フィールド1] = (Nen + 1911) & "年"
Else
'何もしません。
End If
Rs.Update
End If
Rs.MoveNext
Loop
Rs.Close: Set Rs = Nothing
Cn.Close: Set Cn = Nothing
End Sub
No.2
- 回答日時:
ご回答ありがとうございます。
えぇっと・・・、作業量を軽減したくて質問しました。
更新クエリで一括変換できればと思ったのですが。
No.1
- 回答日時:
「日付/時刻型」フィールドに格納されたデータでしたら「書式」プロパティで西暦または和暦で表示することが出来ますが、
ご質問のご様子ですとテキスト型(または数値型)にデータが保存されているようですね。
現在のデータ型および実際のデータサンプルを数件示していただければ的確な回答が付くはずです。
ご回答ありがとうございます。
データは下記の通り、昭和及び平成、西暦が混在しています↓
データ型はテキスト型です。
フィールド1
---------------
平成13年
1998年
平成5年
平成17年
1977年
昭和60年
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
ゆるやかでぃべーと タイムマシンを破壊すべきか。
これはディベートの論題だと仮定したうえでの回答お願いします。あなたは、その末にタイムマシンを壊してしまうのか、使い道を探すのかどうかを考えてもらいたいです。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
Access での 「年」 のみの和暦変換について
Windows Vista・XP
-
ACCESSで和暦を西暦に・・・
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
差込印刷での全角表示について...
-
エクセルデータをワードで差し...
-
エクセルにおける「フィールド...
-
ACCESSのデータに自動で半角ス...
-
海外ドラマ『プリズン・ブレイ...
-
sqlserverにはグループ集計のfi...
-
フィールドの更新がない
-
ACCESS 重複データを1...
-
クエリーで、全角混じりデータ...
-
Acsess アクセス のクエリで...
-
VBで使用するAccessのSQL(INSER...
-
ACCESSで条件によってフォーム...
-
オープンしているレコードセッ...
-
Word差し込み印刷のハイフン(...
-
Accessのハイパーリンクをクリ...
-
【ワードで大変困っております...
-
エクセルのピポットテーブルで...
-
列を移動させるvbaコードを教え...
-
ACCESS2000でExcelから特定フィ...
-
アクセスの操作について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
差込印刷での全角表示について...
-
エクセルにおける「フィールド...
-
エクセルデータをワードで差し...
-
フィールドの更新がない
-
Word差し込み印刷のハイフン(...
-
ACCESSのデータに自動で半角ス...
-
クエリで割り算する方法を教え...
-
Acsess アクセス のクエリで...
-
Accessのハイパーリンクをクリ...
-
実行時エラー '3464': 抽出条件...
-
ACCESS 重複データを1...
-
ACCESSでフィールド名の変更(...
-
海外ドラマ『プリズン・ブレイ...
-
ACCESSで条件によってフォーム...
-
ToV、サブイベント・犬マップの...
-
datetime型のUpdate文
-
Access クエリの編集について
-
「Access2007」でレポートが作...
-
アクセスの操作について
-
クエリーで、全角混じりデータ...
おすすめ情報