using System;
using System.Globalization;

namespace Vb6Compat
{
    /// <summary>
    /// VB6 の変換関数互換ライブラリ
    /// </summary>
    public static class Vb6Conversion
    {
        /// <summary>
        /// VB6 の CInt と同じ規則で任意の値を 16bit 整数に変換します。
        /// </summary>
        /// <param name="value">変換する値</param>
        /// <returns>変換後の Int16 値</returns>
        /// <exception cref="InvalidCastException">変換できない値の場合に発生します</exception>
        /// <exception cref="OverflowException">16bit 範囲外の値の場合に発生します</exception>
        /// <remarks>
        /// - 数値は四捨五入して 16bit 範囲に収めます。
        /// - 小数部 .5 は絶対値大きい方向に丸めます。
        /// - Boolean: True=-1, False=0
        /// - 日付は OLE Automation シリアル値に変換して整数化
        /// - Null / DBNull は例外
        /// </remarks>
        public static short CInt(object value)
        {
            if (value == null || value is DBNull)
                throw new InvalidCastException("Null から CInt に変換できません。");

            switch (Type.GetTypeCode(value.GetType()))
            {
                case TypeCode.Boolean:
                    return (bool)value ? (short)-1 : (short)0;

                case TypeCode.DateTime:
                    double oa = ((DateTime)value).ToOADate();
                    return RoundToInt16(oa);

                case TypeCode.String:
                    double d;
                    if (double.TryParse((string)value, NumberStyles.Any, CultureInfo.CurrentCulture, out d))
                        return RoundToInt16(d);
                    throw new InvalidCastException($"文字列 '{value}' を CInt に変換できません。");

                case TypeCode.SByte:
                case TypeCode.Byte:
                case TypeCode.Int16:
                case TypeCode.Int32:
                case TypeCode.Int64:
                case TypeCode.UInt16:
                case TypeCode.UInt32:
                case TypeCode.UInt64:
                case TypeCode.Single:
                case TypeCode.Double:
                case TypeCode.Decimal:
                    return RoundToInt16(Convert.ToDouble(value, CultureInfo.CurrentCulture));

                default:
                    throw new InvalidCastException($"型 {value.GetType()} を CInt に変換できません。");
            }
        }

        private static short RoundToInt16(double value)
        {
            double rounded = Math.Round(value, MidpointRounding.AwayFromZero);
            if (rounded < short.MinValue || rounded > short.MaxValue)
                throw new OverflowException($"値 {value} は CInt の範囲外です。");
            return (short)rounded;
        }
    }
}

Imports System
Imports System.Globalization

''' <summary>
''' VB6 の変換関数互換ライブラリ
''' </summary>
Public Module Vb6Conversion

    ''' <summary>
    ''' VB6 の CInt と同じ規則で任意の値を 16bit 整数に変換します。
    ''' </summary>
    ''' <param name="value">変換する値</param>
    ''' <returns>変換後の Int16 値</returns>
    ''' <exception cref="InvalidCastException">変換できない値の場合に発生します</exception>
    ''' <exception cref="OverflowException">16bit 範囲外の値の場合に発生します</exception>
    ''' <remarks>
    ''' - 数値は四捨五入して 16bit 範囲に収めます。
    ''' - 小数部 .5 は絶対値大きい方向に丸めます。
    ''' - Boolean: True=-1, False=0
    ''' - 日付は OLE Automation シリアル値に変換して整数化
    ''' - Null / Nothing は例外
    ''' </remarks>
    Public Function CInt(ByVal value As Object) As Short
        If value Is Nothing OrElse TypeOf value Is DBNull Then
            Throw New InvalidCastException("Null から CInt に変換できません。")
        End If

        Select Case Type.GetTypeCode(value.GetType())
            Case TypeCode.Boolean
                Return If(CBool(value), CType(-1, Short), CType(0, Short))

            Case TypeCode.DateTime
                Dim oa As Double = CType(value, DateTime).ToOADate()
                Return RoundToInt16(oa)

            Case TypeCode.String
                Dim d As Double
                If Double.TryParse(CStr(value), NumberStyles.Any, CultureInfo.CurrentCulture, d) Then
                    Return RoundToInt16(d)
                End If
                Throw New InvalidCastException($"文字列 '{value}' を CInt に変換できません。")

            Case TypeCode.SByte, TypeCode.Byte, TypeCode.Int16, TypeCode.Int32, TypeCode.Int64,
                 TypeCode.UInt16, TypeCode.UInt32, TypeCode.UInt64, TypeCode.Single, TypeCode.Double, TypeCode.Decimal
                Return RoundToInt16(Convert.ToDouble(value, CultureInfo.CurrentCulture))

            Case Else
                Throw New InvalidCastException($"型 {value.GetType()} を CInt に変換できません。")
        End Select
    End Function

    Private Function RoundToInt16(ByVal value As Double) As Short
        Dim rounded As Double = Math.Round(value, MidpointRounding.AwayFromZero)
        If rounded < Short.MinValue OrElse rounded > Short.MaxValue Then
            Throw New OverflowException($"値 {value} は CInt の範囲外です。")
        End If
        Return CType(rounded, Short)
    End Function

End Module