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