主题：请问：更新，日期转换出错

以下内容为程序代码:

1 try
2 Dim hc As New HttpClient(UpdatePath & "/update.txt") '/
3 Dim str As String = hc.GetData()
4 Dim ud() As String = str.split("|")'获取文件内容
5 Dim Sdate1 As Date = cdate(ud(0)) '服务器update.txt发布日期
6 Dim Sdate2 As Date = Cdate(ud(1)) '服务器Version.txt发布日期
7 Dim Cdate1 As Date = PublishDate '客户端发布日期
8 Dim Cdate2 As Date = FileSys.ReadAllText(ProjectPath & "\Bin\Version.txt") '客户端Version.txt发布日期
9 If Sdate2 ＞ Cdate2 OrElse Sdate1 ＞ Cdate1 Then
10 msgbox("有新版本")
11 Syscmd.Project.Update()
12 '静默升级代码 Syscmd.Project.Update(False,False)
13 End If
14
15 catch ex As exception
16 msgbox(ex.message)
17 msgbox("下载失败")
18 End try