' **********************************************************
' シングルクォートで囲む
' **********************************************************
Function Ss( strValue )

	Ss = "'" & strValue & "'"

End Function

' **********************************************************
' ダブルクォートで囲む
' **********************************************************
Function Dd( strValue )

	Dd = """" & strValue & """"

End Function