私が欲しいのは、データベース内の数量をピースから取得し、それをダースに変換することです。次に、ダースとして入力し、断片に変換して、データベースに再度保存します。
データを入力するとき。10.3、それは私にとって123ピースに変換されるはずです((10 * 12)+ 3)。私のコードは「If句」がなくてもうまく機能しますが、データが「単一」タイプの場合に限ります。整数を入力するとエラーが発生したため、最初に「If ..」ステートメントを追加してチェックしました。これで、整数の出力は正しくなりましたが、単一の数値を入力すると正しくなくなりました。
私はこのコードを持っています。
Function DzToPcs(val)
'If CLng(val) = val then <-- not work
'if Fix(val) <> val then <-- work but the output was not correct when input single type number.
if Int(vInt) = vInt then <-- work but the output was not correct when input single type number.
DztoPcs = val * 12
else
strInt = Cstr(val)
a = Split(strInt,".")
dz = a(0)
pcs = a(1)
getdz = Cint(dz)
getpcs = Cint(pcs)
DztoPcs = (getdz * 12) + getpcs
end if