hur.cn - 华软网

 热门搜索

pb 将11:55转成十一点五十五分怎么弄,请教!!

  作者:未知    来源:网络    更新时间:2018/10/11
pb 将11:55转成十一点五十五分怎么弄,讨教!!
------华软网友回答------
time lt_now
lt_now = now()
messagebox("",string(lt_now,"hh点mm分"))
------华软网友回复------
2楼说的对啊,阿拉伯数字就好了,程序吗,能简单就简单点好,除非一定要用中文数字。
------华软网友回复------
要中文数字也很简单,我记得以前有人贴过数字转中文大写数字的函数,拿来改一改就是了
------华软网友回复------
晚上回去搞搞`
------华软网友回复------
谢谢列位的支持,我已经自己写好函数了
//==============================================================================
// 名称: Function - gf_sjzh
//------------------------------------------------------------------------------
// 功能: 时间转换:11:35转成十一点三十五分
//------------------------------------------------------------------------------
// 参数: 
//  1.int ai_hour 小时
// 2.int ai_minute 分钟
//------------------------------------------------------------------------------
// 前往: String 
//------------------------------------------------------------------------------
// 作者: Sunlf 日期: 2001.06.04
//------------------------------------------------------------------------------
// 修改: liph     日期: 2005.11.17
//------------------------------------------------------------------------------
// 备注: 
//==============================================================================

String ls_NumStr[10] = {"一","二","三","四","五","六","七","八","九","十"}
String ls_MonStr[20] = {"元","拾","佰","仟","万","拾","佰","仟",&
"亿","拾","佰","仟","万","拾","佰","仟",&
"亿","拾","佰","仟"}
Integer i
Integer li_Len
String  ls_Temp
String  ls_Char
String  ls_IntStr // 整数字符串
String  ls_DecStr     // 小数字符串
String  ls_RtnIntStr  // 整数字符串前往
String  ls_RtnDecStr  // 小数字符串前往
String ls_rtn,ls_h1,ls_h2,ls_m1,ls_m2
//时
li_Len = Len(String(ai_hour))
IF li_Len = 1 THEN
IF ai_hour = 0 THEN
ls_rtn = "零时"
ELSE
ls_rtn = ls_NumStr[ai_hour] + "时"
END IF
ELSE
ls_h1 = Mid(String(ai_hour),1,1)
ls_h2 = Mid(String(ai_hour),2,1)
IF ls_h2 = "0" THEN
IF ls_h1 = "1" THEN
ls_rtn = "十时"
ELSE
ls_rtn = "二十时"
END IF
ELSE
IF ls_h1 = "1" THEN
ls_rtn = "十"+ls_NumStr[Integer(ls_h2)]+"时"
ELSE
ls_rtn = "二十"+ls_NumStr[Integer(ls_h2)]+"时"
END IF
END IF
END IF
///分
li_Len = Len(String(ai_minute))
IF li_Len = 1 THEN
IF ai_minute = 0 THEN

ELSE
ls_rtn += ls_NumStr[ai_minute] + "分"
END IF
ELSE
ls_h1 = Mid(String(ai_minute),1,1)
ls_h2 = Mid(String(ai_minute),2,1)
IF ls_h2 = "0" THEN
IF ls_h1 = "1" THEN
ls_rtn += "十分"
ELSE
ls_rtn += ls_NumStr[Integer(ls_h1)]+"十分"
END IF
ELSE
IF ls_h1 = "1" THEN
ls_rtn += "十"+ls_NumStr[Integer(ls_h2)]+"分"
ELSE
ls_rtn += ls_NumStr[Integer(ls_h1)]+"十"+ls_NumStr[Integer(ls_h2)]+"分"
END IF
END IF
END IF
RETURN  ls_rtn
------华软网友回复------
嘿嘿,楼主这个函数,给我的感觉就是:
choose case ai_hour 
 case 0
  ls_hour='○'
 case 1 
  ls_hour='一'
...
 case 23
  ls_hour='二十三'
end choose
choose case ai_minute 
 case 0
  ls_minute ='○'
 case 1 
  ls_minute ='一'
...
 case 59
  ls_minute ='五十九'
end choose
return ls_hour+'时'+ls_minute +'分'


------华软网友回复------
自个写一个循环,按字符传转换不就完了      
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。