一段vb代码转换成c#代码

jiudianyike 2006-04-30 01:40:11
在线等

String ls_c[10] = {"○","一","二","三","四","五","六","七","八","九"}
String ls_date, ls_returnStr = "",ls_ch
Int mm, dd, i

ls_date = String(adt_date, "yyyy年mm月dd日")
int a
a= len(ls_date)
For i = 1 to Len(ls_date) //依次处理ls_date中每个字符
ls_ch = Mid(ls_date , i , 1)
If Asc(ls_ch) < 128 then //非汉字
ls_returnStr = ls_returnStr + ls_c[integer(ls_ch)+ 1] //得到对应的中文数字
else
ls_ch = Mid(ls_date , i , 2)
ls_returnStr = ls_returnStr + ls_ch //取出此汉字
i = i + 1
end if
next
//处理'月'
mm = Month(date(adt_date))
choose case mm
case 11, 12
ls_returnStr = replace(ls_returnStr, 11, 2, "十")
case 10
ls_returnStr = replace(ls_returnStr, 11, 4, "十")
case else
ls_returnStr = replace(ls_returnStr, 11, 2, "")
end choose

//处理'日'
dd = Day(date(adt_date))
i = Pos(ls_returnStr, "月") + 2
choose case dd
case 31, 21 to 29
ls_returnStr = replace(ls_returnStr, i + 2, 0, "十")
case 30, 20
ls_returnStr = replace(ls_returnStr, i + 2, 2, "十")
case 11 to 19
ls_returnStr = replace(ls_returnStr, i, 2, "十")
case 10
ls_returnStr = replace(ls_returnStr, i, 4, "十")
case 1 to 9
ls_returnStr = replace(ls_returnStr, i, 2, "")
case else
end choose

return ls_returnStr
...全文
123 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
jiudianyike 2006-04-30
  • 打赏
  • 举报
回复
能不能帮我转换一下,或则帮我写一段数字日期转换成中文日期的程序
webwait 2006-04-30
  • 打赏
  • 举报
回复
http://www.developerfusion.co.uk/utilities/convertvbtocsharp.aspx
http://csharpconverter.claritycon.com/Default.aspx
http://cngunner.cnblogs.com/archive/2006/01/16/318309.html

62,071

社区成员

发帖
与我相关
我的任务
社区描述
.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见,支持健康理性的辩论和互动,反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

试试用AI创作助手写篇文章吧