vba转.net

2014-01-23 09:32:43 268 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VBA转VB.NET必知：Excel Range.Value转数组的坑与性能优化从VBA迁移到VB.NET开发Excel数据处理时，开发者常遇到Range.Value返回类型不一致、数组下标越界、空值处理等难题。本文从COM互操作原理出发，揭示VBA进程内访问与VB.NET跨进程调用导致的数据形态差异，详解object[,]二维数组的1基索引、CType显式转换以及DBNull判空等关键技巧。同时给出批量读写数组的性能实测数据，帮助你在实际工程中避免逐格读写、提升效率。适合准备迁移旧工具或刚接触VB.NET Excel互操作的新手。阅读详情

Public Function tx(rq As Variant) As Double
dayue = Choose(Month(rq), 0, 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6)
runri = IIf(IsDate(Year(rq) & "-2-29"), 1, 0)
tx = Year(rq) + (Month(rq) - 1) / 12 + (Day(rq) + dayue + runri) / 365 + (Hour(rq) + Minute(rq) / 60) / (365 * 24)
End Function

-------这个vba公式如何转换成vb.net的写法？

...全文

ARTIX-7 GTP 3G-SDI 工程构建与调试实战本文详细介绍了基于ARTIX-7 FPGA和GTP收发器的3G-SDI工程构建与调试实战。从基础概念解析到Vivado工程创建、GTP IP核配置、SDI IP核集成，再到系统集成与时钟域处理，提供了全面的技术指导。文章还分享了调试技巧、常见问题排查方法以及性能验证步骤，帮助开发者快速掌握3G-SDI视频传输技术的实现与优化。阅读详情

550903161

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

78569981 2014-01-26

打赏
举报

多谢wind_cloud2011 再次出手相助！非常感激！

78569981 2014-01-25

打赏
举报

非常感谢wind_cloud2011 ！就是这个意思。另外，我同学问，如果用c#应该如何写这两句： dayue = Choose(Month(rq), 0, 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6) runri = IIf(IsDate(Year(rq) & "-2-29"), 1, 0)

wind_cloud2011 2014-01-25

打赏
举报


  double tt;
        int m;
        public int Choose(int mon)
        {
            switch (mon)
            {
                case 1:
                    m = 0;
                    break;
                case 2:
                    m = 1;
                    break;
                case 3:
                    m = 1;
                    break;
                case 4:
                    m = 2;
                    break;
                case 5:
                    m = 2;
                    break;
                case 6:
                    m = 3;
                    break;
                case 7:
                    m = 3;
                    break;
                case 8:
                    m = 4;
                    break;
                case 9:
                    m = 4;
                    break;
                case 10:
                    m = 5;
                    break;
                case 11:
                    m = 5;
                    break;
                case 12:
                    m = 6;
                    break;
            }
            return m;
        }       
        public double tx(DateTime rq)
        {
            int month = rq.Month;
            int dayue = Choose(month);
            int runri = IsDate(rq.Year + "-2-29") ? 1 : 0;         
            tt = rq.Year + (rq.Month - 1) / 12 + (rq.Day + dayue + runri) / 365 + (rq.Hour + rq.Minute / 60) / (365 * 24);
            return  tt;
        }
        public static bool IsDate(string str)
        {
            if (string.IsNullOrEmpty(str)) return false;
            DateTime date;
            return DateTime.TryParse(str, out date);
        }  
        private void button3_Click(object sender, EventArgs e)
        {   
            string s="2014/11/24 12:30:50";
            DateTime d=Convert.ToDateTime(s) ;
            double db = tx(d);         
        }

78569981 2014-01-24

打赏
举报

多谢楼上两位的回答，但不是我想要的答案啊。rq就是日期啊比如2014/1/24 12:30:50=2014.067136

wind_cloud2011 2014-01-24

打赏
举报


在vb.net里很多与vb差不多
Variant在vb.net里用Object
Day->DateAndTime.Day

        Dim a As Double
        a = tx("2014/1/24  12:30:50")
        Debug.Print(a)

 Public Function tx(ByVal rq As Object) As Double
        Dim dayue, runri
        dayue = Choose(Month(rq), 0, 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6)
        runri = IIf(IsDate(Year(rq) & "-2-29"), 1, 0)
        tx = Year(rq) + (Month(rq) - 1) / 12 + (DateAndTime.Day(rq) + dayue + runri) / 365 + (Hour(rq) + Minute(rq) / 60) / (365 * 24)
    End Function

wind_cloud2011 2014-01-24

打赏
举报

.067136这是秒阿

eaqpi 2014-01-23

打赏
举报

rq是日期吗？希望如何转？ rq的格式是什么？ dim str as string = rq.tostring("yyMMddhhmmss") ,4位年份就用yyyy，分割符随便添。上面就能转换了。如果希望得到日期性，就用CDATE就行了。 dim dt as date =cdate(rq)

wind_cloud2011 2014-01-23

打赏
举报

vb.net 直接有日期函数的

vba转.net

相关推荐