10/01/14 17:22:10
>>243
% Prolog
'商品売上、1営業日後、3営業日後、比較表示' :-
setof([_id,_name,_date],tableA( _id , 7 , _name , _date , _売上),L1),
write('id, code, name, date, 売上,1営業日後売上,3営業日後売上\n'),
member([_id_1,_name_1,_date_1],L1),
split(_date_1,['-'],L2),
concat_atom(L2,_日付),
一営業日後(_日付,_1営業日後),
三営業日後(_日付,_3営業日後),
データベース日付表現(_1営業日後,_日付1),
データベース日付表現(_3営業日後,_日付3),
findsum(_売上,tableA( _id , 7 , Name , _日付 , _売上),Sum),
findsum(_売上,tableA( _id , 7 , Name , _日付1 , _売上),Sum1),
findsum(_売上,tableA( _id , 7 , Name , _日付3 , _売上),Sum3),
wr('%t,%t,%t,%t,%t,%t\n',[_id_1,7,_name_1,Sum,Sum1,Sum3]),
fail.
'商品売上、1営業日後、3営業日後、比較表示'.
データベース日付表現(_日付,_データベース日付表現) :-
sub_atom(_日付,0,4,_,_年),
sub_atom(_日付,4,2,_,_月),
sub_atom(_日付,6,2,_,_日),
concat_atom([_年,'-',_月,'-',_日],_データベース日付表現).