function 圓周經緯(x, y, r)
dim j2, w2 '圓周點經緯度
dim ws, wx '圓最上、最下緯度
dim jiaodu, hudu
dim arc
dim ii '迴圈變數
dim wr '緯度間距
dim yjw, yjw1
wr = 111195 '相同經度上，每相差1緯度時相差的距離，公尺
arc = 6371229 '公尺
'r1 = r * cos(5) '角度的鄰邊=斜邊*cos角度
'r1 = r * sin(5) '角度的對邊=斜邊*sin角度
ws = y + r / wr
wx = y - r / wr
'從圓最下偏右6度逆時針，間隔5度
'1度經緯度
yjw = j2 & "," & w2
for ii = 1 to 17
yjw = yjw & " " & j2 & "," & w2
next
'從圓最右側偏上逆時針
'1度經緯度
yjw = yjw & " " & j2 & "," & w2
for ii = 1 to 17
yjw = yjw & " " & j2 & "," & w2
next
'從圓最上側偏左逆時針
'1度經緯度
j2 = 2 * x - j2
yjw = yjw & " " & j2 & "," & w2
for ii = 1 to 17
j2 = 2 * x - j2
yjw = yjw & " " & j2 & "," & w2
next
'從圓最左側偏下逆時針
'1度經緯度
j2 = 2 * x - j2
yjw = yjw & " " & j2 & "," & w2
for ii = 1 to 17
j2 = 2 * x - j2
yjw = yjw & " " & j2 & "," & w2
next
圓周經緯 = yjw
end function
VBA研究 VBA中編寫延時函式
1 一般延時 乙個應用介面需要限制執行速度，需要在迴圈中加個延時函式，這個延時不需要多麼精確，要求有個幾秒延時，網上用的比較多的就是用timer函式編寫，timer是vba自帶的函式，用起來比較方便，一般程式如下 延時程式 sub delay t as single dim time1 as sin...
編寫文件的思路
作為產品經理我們每天要寫的文件可是不少。除了brd mrd prd等我們要寫的正規文件。還包括一些其他無法起名，但我們每天還是要寫的文件。例如我最近在寫個需求概要文件。雖然是需求概要文件，但其實是乙個設計文件，要求產品經理在了解行業形態和公司產品特點的情況下，將公司產品與行業規則結合，創造乙個全新主...
QGraphisView編寫箭頭與圓指向關係
效果圖 qwharrowitem類標頭檔案 ifndef qwharrowitem h define qwharrowitem h include include qwhcircleitem.h class qwharrowitem public qgraphicslineitem explicit...