// *********************************************************
// 文字列数値を double に変換する
// 戻り値 : 変換できない場合は 0
// *********************************************************
double A2Double( LPTSTR lpValue )
{
	_variant_t vData;
	double nWork;

	vData.operator = ( lpValue );
	try {
		nWork = vData.operator double ();
	}
	catch ( _com_error e ) {
		nWork = 0;
	}

	return nWork;
}

// *********************************************************
// double を文字列に変換する
// 戻り値 : 変換できない場合は 0
// 有効数字桁数 15 桁を目安に 指数表現になります
// *********************************************************
void Double2A( double nWork, LboxString *LWork )
{
	_variant_t vData;

	vData.operator = ( nWork );
	_bstr_t bstrWork;
	bstrWork.operator = ( vData );
	LWork->operator = ( (LPTSTR)bstrWork );

}