j'utilise pas outlook mais ça doit pas être sorcier
sachant que 1 semaine = 7jours,....
DateDiff, Date.DaysInMonth, ....
"olivier" wrote in message news:
bonjour,
comment faire pour calculer les périodicité d'un RDV
comment fait Outlook pour calculer toutes les variantes qu'il propose ? c'est un mystère pour moi :-(
merci
Gillard
et en plus voici pour calculer la saison par rapport a une date
Function saison(ByVal UneDate As String) As String Dim num As Int32 = 0 Dim z As Date Try If Date.TryParse(UneDate, z) Then num = z.DayOfYear Select Case num Case Is < 1 Return "error" MsgBox(num) Case Is < 81 If num > 0 Then Return "hiver" End If Case Is < 173 If num > 80 Then Return "printemps" End If Case Is < 265 If num > 172 Then Return "été" End If Case Is < 356 If num > 264 Then Return "automne" End If Case Is < 367 If num > 355 Then Return "hiver" End If Case Else Return "error" End Select Else Return "error" End If Catch ex As Exception Debug.Fail(ex.Message) End Try
End Function
"Gillard" <gillard_georges@@@@@@@@@hotmail.com> wrote in message news:OsC#
j'utilise pas outlook mais ça doit pas être sorcier
sachant que 1 semaine = 7jours,....
DateDiff, Date.DaysInMonth, ....
"olivier" wrote in message news:
bonjour,
comment faire pour calculer les périodicité d'un RDV
comment fait Outlook pour calculer toutes les variantes qu'il propose ? c'est un mystère pour moi :-(
merci
et en plus voici pour calculer la saison par rapport a une date
Function saison(ByVal UneDate As String) As String
Dim num As Int32 = 0
Dim z As Date
Try
If Date.TryParse(UneDate, z) Then
num = z.DayOfYear
Select Case num
Case Is < 1
Return "error"
MsgBox(num)
Case Is < 81
If num > 0 Then
Return "hiver"
End If
Case Is < 173
If num > 80 Then
Return "printemps"
End If
Case Is < 265
If num > 172 Then
Return "été"
End If
Case Is < 356
If num > 264 Then
Return "automne"
End If
Case Is < 367
If num > 355 Then
Return "hiver"
End If
Case Else
Return "error"
End Select
Else
Return "error"
End If
Catch ex As Exception
Debug.Fail(ex.Message)
End Try
End Function
"Gillard" <gillard_georges@@@@@@@@@hotmail.com> wrote in message
news:OsC#a7m5IHA.4560@TK2MSFTNGP04.phx.gbl...
j'utilise pas outlook mais ça doit pas être sorcier
sachant que 1 semaine = 7jours,....
DateDiff, Date.DaysInMonth, ....
"olivier" <aa@aa.fr> wrote in message
news:Oh60Wbm5IHA.4352@TK2MSFTNGP03.phx.gbl...
bonjour,
comment faire pour calculer les périodicité d'un RDV
comment fait Outlook pour calculer toutes les variantes qu'il propose ?
c'est un mystère pour moi :-(
et en plus voici pour calculer la saison par rapport a une date
Function saison(ByVal UneDate As String) As String Dim num As Int32 = 0 Dim z As Date Try If Date.TryParse(UneDate, z) Then num = z.DayOfYear Select Case num Case Is < 1 Return "error" MsgBox(num) Case Is < 81 If num > 0 Then Return "hiver" End If Case Is < 173 If num > 80 Then Return "printemps" End If Case Is < 265 If num > 172 Then Return "été" End If Case Is < 356 If num > 264 Then Return "automne" End If Case Is < 367 If num > 355 Then Return "hiver" End If Case Else Return "error" End Select Else Return "error" End If Catch ex As Exception Debug.Fail(ex.Message) End Try
End Function
"Gillard" <gillard_georges@@@@@@@@@hotmail.com> wrote in message news:OsC#
j'utilise pas outlook mais ça doit pas être sorcier
sachant que 1 semaine = 7jours,....
DateDiff, Date.DaysInMonth, ....
"olivier" wrote in message news:
bonjour,
comment faire pour calculer les périodicité d'un RDV
comment fait Outlook pour calculer toutes les variantes qu'il propose ? c'est un mystère pour moi :-(
merci
Gillard
pour trouver des snippets
http://www.codyx.org
"olivier" wrote in message news:
bonjour,
comment faire pour calculer les périodicité d'un RDV
comment fait Outlook pour calculer toutes les variantes qu'il propose ? c'est un mystère pour moi :-(
merci
pour trouver des snippets
http://www.codyx.org
"olivier" <aa@aa.fr> wrote in message
news:Oh60Wbm5IHA.4352@TK2MSFTNGP03.phx.gbl...
bonjour,
comment faire pour calculer les périodicité d'un RDV
comment fait Outlook pour calculer toutes les variantes qu'il propose ?
c'est un mystère pour moi :-(