掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ＶＢ側よりＶＣ側の関数を呼出しＣＨＡＲ型で戻ってきたデータをＶＢ側でＢＹＴＥ型にしたい時は？ (ID:86920)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
'バイナリ2バイト表記の日付データを5バイト(01JAN)表記へ変更する 【宣言】 Private Declare Function ChangeDate Lib "ApFunc" ( _ ByVal lpDate2 As String, _ ByVal lpDate7 As String) As Integer 【機能】 Public Function GetChangeDate( _ ByRef byDate() As Byte, _ ByRef intLength As Integer _ ) As Boolean Dim a_strDate7 As String * 8 '7バイト固定長(日付データ 11NOV04 ) + 1バイトのNULL = 計8バイト Dim byDate2 As Byte '返却値の異常チェック a_intRet = JAL_ChangeDateFormat(byDate(), a_strDate7) If a_intRet <> 0 Then '0:正常／-1:異常 GoTo ERROR_PROC End If お願いします。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.