|
¼¸¸ö³£ÓõÄÉí·ÝÖ¤Ïà¹Øº¯Êý
Public Function SfzToXb(Éí·ÝÖ¤ºÅ As String) As String
Dim i As Integer If Len(Éí·ÝÖ¤ºÅ) = 15 And IsNumeric(Right(Éí·ÝÖ¤ºÅ, 1)) Then
¡¡ i = CInt(Right(Éí·ÝÖ¤ºÅ, 1))
¡¡ If i Mod 2 = 0 Then SfzToXb = "Å®" Else SfzToXb = "ÄÐ"
End If
If Len(Éí·ÝÖ¤ºÅ) = 18 And IsNumeric(mID(Éí·ÝÖ¤ºÅ, 17, 1)) Then
¡¡ i = CInt(mID(Éí·ÝÖ¤ºÅ, 17, 1))
¡¡ If i Mod 2 = 0 Then SfzToXb = "Å®" Else SfzToXb = "ÄÐ"
End If End Function
Public Function SfzToRq(Éí·ÝÖ¤ºÅ As String) As Date
Dim strRq As String
If Len(Éí·ÝÖ¤ºÅ) = 15 Then
¡¡ strRq = mID(Éí·ÝÖ¤ºÅ, 9, 2) & "/" & mID(Éí·ÝÖ¤ºÅ, 11, 2) & "/" & "19" & mID(Éí·ÝÖ¤ºÅ, 7, 2)
¡¡ If IsDate(strRq) Then SfzToRq = CDate(strRq)
End If
If Len(Éí·ÝÖ¤ºÅ) = 18 Then
¡¡ strRq = mID(Éí·ÝÖ¤ºÅ, 11, 2) & "/" & mID(Éí·ÝÖ¤ºÅ, 13, 2) & "/" & mID(Éí·ÝÖ¤ºÅ, 7, 4)
¡¡ If IsDate(strRq) Then SfzToRq = CDate(strRq)
End If End Function
'³¤Éí·ÝÖ¤µ½¶ÌÉí·ÝÖ¤
Public Function LSfzToS(Sfz As String) As String
¡¡LSfzToS = Left(Sfz, 6) & mID(Sfz, 9, 9)
End Function
--------------------------------------------------------------------------------
Ïà¹ØÎÄÕÂ
½«15µÄÉí·ÝÖ¤ºÅÉýΪ18λµÄº¯Êý 2003-10-18 10:00:59
|
