十进制度分秒lisp函数_度分秒转换十进制度之Excel实现

我们都知道&＃xff0c;1°&＃61;60′&＃xff0c;1′&＃61;60″&＃xff0c;1°&＃61;3600″。

那么&＃xff0c;轻而易举容易计算&＃xff1a;112°18′37.6″&＃61;112&＃43;18/60&＃43;37.6/3600≈112.3104444°

这当然是有参考价值的&＃xff0c;比如爬下一张只有度分秒形式的经纬度表格&＃xff0c;但是&＃xff0c;我们的GIS软件只认十进制度(原因无非就是十进制好算)&＃xff0c;那么通过Excel的字符串操作函数&＃xff0c;就可以轻松转换为十进制度。

【注意】伸手党(划掉)急着要结果的同学可以看第4小节&＃xff0c;拉最后有完整的公式给出&＃xff0c;不必看1、2、3小节这些过程。

1 预备知识(三个函数)

1.1 FIND()函数

FIND函数可以找到某个字符(串)在指定字符串的哪里。

我们说&＃xff0c;CHINA中字母N在第4个&＃xff0c;那么

4&＃61;FIND("N","CHINA")

如果CHINA在单元格A1&＃xff0c;那么

4&＃61;FIND("N",A1)

// FIND函数还有第三个参数&＃xff0c;此处不讨论

即得出结论&＃xff1a;

I &＃61;FIND(S,D)

I——S在D的位置

S——查找的字符()串

D——被查找的字符串

1.2 LEFT()函数

LEFT()函数可以获取从左边开始数的第n个字符&＃xff0c;通俗点讲就是在第n个处切开&＃xff0c;前n个留下形成结果字符串&＃xff0c;其他的扔了。即&＃xff1a;

LEFT("CHINA", 3)&＃61;"CHI"

LEFT("CHINA", 1)&＃61;"C"

1.3 MID()函数

与LEFT类似&＃xff0c;从左往右第i个起算&＃xff0c;取j个&＃xff0c;头和尾不要了。

MID("CHINA",3,2)&＃61;"IN"

MID("CHINA",1,4)&＃61;"CHIN"

2. 提取度&分&秒的数值

OK&＃xff0c;有了上部分的预备&＃xff0c;那么我们就要对[112°18′37.6″]中括号内的字符串进行切割&＃xff0c;把度分秒分别切出来。

首先&＃xff0c;我们要获取°号、′号、″号的位置&＃xff1a;

A1&＃61;112°18′37.6″

A2&＃61;FIND("°", A1) //结果是4

A3&＃61;FIND("′", A1) //结果是7

A4&＃61;FIND("″", A1) //结果是12,小数点也占一位字符

然后&＃xff0c;使用LEFT取到度(注意是到°号之前的2&＃xff0c;不是到度号)&＃xff1a;

B1&＃61;LEFT(A1,A2) //结果错误&＃xff0c;是112°&＃xff0c;并不是我们想要的112

B1&＃61;LEFT(A1,A2-1) //结果是112

用MID取到分的数值。

注意&＃xff0c;起点不是°号了&＃xff0c;是度号往右一个&＃xff0c;即A2&＃43;1。

要取多少个数字呢&＃xff1f;这里分的数值是两位&＃xff0c;则A3-A2-1刚好是2&＃xff1a;

B2&＃61;MID(A1,A2&＃43;1,A3-A2-1) //结果是18

用MID取到秒的数值(起点数字&＃xff0c;和取长&＃xff0c;与分的数值同理)&＃xff1a;

B3&＃61;MID(A1,A3&＃43;1,A4-A3-1) //结果是37.6

如果不太能理解A3-A2-1为啥刚好是分的数值的位数&＃xff0c;自己稍微动一下脑筋就想出来了&＃xff0c;用位数的顺序相减呗。

3. 拼接

这一步就简单了&＃xff0c;使用简单的数学四则运算&＃xff1a;

C1&＃61;B1&＃43;B2/60&＃43;B3/3600 //结果是112.3104444

4. 整合所有公式到一个单元格

分步列公式是为了清晰过程&＃xff0c;实际只需要一个单元格就可以计算&＃xff0c;总结一下&＃xff1a;

十进制度&＃61;取度&＃43;取分/60&＃43;取秒/3600

&＃61;B1 &＃43; B2/60 &＃43; B3/3600

&＃61;LEFT(A1,A2-1) &＃43; MID(A1,A2&＃43;1,A3-A2-1) &＃43; MID(A1,A3&＃43;1,A4-A3-1)&＃61;LEFT(A1, FIND("°", A1)-1)

&＃43;MID(A1, FIND("°", A1)&＃43;1, FIND("′", A1)-FIND("°", A1)-1)/60

&＃43;MID(A1, FIND("′", A1)&＃43;1, FIND("″", A1)-FIND("′", A1)-1)/3600

如果不写成换行&＃xff0c;那么结果就会是&＃xff1a;

//A1是度分秒形式的坐标值单元格&＃61;LEFT(A1, FIND("°", A1)-1) &＃43; MID(A1, FIND("°", A1)&＃43;1, FIND("′", A1)-FIND("°", A1)-1)/60 &＃43; MID(A1, FIND("′", A1)&＃43;1, FIND("″", A1)-FIND("′", A1)-1)/3600

如下图所示&＃xff1a;