依座標及時區計算日出及日落時間的 DLL 檔

引用方式非常簡單 , 如下:

unit Utility;

interface

uses
Forms, SysUtils, DateUtils;

type

TLong = Record
DTp: String; // E or W
Deg: Word;
Min: Word;
Sec: Word;
end;

TLati = Record
DTp: String; // N or S
Deg: Word;
Min: Word;
Sec: Word;
end;

TSunData = Record
Long: TLong; //Latitude
Lati: TLati; //Latitude
Shift: Extended; // GMT Zoon 12 ~ -12 (Taiwan 8)
SRise: Array[0..364] of String; // SunRise Day From 1 to 365
SSet: Array[0..364] of String; // SunSet Day From 1 to 365
end;

procedure GetSunTime(var SunData: TSunData);
StdCall; external 'LSunTime.dll'

implementation

end.

附加檔案：4ebc8df40a906_LSuntime.rar

編輯記錄