主题：关于12进制相减的问题

 弄成日期加减

Dim s1 As String = "2017.03"
Dim s2 As String = "2010.02"
Dim a1 As String() = s1.Split(".")
Dim a2 As String() = s2.Split(".")
Dim d1 As Date = new Date(a1(0), a1(1), 1)
Dim d2 As Date = new Date(a2(0), a2(1), 1)

Dim y,m,d As Integer
DateYMD(d2,d1,y,m,d)
msgbox(y & " " & m & " " & d)

datacolchanged事件

If e.DataCol.name = "第一列" OrElse e.DataCol.name = "第二列" Then
   
    Dim s1 As String = e.DataRow("第一列")
    Dim s2 As String = e.DataRow("第二列")
    Dim a1 As String() = s1.Split(".")
    Dim a2 As String() = s2.Split(".")
    If a1.length = 2 AndAlso a2.length = 2 Then
        Dim d1 As Date = new Date(a1(0), a1(1), 1)
        Dim d2 As Date = new Date(a2(0), a2(1), 1)
        Dim y,m,d As Integer
        DateYMD(d2,d1,y,m,d)
        e.DataRow("第三列") = y & "." & format(m, "00")
    Else
        e.DataRow("第三列") = Nothing
    End If
End If

如果是相加的问题，参考，自己改造

Dim s1 As String = "14.11"
Dim s2 As String = "1.08"
Dim a1 As String() = s1.Split(".")
Dim a2 As String() = s2.Split(".")
Dim d1 As Date = new Date(a1(0), a1(1), 1)
Dim d2 As Date = d1.AddYears(a2(0)).AddMonths(a2(1))
msgbox(format(d2, "yy.MM"))

Dim d1 as Double = 0.6
Dim d2 As integer = 3
Dim s As String = format(d1 * d2, "#.00")
Dim ary() As String = s.split(".")
s = ary(0) & "." & format(ary(1) / 10, "00")
msgbox(s)

参考代码

Select Case e.DataCol.Name
    Case "累计任职年限","标准年限","现时间"
        Dim s1 As String = e.DataRow("累计任职年限")
        Dim s2 As String = e.DataRow("标准年限")
        Dim s3 As String = e.DataRow("现时间")
        If s1 > "" AndAlso s2 > "" AndAlso s3 > "" Then
            Dim a1 As String() = s1.Split(".")
            Dim a2 As String() = s2.Split(".")
            Dim a3 As String() = s3.Split(".")
            Dim d3 As Date = new Date(a3(0), a3(1), 1)
            Dim d1 As Date = d3.AddYears(-a1(0)).AddMonths(-a1(1))
            Dim d2 As Date = d1.AddYears(a2(0)).AddMonths(a2(1))
            e.DataRow("备注") = format(d2, "yy.MM")
        End If
End Select

你先看懂代码啊。

建议，你看完日期的帮助文档

http://www.foxtable.com/webhelp/scr/1337.htm

http://www.foxtable.com/webhelp/scr/1424.htm