今天心情很好

展开阅读全文

今天心情一直不好

06-19

因为工作的原因我一直在北京这家做数据库方面的这家公司,因为公司待遇福利各方面都不是很差rn加上我去年刚出来又想积累点工作经验所以我就留在了北京,而我女朋友则继续留在了上海,说好了一年后我就去上海rn那边,不管这边多好多好,可是昨天我又像往常一样给每天她打电话,却是一个男的rn接的,还说她在床上.,我差点........下午她一直给我打电话rn还说我那个男的在一起只是几周而已,谁会相信呢。。。。下午那个男的也给我打电话rn了,说他自己在上海一家什么物流公司里面干搬运工。。和她在一起半年了,我真的当时听了,感觉好难受,真的,我感觉那个时候我的心里面有那种就想被刀直接插进去的那种感觉..............rn我真的没想到............她怎么会找,这种人...........(我不是别人的意思)因为我觉得我期待了几年的感觉就在这么一瞬间崩溃了rn我受不了................想起我为了她.......哎,不说了,女人让人绝望。。。。。。。我全明白了,昨天晚上我9点后到10点左右才下班回家,走在路上才感觉一个人这一年好孤单..我也不想吃什么,就是感觉难受。去路边的一个酒吧,喝了点酒,rn本来我酒量就不很厉害,加上又是白酒,好难受,,,,,,才发现自己哭的很厉害,,,,,,,,眼泪一直不停的往下掉...感觉哭的那种感觉好舒服,心里比喝酒都舒服...........我想我这一辈子我绝对不会在为了她去上海了。 论坛

今天心情不好,共享原代码

03-02

'功能:将小写金额转换成大写金额rn'环境:vb6.0下测试能通过rnrnPrivate Const NUM_UNIT = "分角元拾佰仟万拾佰仟亿拾佰仟兆拾佰仟" '单位rnPrivate Const NUM_VALUE = "零壹贰叁肆伍陆柒捌玖" '十个大写rnPrivate Const HEAD_LABEL = "¥ " '字串的头部字符rnrnrn'参数说明:doubleCurrNum 需转化的数值rn' strErrInfo 返回错误信息rn'     blnDisplayZero 是否要显示零 如:(显示零)壹佰 零拾 叁元 伍角 伍分 True 显示 False 不显示 默认值为Turern' intSpaceNum 字符间的空格数,默认值为0rn'返回值 :转换成功返回转换后的大写金额,转换失败返回vbNullStringrnPublic Function CaseMoney(ByVal doubleCurrNum As Double, ByRef strErrInfo As String, Optional ByVal blnDisplayZero As Boolean = True, Optional ByVal intSpaceNum As Integer = 0) As Stringrn Dim strTmp As Stringrn Dim intI As Integerrn Dim strRet As Stringrn rn On Error GoTo CaseEndrn rn CaseMoney = vbNullString '初始化函数返回值rn rn strTmp = Format(doubleCurrNum, "0.00") '格式化数值rn strTmp = Left(strTmp, Len(strTmp) - 3) & Right(strTmp, 2) '去掉小数点rn rn If Len(strTmp) > 18 Thenrn strErrInfo = "数值位数太多,不能处理!"rn GoTo CaseEndrn End Ifrn rn strRet = HEAD_LABELrn rn For intI = Len(strTmp) To 1 Step -1rn If Not blnDisplayZero And intI > 2 And Asc(Mid(strTmp, Len(strTmp) - intI + 1, 1)) - 48 = 0 Then '是否显示零rn Elsern strRet = strRet & Mid(NUM_VALUE, Asc(Mid(strTmp, Len(strTmp) - intI + 1, 1)) - 48 + 1, 1) '取大写rn strRet = strRet & Mid(NUM_UNIT, intI, 1) '取单位rn strRet = strRet & Space(intSpaceNum) '取字符间空格数rn End Ifrn Nextrn rn CaseMoney = strRetrnrnCaseEnd:rnEnd Functionrn 论坛

没有更多推荐了,返回首页