Public Function Udate(mDATE As Date, mYMD As Integer) As String

'用法 Udate(#1/2/2005#, i)

'i=1  贰零零伍

'i=2 零壹

'i=3 零贰

'i=0 贰零零伍年零壹月零贰日

Dim i As Integer, iD As Integer

Dim strDT(2) As String, strS As String

Dim strD(0 To 9) As String * 1

strD(0) = "零"

strD(1) = "壹"

strD(2) = "贰"

strD(3) = "叁"

strD(4) = "肆"

strD(5) = "伍"

strD(6) = "陆"

strD(7) = "柒"

strD(8) = "捌"

strD(9) = "玖"

For i = mYMD + (mYMD <> 0) To mYMD + (mYMD <> 0) - (mYMD = 0) * 2

If i = 0 Then

iD = Year(mDATE)

strDT(i) = strD(iD \ 1000) & strD((iD \ 100) Mod 10) & strD((iD \ 10) Mod 10) & strD(iD Mod 10)

Else

If i = 1 Then iD = Month(mDATE) Else iD = Day(mDATE)

If iD > 9 Then strS = "拾" Else strS = ""

strDT(i) = strD(iD \ 10) & strS & strD(iD Mod 10)

If iD > 9 And iD Mod 10 = 0 Then strDT(i) = "零" & Left$(strDT(i), 2)

End If

Next

Select Case mYMD

Case 0

Udate = strDT(0) & "年" & strDT(1) & "月" & strDT(2) & "日"

Case Else

Udate = strDT(mYMD - 1)

End Select

End Function

PHP 打印支票,PHP_支票打印的日期大写问题Access2007,      财务人 - phpStudy相关推荐

  1. PHP 打印支票,HTML_用Access2007解决支票打印的日期大写问题,财务人员都知道,转账支票的 - phpStudy...

    用Access2007解决支票打印的日期大写问题 财务人员都知道,转账支票的出票日期是需要大写的.如果用手写,当然可以直接填写成大写,但如果设计专用软件进行套打,每张支票都在固定位置填写大写会很麻烦, ...

  2. PHP 打印支票,用Access2007解决支票打印的日期大写问题

    财务人员都知道,转账支票的出票日期是需要大写的.如果用手写,当然可以直接填写成大写,但如果设计专用软件进行套打,每张支票都在固定位置填写大写会很麻烦,也没有必要.这里仅以access2007设计为例, ...

  3. 条码打印软件如何添加英文格式日期

    用过中琅条码打印软件的小伙伴都知道,设计标签时,可以通过添加日期时间工具调用本机电脑的时间,中琅条码打印软件的默认日期格式是"yyyy-MM-dd HH:mm:ss",是中文格式的 ...

  4. 条码打印软件如何制作同时包含日期和流水码的条形码

    很多条形码在制作的时候会含有日期或者流水码,也有的条形码是同时包含日期和流水码,有的人使用条码打印软件制作条形码的时候可能不知道如何设置,接下来小编就教大家在条码打印软件中如何制作同时包含日期和流水码 ...

  5. access 打印预览 代码_标签打印软件如何批量打印样品标签

    一般产品在进行大批量生产之前都需要先生产一批样品进行检测,当样品合格率达到了才能大批量的生产产品.或者是从某些地方取一些样品进行检测,如石油样品,土壤样品等等.样品标签就是为了记录下样品名称.样品编号 ...

  6. SAP ABAP打印MM采购发票打印开发

    复制程序应该有部分对象需要自行创建,需要调试,仅供参考 需要打印的模板 程序代码 *&----------------------------------------------------- ...

  7. 条码打印软件如何批量打印快递单 1

    随着快递行业的兴起,也会出现各种各样的快递单,快递单上除了有"收件人""收件人地址""收件人电话"等固定不变的数据,还应该有相对应的可变数据 ...

  8. html打印表格自动分页,Web分页打印 细线表格+分页打印之终极攻略

    Web分页打印 细线表格+分页打印之终极攻略 发布时间:2009-03-01 23:46:40   作者:佚名   我要评论 最近给客户做打印的时候,客户提出打印时不要打印该页面的头,只是打印表格里面 ...

  9. html分页表格中的线条,HTML_Web分页打印 细线表格+分页打印之终极攻略,最近给客户做打印的时候,客 - phpStudy...

    Web分页打印 细线表格+分页打印之终极攻略 最近给客户做打印的时候,客户提出打印时不要打印该页面的头,只是打印表格里面的内容,因为头部有背景和打印按钮,而且要细线表格的那种,我想细线表格不是很简单吗 ...

最新文章

  1. k-d tree树 近邻算法
  2. PNAS:利用long-read生成个人转录组
  3. 干货 | 携程是如何做AB实验分流的
  4. reactjs组件的三大属性之props基本使用及props属性值检验
  5. 轻量级日志采集系统Loki+grafana搭建
  6. spring 测试 事务_Spring陷阱:事务测试被认为是有害的
  7. 每天一点点之vue框架开发 - History 模式下线上路由报404错误
  8. AI 芯片崛起!FPGA 工程师的核心竞争力在哪里?
  9. 右键文件夹没有git clone命令的解决方法
  10. oracle数据泵导入append,ORACLE在Win环境EXPDP和IMPDP数据泵导出导入DMP数据
  11. Lync Server 服务器版本升级
  12. [生存志] 第92节 纵横游说之辞
  13. 【BZOJ1502】【NOI2005】月下柠檬树
  14. base64格式转为二进制流
  15. 电脑清灰记录(惠普暗影精灵5)
  16. erp系统服务器性能指标,ERP系统体检的三大关键指标
  17. 卡片左右滑动 带动任务条滑动 vue
  18. python 爬虫-(2)认识爬虫
  19. ORB-SLAM2 特征点法SLAM 单目 双目 rgbd相机SLAM 单应/本质矩阵恢复运动 小图大图地图优化
  20. Modbus Poll/Slave 模拟器使用教程

热门文章

  1. Python二级考试题目及答案解析(含刷题软件)
  2. 可视化工具solo show
  3. 根据医院编号,查询医院所有科室列表
  4. MATLAB求实数绝对值——abs
  5. 应用篇:三角函数与反三角函数的应用
  6. 2WirelessNetwork
  7. jquery+video 获取视频第一帧做视频封面
  8. Conexant Bt878驱动及视频软件开发
  9. 2023 iapp彩虹网盘云盘系统源码
  10. 一文读懂什么是编程!