- 博客(2)
- 资源 (3)
- 收藏
- 关注
原创 VB中数字转金额
//* 功能: 金额小写转换为大写 调用参数:jesj...人民币小写金额//* 返回变量: name..人民币大写金额Public Function Fun_Jezh(Jesj As Double) As String Dim Name1$, Name2$, Mje1$, Name$ Dim len_mje1%, k%, Ws%, j%, ws1%, m% Dim
2005-02-27 19:14:00 1472
原创 VB中使用EXCEL
Private Sub cmdSwatch_Click()Dim xls As excel.ApplicationDim xlbook As excel.WorkbookOn Error GoTo exlErrorDim i As Integer If Dir(Text1.Text) If MsgBox("文件已存在,是否覆盖!", vbYesNo + vbQuest
2005-02-01 13:22:00 1030
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人