社区 › VB › 秒问题

Jeff_M 发表于 2008-9-26 16:32:58

Duh。代码
我不&#039；我们不需要经常转换或绘制Civil
事实上，我&#039；我这样做是为了不&#039；我们不必记住未来项目中的所有符号
I&#039；我越来越老了，记住VBA和CAD的每一个细节一天比一天更具挑战性，哈哈。

Jeff_M 发表于 2008-9-26 17:13:09

这里是#039；这是一个将测量仪DMS转换为Acad弧度的快速工具。需要传递的参数是：
以整数形式表示的方向象限，其中NE=1、SE=2、SW=3和NW=4作为双精度….使用转换器CDbl（txtbox.value）
MM作为双精度…同上Function NEWS2Rads(iDir As Integer, dd As Double, mm As Double, ss As Double) As Double
Dim decDeg As Double
decDeg = ss / 60#
decDeg = (mm + decDeg) / 60#
decDeg = dd + decDeg
Dim pi As Double
Dim radDeg As Double
pi = Atn(1) * 4
radDeg = pi * (decDeg / 180#)
Select Case iDir
    Case Is = 1 'NorthEast
      NEWS2Rads = (pi * 0.5) - radDeg
    Case Is = 2 'SouthEast
      NEWS2Rads = (pi * 1.5) + radDeg
    Case Is = 3 'SouthWest
      NEWS2Rads = (pi * 1.5) - radDeg
    Case Else   'NorthWest
      NEWS2Rads = (pi * 0.5) + radDeg
End Select
      
End Function

Jeff_M 发表于 2008-9-29 01:27:38

谢谢杰夫&nbsp；我没有#039；我整个周末都在电脑前，我就是这么想的&nbsp；明天上班的时候，我会把我的东西通读一遍，看看能不能贴出其他的例子。

Jeff_M 发表于 2008-9-29 03:38:45

无转义字符&#039；vb中的s
eg；str=值（&A）&引用\&引用&引用
只是一个想法。。。。

Jeff_M 发表于 2008-9-29 10:47:40

为了澄清起见，将ss表示为数字除以3600，分钟除以60，然后立即将这些相加，这样会更清楚吗&nbsp；我问的原因是我在重读代码，看到秒被60除了两次，我想；这不对；，但仔细想想，这是对的。

查看完整版本: 秒问题