怎么区分公式，是“IAPWS-IF97”还是“IFC67”?

uesoft

怎么区分使用哪个公式，是“IAPWS-IF97”还是“IFC67”?

使用VB函数调用SETSTD_WASP(ByVal STDID As Long)设置公式：

SETSTD_WASP(67)设置IFC67公式,

SETSTD_WASP(97)设置IAPWS-IF97公式,

使用函数调用SETSTD_WASP(int STDID)设置公式：

SETSTD_WASP(67)设置IFC67公式,

SETSTD_WASP(97)设置IAPWS-IF97公式,

使用VB函数调用GETSTD_WASP(ByRef STDID As Long)获得公式：

GETSTD_WASP(STDID)，若STDID=67，则为IFC67公式；若STDID=97，IAPWS-IF97公式。

使用函数调用GETSTD_WASP(int * STDID)获得公式：

GETSTD_WASP(STDID)，若STDID=67，则为IFC67公式；若STDID=97，IAPWS-IF97公式。

[此贴子已经被作者于2007-2-9 14:47:54编辑过]

小丁

 多谢提醒，还真没太注意那

非常感谢fordao。你是正确的！已经按照你的代码修改如下：

C++中要得到返回值需用指针. 所以将uesoft.cpp中的GETSTD_WASP改为:
void GETSTD_WASP(int * STDID)
{
if (BLIF97==false)
*STDID=67;
else
*STDID=97;
}

在uesoft.h中将其声明改为:
extern "C" void _stdcall GETSTD_WASP(int* STDID);//_stdcall 可适用于包括Windows Mobile在内的所有平台。

并修改了所有VC++6.0/EVC++4.0/VB6.0/Excel VBA源代码及其动态连接库。请下载使用。

uesoft

感谢fordao。你是正确的！按照你说的修改如下：

C++中要得到返回值需用指针. 所以将uesoft.cpp中的GETSTD_WASP改为:
void GETSTD_WASP(int * STDID)
{
if (BLIF97==false)
*STDID=67;
else
*STDID=97;
}

在uesoft.h中将其声明改为:
extern "C" void _stdcall GETSTD_WASP(int* STDID);//_stdcall 声明确保Windows Mobile下也能调用。

uesoft

以下是引用WASPCN在2007-2-10 10:10:48的发言：

SETSTD_WASP函数我做过详细测试，不会有什么问题。

SETSTD_WASP(97)和SETSTD_WASP(67)可以交替使用的！

SETSTD_WASP是正确的，可是GETSTD_WASP(int STDID)错了，可能是我们的VC++程序员改错了。keng是正确的，我们已经按keng做法修正过来了。