求和历转换问题

收藏

="　１．ご依頼に基づく"& Format( ToDateTime (First(Fields!発行基準日.Value, "DataSet1")) ,"ggyy年MM月dd日")&"現在の貴名義の融資残高は、上記の通りであることを証明いたします。"
的结果是

ご依頼に基づく2015年０８月０７日現在の貴名義の融資残高は、上記の通りであることを証明いたします。"

我想把里面的2015年０８月０７日西历转换成和历平成２７年０８月０７日应该怎样转换

frank.zhang · frank.zhang

您好，
我记得之前跟您沟通过，您使用的是AR9.0J。
由于搭建日文环境，需要一点时间，这个问题我会在今天给您回复。

weijianxiong · weijianxiong

回复 2楼frank.zhang的帖子

这个问题已经解决了，是你之前教我的类推
Function Wareki(d As String) As String
Dim ci As New System.Globalization.CultureInfo("ja-JP")
Dim jp As New System.Globalization.JapaneseCalendar
Dim dt As System.DateTime

ci.DateTimeFormat.Calendar = jp

dt = DateTime.Parse(d)

Return dt.ToString("ggyy年MM月dd日", ci)
End Function

frank.zhang · frank.zhang

感谢您解决问题后对我们反馈，给您分发 1000 金币。可以用于兑换论坛奖品。
金币规则：点击进入
礼品列表：点击进入

您好，问题已经解决，本帖关闭，如有其它问题，请开新帖。

为了给你提供更优质的服务，请对本次服务进行评分。我们会认真对待你提出的宝贵意见，谢谢

		自动登录	找回密码
密码			立即注册

[已处理] 求和历转换问题

3 个回复

评分

评分

活字格认证

微信认证勋章

元老葡萄