by hira » 2005年12月23日(金) 20:25
コード: 全て選択
Declare Function sprintf CDECL Lib "crtdll" (str As *Char,format As *Char,...) As Long
#prompt
Dim a As String,b As Double
a=ZeroString(255)
Input b
sprintf(a,"%.2f",b)
Print a
標準で定義されているwsprintf関数は、実数を表す%eや%fが使用できません。
Cランタイムの関数を呼び出すことで実数の操作ができるようにしました。
※リテラル値を直接指定する場合、Double型にキャストしないとうまく動作しません。
(例)
コード: 全て選択
sprintf(a,"%f",1.23 As Double)
[code]Declare Function sprintf CDECL Lib "crtdll" (str As *Char,format As *Char,...) As Long
#prompt
Dim a As String,b As Double
a=ZeroString(255)
Input b
sprintf(a,"%.2f",b)
Print a[/code]
標準で定義されているwsprintf関数は、実数を表す%eや%fが使用できません。
Cランタイムの関数を呼び出すことで実数の操作ができるようにしました。
※リテラル値を直接指定する場合、Double型にキャストしないとうまく動作しません。
(例)[code]sprintf(a,"%f",1.23 As Double)[/code]