Question

我想将中文日期转换为公历格式。我有三种格式，我需要一种模式来识别中文日期。

1）平成30年度=平成2018年度

2）30年3月期= 2018年3月期

3）令和2年= 2020年

您可以在这些链接上找到每个中国日期对应的年份。这些链接会有所帮助。

https://en.wikipedia.org/wiki/Heisei https://www.jcb.co.jp/processing/share/wareki.html

我为第一个日期编写了代码，并将查找部分设置为平成30年ChrW（24179）＆ChrW（25104）＆Heisei＆ChrW（24180），替换文本为ChrW（24179）＆ChrW（25104）＆Gregorian＆ChrW（24180）。然后，我遍历了Heisei值，将每年转换为公历年。因此，平成的30值等于2018年的格里高里数。

我现在需要的是更改其他两种日期格式的查找和替换值，并在所有日期格式上运行Year循环。

Selection.HomeKey Unit:=wdStory
  Options.Pagination = False
  Dim Heisei As Integer
  Dim Gregorian As Integer
  Heisei = 20
  Gregorian = 2008
  Dim C As Integer

Do Until C = 50
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
    .Text = ChrW(24179) & ChrW(25104) & Heisei & ChrW(24180)
    .Replacement.Text = ChrW(24179) & ChrW(25104) & Gregorian & 
     ChrW(24180)
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchKashida = False
    .MatchDiacritics = False
    .MatchAlefHamza = False
    .MatchControl = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Replacement.Font.Color = wdColorBlue
End With
Selection.Find.Execute Replace:=wdReplaceAll
Heisei = Heisei + 1
Gregorian = Gregorian + 1
C = C + 1

Loop
MsgBox ("Year Replaced")

我需要三种模式和一个循环来遍历所有三个日期的所有年份范围。

1）平成30年度=平成2018年度

2）30年3月期= 2018年3月期

3）令和2年= 2020年

当我在Word文档中运行宏时，我需要的就是上面的输出。

如果您有更好的方法，请与我分享如何做到这一点。！

怎么把日本日期转换成公历日期格式？

0 个答案: