[

define_tag:'lp_date_getLocalTimeZone',
	-description='Returns the timezone offset for the local server.  Optionally may specify a date to take DST into account.',
	-priority='replace',
	-optional='date',-copy;

	// does not have a -long option, like it's Lasso counterpart [Date_GetLocalTimeZone]

	if: !(local_defined:'date');
		local:'date' = date;
	/if;

	if: #date->type != 'date';
		#date = lp_date_stringtodate: (string: #date);
	/if;

	if: (lp_date_serverDST: date) && (lp_date_serverDST: #date); // if same, easy
		return: (lp_date_stringToOffset: Date_GetLocalTimeZone);
	else: !(lp_date_serverDST: date) && !(lp_date_serverDST: #date); // if same, easy
		return: (lp_date_stringToOffset: Date_GetLocalTimeZone);
	else: (lp_date_serverDST: date) && !(lp_date_serverDST: #date); // server in DST, date is not

		local:'hour' = (lp_date_stringToOffset: Date_GetLocalTimeZone, -map)->(find:'hours');
		#hour -= 1; // correct for DST
		local:'minute' = (lp_date_stringToOffset: Date_GetLocalTimeZone, -map)->(find:'minutes');

		// return offset with DST taken into account
		return: (lp_date_stringToOffset: (string:#hour) (lp_string_pad: #minute,2));

	else; // !(lp_date_serverDST: date) && (lp_date_serverDST: #date); //server not in DST, date is
	
		local:'hour' = (lp_date_stringToOffset: Date_GetLocalTimeZone, -map)->(find:'hours');
		#hour += 1; // correct for DST
		local:'minute' = (lp_date_stringToOffset: Date_GetLocalTimeZone, -map)->(find:'minutes');

		// return offset with DST taken into account
		return: (lp_date_stringToOffset: (string:#hour) (lp_string_pad: #minute,2));

	/if;

/define_tag;

]