精华内容
下载资源
问答
  • 谁能帮忙用vb写一个阿拉伯数字转换成罗马数字的函数, 谢谢。比如传过来的数是1,给转换成I,传的数字是2,给转换成II
  • {"moduleinfo":{"card_count":[{"count_phone":1,"count":1}],"search_count":[{"count_phone":4,"count":4}]},"card":[{"des":"阿里云数据库专家保驾护航,为用户的数据库应用系统进行性能和风险评估,参与配合进行...

    {"moduleinfo":{"card_count":[{"count_phone":1,"count":1}],"search_count":[{"count_phone":4,"count":4}]},"card":[{"des":"阿里云数据库专家保驾护航,为用户的数据库应用系统进行性能和风险评估,参与配合进行数据压测演练,提供数据库优化方面专业建议,在业务高峰期与用户共同保障数据库系统平稳运行。","link1":"https://www.aliyun.com/service/optimization/database","link":"https://www.aliyun.com/service/chiefexpert/database","icon":"https://img.alicdn.com/tfs/TB1a5ZfonnI8KJjy0FfXXcdoVXa-100-100.png","btn2":"数据库紧急救援服务","tip":"还有更多专家帮助您解决云上业务问题:立即查看","btn1":"云上数据库优化服务","link2":"https://www.aliyun.com/service/databaserescue","title":"数据库专家服务"}],"search":[{"txt":"安全首席专家","link":"https://www.aliyun.com/service/chiefexpert/security"},{"txt":"中间件首席专家","link":"https://www.aliyun.com/service/chiefexpert/middleware"},{"txt":"系统与平台首席专家","link":"https://www.aliyun.com/service/chiefexpert/platform"},{"txt":"存储首席专家","link":"https://www.aliyun.com/service/chiefexpert/storage"}],"countinfo":{"search":{"length_pc":0,"length":0},"card":{"length_pc":0,"length":0}},"simplifiedDisplay":"newEdition","newCard":[{"link":"https://www.aliyun.com/product/rds/mysql","icon":"rds_mysql1","contentLink":"https://www.aliyun.com/product/rds/mysql","title":"云数据库RDS MySQL版","des":"云数据库RDS MySQL版 MySQL 是全球最受欢迎的开源数据库,阿里云MySQL版 通过深度的内核优化和独享实例提供稳定极致的数据库性能,同时灵活的部署架构及产品形态,可满足不同场景下的数据库需求。","btn1":"了解详情","link1":"https://www.aliyun.com/product/rds/mysql","btn2":"管理控制台","link2":"https://rdsnext.console.aliyun.com/#/rdsList/cn-hangzhou/basic/","btn3":"在线咨询","link3":"https://www.aliyun.com/core/online-consult?spm=5176.8789780.7y9jhqsfz.115.47ea55caeL2Mfu&from=OVtXEBmlH8","infoGroup":[{"infoName":"最新活动","infoContent":{"firstContentName":"MySQL 1年仅19.9元","firstContentLink":"https://www.aliyun.com/database/dbfirstbuy#J_9036464270","lastContentName":"ECS+MySQL 0.7元/日","lastContentLink":"https://www.aliyun.com/1111/enterprise"}},{"infoName":"快速入门","infoContent":{"firstContentName":"选型指南","firstContentLink":"https://help.aliyun.com/document_detail/164594.html?spm=a2c4g.11186623.6.551.56b67384ispvvk","lastContentName":"上手指南","lastContentLink":"https://help.aliyun.com/document_detail/26124.html?spm=a2c4g.11174283.2.16.51795b83pbkzav"}},{"infoName":"最佳实践","infoContent":{"firstContentName":"X-Engine的应用场景","firstContentLink":"https://help.aliyun.com/document_detail/148402.html?spm=a2c4g.11186623.2.14.3f592685zjuUxu#concept-2364901","lastContentName":"读写分离功能","lastContentLink":"https://help.aliyun.com/document_detail/96073.html?spm=a2c4g.11174283.2.53.42db5b83VvZvMJ"}},{"infoName":"产品推荐","infoContent":{"firstContentName":"云数据库PolarDB","lastContentName":"云原生数据仓库MySQL","firstContentLink":"https://www.aliyun.com/product/polardb","lastContentLink":"https://www.aliyun.com/product/ads"}}]}],"visual":{"textColor":"dark","topbg":""}}

    {"$env":{"JSON":{}},"$page":{"env":"production"},"$context":{"moduleinfo":{"card_count":[{"count_phone":1,"count":1}],"search_count":[{"count_phone":4,"count":4}]},"card":[{"des":"阿里云数据库专家保驾护航,为用户的数据库应用系统进行性能和风险评估,参与配合进行数据压测演练,提供数据库优化方面专业建议,在业务高峰期与用户共同保障数据库系统平稳运行。","link1":"https://www.aliyun.com/service/optimization/database","link":"https://www.aliyun.com/service/chiefexpert/database","icon":"https://img.alicdn.com/tfs/TB1a5ZfonnI8KJjy0FfXXcdoVXa-100-100.png","btn2":"数据库紧急救援服务","tip":"还有更多专家帮助您解决云上业务问题:立即查看","btn1":"云上数据库优化服务","link2":"https://www.aliyun.com/service/databaserescue","title":"数据库专家服务"}],"search":[{"txt":"安全首席专家","link":"https://www.aliyun.com/service/chiefexpert/security"},{"txt":"中间件首席专家","link":"https://www.aliyun.com/service/chiefexpert/middleware"},{"txt":"系统与平台首席专家","link":"https://www.aliyun.com/service/chiefexpert/platform"},{"txt":"存储首席专家","link":"https://www.aliyun.com/service/chiefexpert/storage"}],"countinfo":{"search":{"length_pc":0,"length":0},"card":{"length_pc":0,"length":0}},"simplifiedDisplay":"newEdition","newCard":[{"link":"https://www.aliyun.com/product/rds/mysql","icon":"rds_mysql1","contentLink":"https://www.aliyun.com/product/rds/mysql","title":"云数据库RDS MySQL版","des":"云数据库RDS MySQL版 MySQL 是全球最受欢迎的开源数据库,阿里云MySQL版 通过深度的内核优化和独享实例提供稳定极致的数据库性能,同时灵活的部署架构及产品形态,可满足不同场景下的数据库需求。","btn1":"了解详情","link1":"https://www.aliyun.com/product/rds/mysql","btn2":"管理控制台","link2":"https://rdsnext.console.aliyun.com/#/rdsList/cn-hangzhou/basic/","btn3":"在线咨询","link3":"https://www.aliyun.com/core/online-consult?spm=5176.8789780.7y9jhqsfz.115.47ea55caeL2Mfu&from=OVtXEBmlH8","infoGroup":[{"infoName":"最新活动","infoContent":{"firstContentName":"MySQL 1年仅19.9元","firstContentLink":"https://www.aliyun.com/database/dbfirstbuy#J_9036464270","lastContentName":"ECS+MySQL 0.7元/日","lastContentLink":"https://www.aliyun.com/1111/enterprise"}},{"infoName":"快速入门","infoContent":{"firstContentName":"选型指南","firstContentLink":"https://help.aliyun.com/document_detail/164594.html?spm=a2c4g.11186623.6.551.56b67384ispvvk","lastContentName":"上手指南","lastContentLink":"https://help.aliyun.com/document_detail/26124.html?spm=a2c4g.11174283.2.16.51795b83pbkzav"}},{"infoName":"最佳实践","infoContent":{"firstContentName":"X-Engine的应用场景","firstContentLink":"https://help.aliyun.com/document_detail/148402.html?spm=a2c4g.11186623.2.14.3f592685zjuUxu#concept-2364901","lastContentName":"读写分离功能","lastContentLink":"https://help.aliyun.com/document_detail/96073.html?spm=a2c4g.11174283.2.53.42db5b83VvZvMJ"}},{"infoName":"产品推荐","infoContent":{"firstContentName":"云数据库PolarDB","lastContentName":"云原生数据仓库MySQL","firstContentLink":"https://www.aliyun.com/product/polardb","lastContentLink":"https://www.aliyun.com/product/ads"}}]}],"visual":{"textColor":"dark","topbg":""}}}

    展开全文
  • 将小写数字转换成大定,也可以将数字以读数的方式显示出来
  • 我们在做数据处理的时候,如果金额很大,阅读起来就非常的不方便,甚至需要自己从左往右的去数数字,个十百千万,非常的不方便,当然你可以选择直接转换成要的单位,其实也可以利用在不改变原始数据的条件下,利用...

    我们在做数据处理的时候,如果金额很大,阅读起来就非常的不方便,甚至需要自己从左往右的去数数字,个十百千万,非常的不方便,当然你可以选择直接转换成要的单位,其实也可以利用在不改变原始数据的条件下,利用条件格式实现,分享如下:

    1、以万为单位显示数值

    选中要设置的数值所在单元格或者区域,设置单元格格式,自定义,输入以下代码:#0!.0,。感叹号是强制显示后面的一个字符的意思,#0!.0,的意思是先将数值缩小1000倍,然后在右侧第一个字符前面加入小数点。

    0f83e61d9dd61d4f0f821bcc97fb7543.png

    2、以万为单位保留两位小数

    如果我们想闲死两位小数,就要费点手脚,首先输入代码:0.00,,.将数值缩小1000*1000倍,然后保留两位小数。再按ctrl+j组合键加上换行符,最后输入百分号将缩小了1000000倍的数值放大100倍,最终缩小了10000倍,设置完成后,单元格选中状态下,在开始选项卡,点击自动换行按钮,百分号就不会显示出来了,这也是一个折中的处理办法,实现保留两位小数的效果。

    f81b9f6b1eb7936c2ffdd31fb31e2207.png

    PS:如果您想学习更多excel知识,也可以私信我们,专业团队,一对一提供数据处理,程序设计,表格制作,图表美观设计等服务,可点击下方了解更多,关注收藏我们

    展开全文
  • VBA编写的将数字转换成EXCEL的列字母,没有EXCEL中列数的限制,相当于数字进制。 可以使用在VB中。
  • 将天文数字转换成中文大写(.Net/C#/VB/T-SQL/Java 实现)C# Code: 复制C#源代码/* .Net/C#/T-SQL/VB/Java 实现: 将天文数字转换成中文大写 最近这里流行这个大写金额转换 我看了几个,感觉思路都不如这个 2000 年...
    将天文数字转换成中文大写(.Net/C#/VB/T-SQL/Java 实现)

    C# Code:
    /* 
    .Net/C#/T-SQL/VB/Java 实现: 将天文数字转换成中文大写 
    最近这里流行这个大写金额转换 
    我看了几个,感觉思路都不如这个 2000 年左右用 VB6 写的: 
    《VB6 之数据格式化对象使用技巧》 
    http://search.csdn.net/Expert/topic/38/38970.xml?temp=.5078089 
    <<精华: 将金额小写转大写的代码可转到亿位>> 
    http://www.dev-club.com/club/bbs/showEssence.asp?id=20684&page=1 
    思路非常简单,且没有任何位数限制! 
    例如: 401,0103,1013 
    读作: 肆佰零壹[亿]零壹佰零叁[万]壹仟零壹拾叁 
    咱们先按每四位一组 从左到右,高位到低位分别"大声朗读"一下: 
    "肆佰零壹" 单位是: "[亿]" 
    "壹佰零叁" 单位是: "[万]" 
    "壹仟零壹拾叁" 单位是 "" (相当于没有单位) 
    很容易发现,每四位: 只有 千位,百位,十位,个位 这四种情况! 
    我们把 [万],[亿] 当作单位就可以了! 
    这就是规律了!简单吧! 
    依据该思路,只用区区不到 50 行代码就可以搞定: 
    只要你能够提供足够多的"单位" 
    任何天文数字都可以正确转换! 
    */ 
     
    namespace Microshaoft 
    { 
        using System; 
     
        public class Util 
        { 
            public static string ConvertNumberToChinese(string x, string[] Nums, string[] Digits, string[] Units) 
            { 
                string S = ""; //返回值 
                int p = 0; //字符位置指针 
                int m = x.Length % 4; //取模 
     
                // 四位一组得到组数 
                int k = (m > 0 ? x.Length / 4 + 1 : x.Length / 4); 
     
                // 外层循环在所有组中循环 
                // 从左到右 高位到低位 四位一组 逐组处理 
                // 每组最后加上一个单位: "[万亿]","[亿]","[万]" 
                for (int i = k; i > 0; i--) 
                { 
                    int L = 4; 
                    if (i == k && m != 0) 
                    { 
                        L = m; 
                    } 
                    // 得到一组四位数 最高位组有可能不足四位 
                    string s = x.Substring(p, L); 
                    int l = s.Length; 
     
                    // 内层循环在该组中的每一位数上循环 从左到右 高位到低位 
                    for (int j = 0; j < l; j++) 
                    { 
                        //处理改组中的每一位数加上所在位: "仟","佰","拾",""(个) 
                        int n = Convert.ToInt32(s.Substring(j, 1)); 
                        if (n == 0) 
                        { 
                            if (j < l - 1 
                                && Convert.ToInt32(s.Substring(j + 1, 1)) > 0 //后一位(右低) 
                                && !S.EndsWith(Nums[n])) 
                            { 
                                S += Nums[n]; 
                            } 
                        } 
                        else 
                        { 
                            //处理 1013 一千零"十三", 1113 一千一百"一十三" 
                            if (!(n == 1 && (S.EndsWith(Nums[0]) | S.Length == 0) && j == l - 2)) 
                            { 
                                S += Nums[n]; 
                            } 
                            S += Digits[l - j - 1]; 
                        } 
                    } 
                    p += L; 
                    // 每组最后加上一个单位: [万],[亿] 等 
                    if (i < k) //不是最高位的一组 
                    { 
                        if (Convert.ToInt32(s) != 0) 
                        { 
                            //如果所有 4 位不全是 0 则加上单位 [万],[亿] 等 
                            S += Units[i - 1]; 
                        } 
                    } 
                    else 
                    { 
                        //处理最高位的一组,最后必须加上单位 
                        S += Units[i - 1]; 
                    } 
                } 
                return S; 
            } 
     
            // 测试程序 
            private static void Main() 
            { 
                //数字 数组 
                string[] Nums = new string[] {"零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖"}; 
                //位 数组 
                string[] Digits = new string[] {"", "拾", "佰", "仟"}; 
                //单位 数组 
                string[] Units = new string[] {"", "[万]", "[亿]", "[万亿]"}; 
     
                Console.WriteLine(ConvertNumberToChinese("1100000013", Nums, Digits, Units)); 
                Console.WriteLine(ConvertNumberToChinese("2100000000", Nums, Digits, Units)); 
                Console.WriteLine(ConvertNumberToChinese("1000000000", Nums, Digits, Units)); 
                Console.WriteLine(ConvertNumberToChinese("40000000013", Nums, Digits, Units)); 
                Console.WriteLine(ConvertNumberToChinese("40000000001", Nums, Digits, Units)); 
                Console.WriteLine(ConvertNumberToChinese("400000010000", Nums, Digits, Units)); 
                Console.WriteLine(ConvertNumberToChinese("40101031013", Nums, Digits, Units)); 
                Console.WriteLine(ConvertNumberToChinese("40101031113", Nums, Digits, Units)); 
                Console.WriteLine(ConvertNumberToChinese("101140101031013", Nums, Digits, Units)); 
                Console.WriteLine(ConvertNumberToChinese("100000001000013", Nums, Digits, Units)); 
                Console.WriteLine(ConvertNumberToChinese("100000001000113", Nums, Digits, Units)); 
                Console.WriteLine(ConvertNumberToChinese("100011003", Nums, Digits, Units)); 
                Console.WriteLine(ConvertNumberToChinese("10010103", Nums, Digits, Units)); 
                Console.WriteLine(ConvertNumberToChinese("10110013", Nums, Digits, Units)); 
                Console.WriteLine(ConvertNumberToChinese("130000", Nums, Digits, Units)); 
                Console.ReadLine(); 
            } 
        } 
    }

    T-SQL UDF Code:
    create function ConvertNumberToChinese(@ varchar(100)) 
    returns varchar(100) 
    as 
    begin 
    --declare @ varchar(100) 
    --set @ = '101140101031013' 
    declare @s varchar(100) 
    set @s = '' 
     
    declare @p integer 
    set @p = 0 
     
    declare @m integer 
    set @m = len(@) % 4 
     
    declare @k integer 
    set @k = len(@)/4 
     
    select @k = @k + 1 
     where @m > 0 
     
    declare @i integer 
    set @i = @k 
     
    while (@i > 0) 
    begin --outer 
       declare @L integer 
       set @L = 4 
     
       select @L = @m 
        where @i = @k and @m != 0 
     
       declare @ss varchar(4) 
       set @ss = substring(@,@p+1,@L) 
     
       declare @ll integer 
       set @ll = len(@ss) 
     
       --inner 
       declare @j integer 
       set @j = 0 
     
       while (@j < @ll) --inner 
       begin --inner 
          declare @n integer 
          set @n = cast(substring(@ss,@j+1,1) as integer) 
     
          declare @num varchar(2)    
          select @num = Num 
            from ( 
                  select 0 as id,'零' as Num 
                  union all select 1,'壹' 
                  union all select 2,'贰' 
                  union all select 3,'叁' 
                  union all select 4,'肆' 
                  union all select 5,'伍' 
                  union all select 6,'陆' 
                  union all select 7,'柒' 
                  union all select 8,'捌' 
                  union all select 9,'玖' 
                 ) Nums 
          where id = @n 
     
          if @n = 0 
          begin 
             select @s = @s + @num 
              where @j < @ll - 1 
                    and cast(substring(@ss,(@j+1)+1,1) as integer) > 0 
                    and right(@ss,1) != @num 
          end 
          else 
          begin 
             declare @jj integer 
             set @jj = 1 
     
             select @jj = @j - 1 
              where @j > 1 
     
             select @s = @s + @num 
              where not (@n = 1 
                         and @j = @ll - 2 
                         and (len(@s) = 0 
                              or right(@s,1) = '零' 
    /* 
                                               (   select Num 
                                                    from 
                                                   ( 
                                                    select 0 as id,'零' as Num 
                                                    union all select 1,'壹' 
                                                    union all select 2,'贰' 
                                                    union all select 3,'叁' 
                                                    union all select 4,'肆' 
                                                    union all select 5,'伍' 
                                                    union all select 6,'陆' 
                                                    union all select 7,'柒' 
                                                    union all select 8,'捌' 
                                                    union all select 9,'玖' 
                                                   ) Nums 
                                                   where id = 0 
                                               ) 
    */ 
                                               ) 
                             ) 
     
             select @s = @s + digit 
               from ( 
                     select 0 as id,'' as digit 
                     union all select 1,'拾' 
                     union all select 2,'佰' 
                     union all select 3,'仟' 
                    ) digits 
              where id = @ll - @j - 1 
     
          end 
          set @j = @j + 1 --inner 
       end --inner 
       set @p = @p + @L 
     
       declare @unit varchar(10) 
       select @unit = Unit 
         from ( 
               select 0 as id,'' as Unit 
               union all select 1,'[万]' 
               union all select 2,'[亿]' 
               union all select 3,'[万亿]' 
              ) Units 
        where id = @i - 1 
     
       if @i < @k 
       begin 
          select @s = @s + @unit 
           where cast(@ss as integer) != 0 
       end 
       else 
       begin 
          set @s = @s + @unit 
       end 
       set @i = @i - 1 -- outer 
    end --out 
    return @s 
    /* 
    --Test: 
    select dbo.ConvertNumberToChinese('1011111112101013') 
    ,dbo.ConvertNumberToChinese('40000000001') 
    ,dbo.ConvertNumberToChinese('400000010000') 
    ,dbo.ConvertNumberToChinese('40101031013') 
    ,dbo.ConvertNumberToChinese('101140101031013') 
    ,dbo.ConvertNumberToChinese('100000001000003') 
    ,dbo.ConvertNumberToChinese('10011003') 
    ,dbo.ConvertNumberToChinese('10010103') 
    ,dbo.ConvertNumberToChinese('10010013') 
    */ 
    end

     
    VB6 Code: 
    《VB6 之数据格式化对象使用技巧》 
    http://search.csdn.net/Expert/topic/38/38970.xml?temp=.5078089 
    <<精华: 将金额小写转大写的代码可转到亿位>> 
    http://www.dev-club.com/club/bbs/showEssence.asp?id=20684&page=1 

    VB.Net Code: 
    可自行将 C# Code 编译成 EXE 后, Reflector 反编译获取 VB.Net/Delphi.Net/IL 等语言源码 

    Java Code:
    public class Class1 
    { 
        public static String ConvertNumberToChinese(String x, String[] Nums, String[] Digits, String[] Units) 
        { 
            String S = ""; //返回值 
            int p = 0; //字符位置指针 
            int m = x.length() % 4; //取模 
     
            // 四位一组得到组数 
            int k = (m > 0 ? x.length() / 4 + 1 : x.length() / 4); 
     
            // 外层循环在所有组中循环 
            // 从左到右 高位到低位 四位一组 逐组处理 
            // 每组最后加上一个单位: "[万亿]","[亿]","[万]" 
            for (int i = k; i > 0; i--) 
            { 
                int L = 4; 
                if (i == k && m != 0) 
                { 
                    L = m; 
                } 
                // 得到一组四位数 最高位组有可能不足四位 
                String s = x.substring(p, p + L); 
                int l = s.length(); 
     
                // 内层循环在该组中的每一位数上循环 从左到右 高位到低位 
                for (int j = 0; j < l; j++) 
                { 
                    //处理改组中的每一位数加上所在位: "仟","佰","拾",""(个) 
                    int n = java.lang.Integer.parseInt(s.substring(j, j+1)); 
                    if (n == 0) 
                    { 
                        if ((j < l - 1) 
                            && (java.lang.Integer.parseInt(s.substring(j + 1, j + 1+ 1)) > 0) //后一位(右低) 
                            && !S.endsWith(Nums[n])) 
                        { 
                            S += Nums[n]; 
                        } 
                    } 
                    else 
                    { 
                        //处理 1013 一千零"十三", 1113 一千一百"一十三" 
                        if (!(n == 1 && (S.endsWith(Nums[0]) | S.length() == 0) && j == l - 2)) 
                        { 
                            S += Nums[n]; 
                        } 
                        S +=  Digits[l - j - 1]; 
                    } 
                } 
                p += L; 
                // 每组最后加上一个单位: [万],[亿] 等 
                if (i < k) //不是最高位的一组 
                { 
                    if (java.lang.Integer.parseInt(s) != 0) 
                    { 
                        //如果所有 4 位不全是 0 则加上单位 [万],[亿] 等 
                        S += Units[i - 1]; 
                    } 
                } 
                else 
                { 
                    //处理最高位的一组,最后必须加上单位 
                    S += Units[i - 1]; 
                } 
            } 
            return S; 
        } 
     
        // 测试程序 
        public static void main(String[] args) throws Exception 
        { 
            //数字 数组 
            String[] Nums = new String[] {"零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖"}; 
            //位 数组 
            String[] Digits = new String[] {"", "拾", "佰", "仟"}; 
            //单位 数组 
            String[] Units = new String[] {"", "[万]", "[亿]", "[万亿]"}; 
     
            System.out.println(ConvertNumberToChinese("111112100113", Nums, Digits, Units)); 
            System.out.println(ConvertNumberToChinese("1100000000", Nums, Digits, Units)); 
            System.out.println(ConvertNumberToChinese("1000000000", Nums, Digits, Units)); 
            System.out.println(ConvertNumberToChinese("40000000013", Nums, Digits, Units)); 
            System.out.println(ConvertNumberToChinese("40000000001", Nums, Digits, Units)); 
            System.out.println(ConvertNumberToChinese("400000010000", Nums, Digits, Units)); 
            System.out.println(ConvertNumberToChinese("40101031013", Nums, Digits, Units)); 
            System.out.println(ConvertNumberToChinese("40101031113", Nums, Digits, Units)); 
            System.out.println(ConvertNumberToChinese("101140101031013", Nums, Digits, Units)); 
            System.out.println(ConvertNumberToChinese("100000001000013", Nums, Digits, Units)); 
            System.out.println(ConvertNumberToChinese("100000001000113", Nums, Digits, Units)); 
            System.out.println(ConvertNumberToChinese("100011003", Nums, Digits, Units)); 
            System.out.println(ConvertNumberToChinese("10010103", Nums, Digits, Units)); 
            System.out.println(ConvertNumberToChinese("10110013", Nums, Digits, Units)); 
            System.out.println(ConvertNumberToChinese("130000", Nums, Digits, Units)); 
     
            //System.in.read(); 
        } 
    }
     
    展开全文
  • 代码如下: ”’ <summary> ”’ 将数据转换为Double数字 ”’ </summary> ”’ ”Obj”></param> ”’ <returns></returns> ”’ <remarks></remarks> Public Shared Function todbl(ByVal Obj As Object) As Double...
  • 首先将固定单元格的数字:41278.3819444444,使用VB函数Format(41278.3819444444,“yyyy/mm/dd hh:mm:ss”),可以转换成2013/1/4 9:10:00,但是我现在不知道用VB的什么函数可以再将日期格式转换回数字格式,求高手...
  • VB 将小写数字金额格式化为大写金额,这一个相比其它的金额数字...本例最终的运行效果如下图所示,用户在金额(大写)处输入小写的数字,可以输入小数点,然后单击其它空白处,程序会自动将小写金额转换成大写状态。
  • vb中如何把科学计数法转换成常规表示的数值 问题点数:0、回复次数:21 楼 回复于 2001-06-28 18:13:36 得分 0 有一个方法是 Dim d As Variant 'Decimal d = CDec(yournumber) Decimal具有28位有效数字,可以胜任1e...

     vb中如何把科学计数法转换成常规表示的数值 问题点数:0、回复次数:2  
    1 楼 回复于 2001-06-28 18:13:36 得分 0   有一个方法是  
      Dim   d   As   Variant   'Decimal  
      d   =   CDec(yournumber)  
      Decimal具有28位有效数字,可以胜任1e28内的数值转换

    转载于:https://www.cnblogs.com/googlegis/archive/2008/11/28/2979174.html

    展开全文
  • VB之文件处理精彩编程-将数字转换成一个有效的时间(2KB)
  • C# Code:/* .Net/C#/T-SQL/VB/Java 实现: 将天文数字转换成中文大写 最近这里流行这个大写金额转换 我看了几个,感觉思路都不如这个 2000 年左右用 VB6 写的: 《VB6 之数据格式化对象使用技巧》 ...
  • 输入阿拉伯数字转换成中文数字 如:输入:52510001 输出:伍仟贰佰伍拾壹万零壹
  • VB数据类型转换函数

    2008-02-28 09:56:00
    Val(x) 将字符串x中的数字转换成数值 Chr(x) 返回以x为ASCII码的字符 Asc(x) 给出字符x的ASCII码值,十进制数 Cint(x) 将数值型数据x的小数部分四舍五入取整 Int(x) 取小于等于x的最大整数 Fix(x) 将数值型数据x的...
  • C# Code:/* .Net/C#/T-SQL/VB/Java 实现: 将天文数字转换成中文大写 最近这里流行这个大写金额转换 我看了几个,感觉思路都不如这个 2000 年左右用 VB6 写的: 《VB6 之数据格式化对象使用技巧》 ...
  • 农历公历转换 vb论文

    2009-09-06 20:16:49
    因此,我借这次毕业设计之机,在辅导老师的指导下,编写了一个可以在VB6下正常运行的日历、计算器多功能应用程序,编程的思路是:先把公、农历的数据用数组查询设置好,再通过算法转换成具体应用。程序应用了不规则...
  • Microsoft.VisualBasic.Strings.StrConv( "aa ",Microsoft.VisualBasic.VbStrConv.Wide,0); //全角到半角 Microsoft.VisualBasic.Strings.StrConv( "aa ",Microsoft.VisualBasic.VbStrConv.Narrow,0);
  • C# Code: .../**//* .Net/C#/T-SQL/VB/Java实现:将天文数字转换成中文大写 最近这里流行这个大写金额转换 我看了几个,感觉思路都不如这个2000年左右用VB6写的: 《VB6之数据格式化对象使用技巧》 ...
  • 本程序演示了如何把数字转换成汉字大写金额, 目前支持到千万位的金额和角、分, 并按平常的读写习惯自动增加 “零”。
  • <br />Str(x) '将数值数据x转换成字符串 Val(x) '将字符串x中的数字转换成数值 Chr(x) '返回以x为ASCII码的字符 Asc(x) '给出字符x的ASCII码值,十进制数 Cint(x) '将数值型数据x的小数...
  • Val函数Val()函数的功能是将一个数据行变量转换成数字长整型变量。我们先看一个例子:按理说结果应该是“11”,为什么会这样?因为两个文本框的数据类型是字符串型,两个字符串相加,这时“+”加号起到连接符的作用...
  • VB 数据类型转换函数集

    千次阅读 2008-04-22 16:03:00
    Str(x) 将数值数据x转换成字符串Val(x) 将字符串x中的数字转换成数值Chr(x) 返回以x为ASCII码的字符Asc(x) 给出字符x的ASCII码值,十进制数Cint(x) 将数值型数据x的小数部分四舍五入取整Int(x) 取小于等于x的...
  • 将16进制的字符串表示形式转换为等效的64位有符号整数,进制的基数,必须为2,8,10 或16。。 如果fromBase为16,则可以将value参数指定的数字加上前缀“0x”或“0X”。 VB代码示例: 'Declaration Public Shared...
  • 内容索引:VB源码,字符措置惩罚,ASCII,字符转换任意字符的ASCII码转换工具,鉴于VB6的源代码,能够把任意字符(数字、字母、汉字)转化ascii码,也能够把ascii码还原最初的字符。转化后的的结果(注:每一个字符之间...
  • Val函数Val()函数的功能是将一个数据行变量转换成数字长整型变量。我们先看一个例子:按理说结果应该是“11”,为什么会这样?因为两个文本框的数据类型是字符串型,两个字符串相加,这时“+”加号起到连接符的作用...
  • 数字转换为19.50之类的字符串,转换为“十九美元和五十美分” 描述 您好所有PSC用户。 我已经更新了我的提交内容,它可以将数字转换为字符串,包括美国格式的值高达9999亿和印度格式的990千万。 感谢您向我发送您...

空空如也

空空如也

1 2 3 4 5 ... 7
收藏数 130
精华内容 52
关键字:

vb转换成数字