vb.netdc的简单介绍

vb.net中怎么根据日期算出是周几呢？

Public Function IsRunnian(ByVal n As Integer) As Boolean

        Dim res As Boolean

        res = False

        If n Mod 400 = 0 Then

            res = True

        End If

        If (n Mod 100  0) And (n Mod 4 = 0) Then

            res = True

        End If

        IsRunnian = res

    End Function

Public Function Fc(ByVal td As Date) As Byte

    Dim y As Integer

    Dim m As Integer

    Dim d As Integer

    Dim yc As Integer

    Dim mc As Integer

    Dim dc As Integer

    y = Year(td)

    m = Month(td)

    d = Day(td)

    

    dc = d

    If IsRunnian(y) Then

       mc = Val(Mid("512503514624", m, 1))

    Else

       mc = Val(Mid("622503514624", m, 1))

    End If

    yc = ((y Mod 100) \ 4 + (y Mod 100)) Mod 7

    

    Fc = (yc + mc + dc) Mod 7

End Function

相关问答

Q1: VB.net 和C#.net 各有什么优缺点

C#.net优点：

运算符重载。不安全代码（指针和固定内存区）、 无符号整数、移位运算。

VB的优点： 

即时编译、静态事件绑定、条件异常捕获、COM兼容类、宽松的类型检查和变量声明、Visual Basic Runtime库、可选参数、带参数属性、模块等语言特征、动态数组。

通过VB.NET开发好的程序绝对没有问题（包括Direct X游戏开发）。虽然VB.NET的资料少，但是只要C#支持的VB.NET都支持（大体上这样，因为都要经过MSIL中间环节。除了指针之类的VB.NET不支持C#支持，但是没有多大实际用处）。

vb.net的资料以英文资料居多（只有英文资料才有看头，中国的没有什么好资料），得看看英文水平过不过关。还有VB.NET的ide也比C#的IDE好得多，代码看得也舒服。（C#的大括号｛｝太烦人）。

至于VB6对C的帮助，只是理解上会容易一些，其它用处不大。有VB6的基础学VBNET会方便一些，但是并不是会VB6就会VB.NET，它们差别也不小。

扩展资料：

NET、C#和ASP.NET之间的区别 ：

1、NET是一个平台，一个抽象的平台的概念。

NET 平台其本身实现的方式其实还是库，抽象层面上来看是一个平台。

基本可以理解的NET核心就是NETFramwork。

NETFramework包括两个关键组成元素：

a. CommonLanguageRuntime，公共语言运行时（CLR0）-提供内在管理，代码安全性检测等功能。

b. NETFrameworkClassLibrary，.NET 框架类库（FLC）-提供大量应用类库，提高开发效率。

学习NET Framework 是所有.NET开发人员都必须的，否则开发NET程序永远都是停留在‘外功’的招式，NETramework 是NET开发高手的‘内功’修行之一。

2、C#是一个程序设计语言，仅仅是一个语言。

程序设计语言仅仅是为了方便开发人员和计算机沟通的工具，虽然 C#语法相对 C 和 C+要多一些，但是相对来看 C#语法都比较固定，这样使用起来却都很容易。我认可一位朋友说的，C#的语法更严谨！

这里回过来看看NET和C#的关系，不得不提的是NET程序的执行过程。

C#符合NETCLR 中的公共语言运行规范。CLS:commonlanguagespecification，当然所有的NET Language 都是符合这个规范的例如：VB.NET、XAML 和 C++/CL等等。

C#需要符合NETCLS，是因为NETCLR和JAVA虚拟机类似，有一个中间语言共机器来执行。所有不同语言的.NET代码在执行前会被编译成同样的中间语言(MSIL)，所以所有NET 支持语言都必须符合符合CLS 规范。

P.S：如果做.NET3.0XAML开发的朋友，可以尝试下ildasm.exe看看XAML的应用程序，会发现原来 XAML其实很简单。

3、ASP.NET是一个网站开发的技术，仅仅是.NET框架中的一个应用模型。

用微软公司ASP.NET快速入门中的一句话来解释，ASP.NET是用于生成基于Web的应用程序的内容丰富的编程框架。

ASP.net 和C#的区别：

编写asp.net通常包括两部分的代码:网页层和后台处理层，网页就是用标记语言来写的，而网页对应的后台处理程序则需要.net语言来完成，目前主要是采用c#和vb.net。

可以说整个的asp.net网站通过c#或者vb.net来实现。而c#则是ms .netframework的主要语言，可以用在网站，桌面应用等方面。可以算是一种比较流行的编程语言。

Q2: Vb.NET行数据转换成列数据

      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        DataGridView1.Columns.Clear()

        DataGridView1.DataSource = GetDateTable("1|2|3,张三|李四|王五,1111111|2222222|3333333", "编号|姓名|卡号")

    End Sub

    Function GetDateTable(ByVal s As String, ByVal TabNames As String) As DataTable

        Dim tb As New DataTable

        Dim ss() As String = s.Split(",")

        Dim tc() As String = TabNames.Split("|")

        Dim c As Integer

        For Each i As String In ss

            Dim ts() As String = i.Split("|")

            Dim dc As DataColumn

            If c  tc.Length Then

                dc = New DataColumn(tc(c))

            Else

                dc = New DataColumn

            End If

            tb.Columns.Add(dc)

            For j As Integer = 0 To ts.Length - 1

                If j  tb.Rows.Count - 1 Then

                    tb.Rows.Add(tb.NewRow)

                End If

                tb.Rows(j)(dc) = ts(j)

            Next

            c += 1

        Next

        Return tb

    End Function

Q3: VB.net 将图片选入内存dc

你试试行不行

Dim bt As Bitmap = New Bitmap(456, 456)

Dim dcObject As Integer = bt.GetHbitmap().ToInt32()

Q4: vb.net 对固定坐标取色

Using b As New Bitmap(1, 1)

Using g As Graphics = Graphics.FromImage(b)

g.CopyFromScreen(New Point(300, 300), New Point, New Size(1, 1))

PictureBox1.BackColor = b.GetPixel(0, 0)

End Using

End Using

复制当前屏幕左上角位置（300,300）的一个点，取其颜色

vb.netdc的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于、vb.netdc的信息别忘了在本站进行查找喔。