求救：：有关Variant的问题

[xy21yue]

完善VarToSocVar //VC Variant类到自定义SockectVariant之前的转换


class SockectVariant
{
public:
VARTYPE m_nType; //类型
LONG m_nSize; //长度
BYTE * m_pBytes; //内容，以二进制存储

SockectVariant
{
m_nType=VT_EMPTY;
m_nSize=0;
m_pBytes=NULL;
}

VarToSocVar(_variant_t vVar)
{
m_nType=vVar.vt;

switch (m_nType)
{

case VT_R4: // ?????
case VT_DATE:// ?????
该如何写

break;
}
}

}