initial untested version with README

src/qdate.app.src

@@ -0,0 +1,12 @@
+{application, qdate,
+ [
+  {description, "Simple Date and Timezone handling for Erlang"},
+  {vsn, "0.0.1"},
+  {registered, []},
+  {applications, [
+                  kernel,
+                  stdlib
+                 ]},
+  {mod, { qdate, []}},
+  {env, []}
+ ]}.

src/qdate.erl

@@ -0,0 +1,78 @@
+-module(qdate).
+
+-export([
+	to_string/1,
+	to_string/2,
+	to_date/1,
+	to_now/1,
+	to_unixtime/1
+]).
+
+%% Exported for API compatibility with ec_date
+-export([
+	format/1,format/2,
+	nparse/1,
+	parse/1
+]).
+
+
+to_string(Format) ->
+	to_string(Format, now()).
+
+to_string(Format, Date) ->
+	ec_date:format(Format,to_date(Date)).
+
+format(Format) ->
+	to_string(Format).
+
+format(Format, Date) ->
+	to_string(Format, Date).
+
+parse(String) ->
+	to_date(String).
+
+nparse(String) ->
+	parse_to_now(String).
+
+to_date(Unixtime) when is_integer(Unixtime) ->
+	unixtime_to_date(Unixtime);
+to_date(DateString) when is_list(DateString) ->
+	ec_date:parse(DateString);
+to_date(Now = {_,_,_}) ->
+	calendar:now_to_datetime(Now);
+to_date(Date = {{_,_,_},{_,_,_}}) ->
+	Date.
+
+
+to_unixtime(Unixtime) when is_integer(Unixtime) ->
+	Unixtime;
+to_unixtime(ToParse) ->
+	Date = to_date(ToParse),
+	calendar:datetime_to_gregorian_seconds(Date).
+
+
+to_now(Now = {_,_,_}) ->
+	Now;
+to_now(ToParse) ->
+	Unixtime = to_unixtime(ToParse),
+	unixtime_to_now(Unixtime).
+
+
+unixtime_to_now(T) when is_integer(T) ->
+	MegaSec = floor(T/1000000),
+	Secs = T - MegaSec*1000000,
+	{MegaSec,Secs,0}.
+
+unixtime_to_date(T) ->
+	Now = unixtime_to_now(T),
+	calendar:now_to_datetime(Now).
+
+floor(N) when N >= 0 ->
+	trunc(N);
+floor(N) when N < 0 ->
+	Int = trunc(N),
+	if
+		Int==N -> Int;
+		true -> Int-1
+	end.
+