Bonsoir,
Sebastien Remy a écrit :
Bonjour à tous,
je travaille sur un programme qui jongle avec les dates, et je voudrais
savoir s'il est possible d'effectuer des opérations entre dates, comme
par exemple connaitre le nombre de jours entre 2 dates.
Quelqu'un a t'il une solution ?
Merci d'avance
REMY Sébastien
Voici un petit exemple :
Sub Main
Dim DateJour As Date, DatePlus As Date, DateMoins As Date
Dim sMsg As String
Dim iAddjour As Long
DateJour = Date()
sMsg = "Nous sommes le " & Date() & Chr(10) & "Indiquez un nombre de
jours"
iAddjour = InputBox( sMsg )
DatePlus = DateJour + iAddjour
DateMoins = DateJour - iAddjour
sMsg = "Dans " & iAddjour & " jour(s) nous serons le " _
& DatePlus & ", ce sera un " & nomJourSemaine( DatePlus )
sMsg = sMsg & Chr(10) & "Il y a " & iAddjour & " jour(s) nous étions le
" _
& DateMoins & ", c'était un " & nomJourSemaine( DateMoins )
MsgBox( sMsg, 64, "Tempus fugit" )
End Sub
Function nomJourSemaine( tempDate As Date ) As String
' Renvoie le jour de la semaine
Select Case WeekDay( tempDate )
case 1
nomJourSemaine="Dimanche"
case 2
nomJourSemaine="Lundi"
case 3
nomJourSemaine="Mardi"
case 4
nomJourSemaine="Mercredi"
case 5
nomJourSemaine="Jeudi"
case 6
nomJourSemaine="Vendredi"
case 7
nomJourSemaine="Samedi"
End Select
End Function
L'aide en ligne t'apportera de nombreux éléments.
Par ailleurs, au dela des fonctions purement Basic, il est possible de
faire appel aux fonctions Calc.
Tu trouveras un exemple ici :
http://fr.openoffice.org/Documentation/How-to/Basic/batchmacro.sxw
--
Francois Gatto
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
