利用Excel实现度分秒转换十进制度

一、提取度、分、秒的数值

首先,我们要获取°号、′号、″号的位置:

A1=34°56′1″
A2=FIND("°", A1) //结果是3
A3=FIND("′", A1) //结果是6
A4=FIND("″", A1) //结果是8


	

然后,使用LEFT取到度(注意是到°号之前的4,不是到度号):

A6=LEFT(A1,A2)     //结果错误,是34°,并不是我们想要的34
A7=LEFT(A1,A2-1)  //结果是34



用MID取到分和秒的数值。 

A8=MID(A1,A2+1,A3-A2-1) //结果是56

A9=MID(A1,A3+1,A4-A3-1) //结果是1

二、拼接

C1=A7+A8/60+A9/3600

三、整合后的总公式:

function=LEFT(A1, FIND("°", A1)-1) + MID(A1, FIND("°", A1)+1, FIND("′", A1)-FIND("°", A1)-1)/60 + MID(A1, FIND("′", A1)+1, FIND("″", A1)-FIND("′", A1)-1)/3600

 利用Excel实现度分秒转换十进制度_第1张图片

 

你可能感兴趣的:(GIS)