vb.net エクセルから値を引っ張り計算をさせたいです

Question

以下のコードでエクセルから値を呼び出し計算をさせたいのですが、
引いてくる値を確認すると(０．６６６６６６)などと表示されます。
(sh.Range(“G11”).Value)に入っている値は16:00です。

例えば取得した値に対して演算して計算させるプログラムの場合には、
どのような変数を利用すれば宜しいかご指示頂ければ助かります。

プログラム歴は初学者です。
Windows Forms、開発環境はVisual Studioとなります。

Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click

        '変数宣言
        Dim ex As New Microsoft.Office.Interop.Excel.Application
        Dim sh As Microsoft.Office.Interop.Excel.Worksheet
        Dim wb As Microsoft.Office.Interop.Excel.Workbook


        'ファイルオープン
        wb = ex.Workbooks.Open(“D:\NewExcelBook11.xlsx”)
        sh = wb.Sheets(“Sheet2”)

        MsgBox(sh.Range(“G11”).Value)

        ex.Quit()

    End Sub

Comments

[YAmaGNZ]

演算している部分が提示されていないのでとりあえずDateTime型への変換方法を提示しましたが、違うのであればどのような演算をしたいのかを明記されるべきです。

[ogizo]

ご回答ありがとうございます。
DateTime型に変換した(16:00)×時給（1000円）×２４＝16000円などの演算をさせたいです。

Answer 1

エクセルから得られる値はシリアル値となります。
DateTime型に変換したいのであれば、DateTime.FromOADate(Double) メソッドを利用してください。

時給を計算したいのであれば、DateTime型には変換せずにシリアル値を使用したほうがいいかもしれません。
シリアル値は24時間を1とするので、1時間を1とするように変換する必要があります。
この変換は「シリアル値×24」となります。
なので、時給計算は「シリアル値×24×時給」となります。

Comments

[ogizo]

以下のコードを書いて実行してみましたが、
エクセルの値を取得できず２４０００と計算をしてきました。
値を取得するコードに関して訂正箇所があればご教示頂けないでしょうか。

sh.Range(“G11”).Value = sh.Range(“G11”).Value

Dim a As Integer = 24
Dim b As Integer = 1000
Dim c As Integer = sh.Range(“G11”).Value

MessageBox.Show(a * c * b)

[YAmaGNZ]

シリアル値はdoubleとなります。
なのでIntegerの整数型に格納した場合、小数部が丸められて正常な計算が出来なくなります。

[ogizo]

doubleにしたところ計算ができました。
ありがとうございました！