1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
|
--date and time functions
module(..., package.seeall)
require("posix")
--global for date formating see below for more information
--Mon Nov 26 19:56:10 UTC 2007 looks like most systems use this
--print(os.date(date.format))
format = "%a %b %d %X %Z %Y"
months ={ {"January","Jan"},
{"February", "Feb"},
{"March","Mar"},
{"April", "Apr"},
{"May","May"},
{"June","Jun"},
{"July","Jul"},
{"August","Aug"},
{"September","Sep"},
{"October","Oct"},
{"November","Nov"},
{"December","Dec"}
}
revmonths = {["January"] = 1, ["Jan"] = 1,
["February"] = 2, ["Feb"] = 2,
["March"] = 3, ["Mar"] = 3,
["April"] = 4, ["Apr"] = 4,
["May"] = 5,
["June"] = 6, ["Jun"] = 6,
["July"] = 7, ["Jul"] = 7,
["August"] = 8, ["Aug"] = 8,
["September"] = 9, ["Sep"] = 9,
["October"] = 10, ["Oct"] = 10,
["November"] = 11, ["Nov"] = 11,
["December"] = 12, ["Dec"] = 12
}
dow = { {"Sunday","Sun"},
{"Monday","Mon"},
{"Tuesday","Tue"},
{"Wednesday","Wed"},
{"Thursday","Thu"},
{"Friday","Fri"},
{"Saturday","Sat"}
}
revdow = { ["Sunday"] = 1, ["Sun"] = 2,
["Monday"] = 2, ["Mon"] = 2,
["Tuesday"] = 3, ["Tue"] = 3,
["Wednesday"] = 4, ["Wed"] = 4,
["Thursday"] = 5, ["Thu"] = 5,
["Friday"] = 6, ["Fri"] = 6,
["Saturday"] = 7, ["Sat"] =7
}
--os.time() will give seconds since 1970-epoch
--os.date() will give formated time strings
--os.time{year=2007,month=1,day=1,hour=2,min=1,sec=1}
--os.date(date.format,os.time())
--give me a table
--t = { {year=2007,month=1,day=2,hour=2}, {year=2006,month=1,day=5} }
function date_to_seconds (t)
g = {}
count = table.maxn(t)
for i = 1,count do
g[#g+1] = os.time(t[i])
end
table.sort(g)
--will return a table sorted by oldest <-> newest
return g
end
-- the reverse of date_to_seconds. expecting a table of seconds
--format can be changed. This seems to be standard, dow,mon,dom,time,zone,year
-- seems like %z- +0000 time zone format and %Z- 3 letter timezone undocumented or new
function seconds_to_date (t)
g = {}
count = table.maxn(t)
for i = 1,count do
g[#g+1] = os.date(format,t[i])
end
return g
end
--give dates in seconds and gives the difference in years,months,days,...
--still working on this one. YEAR-1970 is what it needs
function date_diff (d1, d2)
sum = d1 - d2
if sum > 0 then
t1,t2 = d1,d2
else
t1,t2 = d2,d1
end
return t1,t2
end
--give a search number and return the month name
function num_month_name (search)
return months[search][1]
end
--give a search number and return the month abr
function num_month_name_abr (search)
return months[search][2]
end
function name_month_num (search)
return revmonths[search]
end
function abr_month_num (search)
return revmonths[search]
end
function num_dow_full (search)
return dow[search][1]
end
function num_dow_abr (search)
return dow[search][2]
end
function name_dow_full (search)
return revdow[search]
end
function name_dow_abr (search)
return revdow[search]
end
|
