- Private Sub Command_Click()
- annee = Format(Date, "yyyy")
- mois = Format(Date, "mm")
- jour = Format(Date, "dd")
- hier = jour - 1
- jourselect = Combo1.Text
- moisselect = Combo2.Text
- Me.Caption = Command.Caption
- WMPTV.Controls.stop
-
- If Option1.Value = True Then
- If Hour(Time) < 14 Then
- WMPTV.URL = "http://s.tf1.fr/FluxJt/jt20d" & hier & mois
- End If
- If Hour(Time) > 13 Then
- If Hour(Time) < 21 Then
- WMPTV.URL = "http://s.tf1.fr/FluxJt/jt13d" & jour & mois
- End If
- End If
- If Hour(Time) > 20 Then
- WMPTV.URL = "http://s.tf1.fr/FluxJt/jt20d" & jour & mois
- End If
- End If
- If Option2.Value = True Then
- WMPTV.URL = "http://s.tf1.fr/FluxJt/jt13d" & jourselect & moisselect
- End If
- If Option3.Value = True Then
- WMPTV.URL = "http://s.tf1.fr/FluxJt/jt20d" & jourselect & moisselect
- End If
- End Sub
Private Sub Command_Click()
annee = Format(Date, "yyyy")
mois = Format(Date, "mm")
jour = Format(Date, "dd")
hier = jour - 1
jourselect = Combo1.Text
moisselect = Combo2.Text
Me.Caption = Command.Caption
WMPTV.Controls.stop
If Option1.Value = True Then
If Hour(Time) < 14 Then
WMPTV.URL = "http://s.tf1.fr/FluxJt/jt20d" & hier & mois
End If
If Hour(Time) > 13 Then
If Hour(Time) < 21 Then
WMPTV.URL = "http://s.tf1.fr/FluxJt/jt13d" & jour & mois
End If
End If
If Hour(Time) > 20 Then
WMPTV.URL = "http://s.tf1.fr/FluxJt/jt20d" & jour & mois
End If
End If
If Option2.Value = True Then
WMPTV.URL = "http://s.tf1.fr/FluxJt/jt13d" & jourselect & moisselect
End If
If Option3.Value = True Then
WMPTV.URL = "http://s.tf1.fr/FluxJt/jt20d" & jourselect & moisselect
End If
End Sub