VB6.0の関数をC++で使いたい

Question

いまVB6.0のRATE関数をC++で使いたいと考えています。
自分なりに調べてVB6.0でActiveX DLLを作ってみたりしたのですができませんでした。
また、RATE関数と同じ動きをするC++の関数も見当たらず困っています。

どなたかVB6.0の関数をC++で使えるようにする方法か、
RATE関数と同じ動きをするC++の関数をご存知のかたがいましたら教えてください。
宜しくお願いします。

redfox63 · Accepted Answer

_clsRatePtr serv;
これは COMサーバーへのポインタ宣言だと思います
VB6側で作成した COMクラスのことです
_は Cの場合よく付加される修飾ですよね

#import ディレクティブの宣言が上手くいっていないのかも …

aris-wiz · Answer

>支払額が不明な場合の計算式
なるほど。。。

>それともいま作っているプログラムとは別に*.cppで
>DLL（DLL2とします）を作ってDLL2をいま作っているプログラムで
>呼び出すようにすればいいのでしょうか？
Cだとこれがいいでしょう。

No3さんも指摘していますが、CoInitializeは
スレッド毎に呼び出す必要がありますので、スレッドの
アパートメントを考えれば、CoInitializeはDLLの呼び出し側で
DLLの関数を使用する前にコールするのが良いと思います。
DLL側からではスレッド毎にCoInitializeとCoUninitializeを
制御する方法が無いためです。
基本的にはプロセスの開始と終わりでそれぞれコールすれば良いかと。
#COMを使用する関数内に閉じれば出来ない事はありませんが、
#呼び出しすぎるとCoInitializeがエラーを返したりするうえ、
#DLLエントリからの呼び出しはMSが禁止していた気がします。

redfox63 · Answer

Cでとなると クラスが使えないのでつらいでしょうね
VBとのインターフェースにC++で作ったDLLをかませてってことになると思いますよ
AtlBase.hはCComVariantを使うためなので
バリアント型の引数をやめてしまって全部doubleにしちゃうとか
WINAPI側の VARIANT構造体で書き直すとかかなぁ
でも COM関連のイニシャライズとかが問題になるかも

外部に公開する関数は Cリンケージ(extern "C"で修飾)にしておいてやれば良いように思います

redfox63 · Answer

＃Importディレクティブを使って ActiveXDLLを組み込めば使えると思いますよ

VB側で
Public Function myRate(nper As Double, pmt As Double, _
　　pv As Double, Optional fv As Variant = 0, _
　　Optional due As Variant = 0, Optional guess As Variant = 0.1) As Double
    Dim apr As Double
    apr = Rate(nper, pmt, pv, fv, due, guess)
    myRate = apr
End Function
クラスモジュールに記述します
クラス名を clsRateとして DLLを作成します

VC側のAfxStd.hなど プロジェクトの共通ヘッダなどで
#import "DLLのフルパス" no_namespace
#include <atlBase.h> // CComVariant用

VCのイベントハンドラで
　　struct InitCOM {
　　　　InitCOM() { CoInitialize( NULL ); }
　　　　~InitCOM() { CoUninitialize(); }
　　} g_Init;

　　_clsRatePtr serv;
　　HRESULT hr = serv.CreateInstance( __uuidof(  clsRate ) );
　　if ( FAILED( hr ) ) {
　　　　AfxMessageBox( "FAILED" );
　　　　return;
　　}

　　double npr, pmt, pv, apr;
　　// 48回
　　npr = 48.;
　　// 月々 40000返済
　　pmt = -40000.;
　　// 元金 100万円
　　pv = 1000000.;
　　// 計算結果
　　apr = 0.0;
　　CComVariant fv, due, guess;
　　// 残価
　　fv = CComVariant( 0 );
　　// 期首:1/期末:0
　　due = CComVariant( 0 );
　　// 計算開始利率
　　guess = CComVariant( 0.12 );
　　serv->raw_myRate( &npr, &pmt, &pv, &fv, &due, &guess, &apr );
　　// 月レートに直して パーセントに換算
　　apr *= 12 * 100;

　　CString str;
　　str.Format( "%.2lf", apr );
　　AfxMessageBox( str );

と言った具合で使えますよ

aris-wiz · Answer

>RATE関数と同じ動きをするC++の関数も見当たらず困っています
それは、自分で作らないと。。。

>どなたかVB6.0の関数をC++で使えるようにする方法
VBの関数をわざわざ呼び出さなくても、
投資期間を通じての利率を計算する関数を書いた方が早くないですか。。？

http://support.microsoft.com/kb/110854/ja

VB6.0の関数をC++で使いたい

_clsRatePtr serv;

この回答への補足

>支払額が不明な場合の計算式

この回答への補足

Cでとなると クラスが使えないのでつらいでしょうね

この回答への補足

＃Importディレクティブを使って ActiveXDLLを組み込めば使えると思いますよ

この回答への補足

>RATE関数と同じ動きをするC++の関数も見当たらず困っています

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

Cでとなるとクラスが使えないのでつらいでしょうね