Accueil > > > CONVERSION DATE HEURE / DATE JULIENNE ET INVERSE - VISUAL BASIC
CONVERSION DATE HEURE / DATE JULIENNE ET INVERSE - VISUAL BASIC
Information sur la source
Description
Conversion des dates / heures en date julienne de valeur réelle... et l'inverse également Très utile pour les utilisateurs AutoCAD !!! Voir les variables du dessin TDCREATE et TDUPDATE qui correspondent respectivement à la date de création du dessin et à la dernière date de modification....et ceci sans tenir compte des éléments dates du fichier lui même....
Source
- Public Function DateVersDateJulienne(ByVal vDate As String) As Long
- On Error Resume Next
- Dim s As String
- '------------------------------------------------
- '
- ' vDate est au format 31/12/2000 (dd/MM/yyyy)
- '
- ' Valeur mini : 01/01/0100 ou maxi 31/12/9999
- '
- '------------------------------------------------
- s = Format(CDate(vDate), "dd/MM/yyyy")
- If s <> "" Then
- DateVersDateJulienne = DateDiff("d", "0", s) + 2415019
- If DateVersDateJulienne < 1757585 Then
- DateVersDateJulienne = 0
- ElseIf DateVersDateJulienne > 5373484 Then
- DateVersDateJulienne = 0
- End If
- End If
- End Function
-
- Public Function DateJulienneVersDate(ByVal DateJulienne As Double) As String
- On Error Resume Next
- Dim vDateJulienne As Long
- vDateJulienne = CLng(Fix(DateJulienne))
- '------------------------------------------------
- '
- ' Valeur mini : 01/01/0100 ou maxi 31/12/9999
- '
- '------------------------------------------------
- If (vDateJulienne > 1757585) And (vDateJulienne < 5373484) Then
- DateJulienneVersDate = Format(CDate(vDateJulienne - 2415019), "dd/MM/yyyy")
- End If
- End Function
-
- Public Function HeureJulienneVersHeure(ByVal DateJulienne As Double) As String
- On Error Resume Next
- Dim Secondes As Long
- Dim mHeures As Integer
- Dim mMinutes As Integer
- Dim mSecondes As Integer
-
- Secondes = (86400 * (DateJulienne - Fix(DateJulienne)))
-
- mHeures = Int(Secondes / 3600)
- mMinutes = Int((Secondes - (3600 * mHeures)) / 60)
- mSecondes = Secondes - (3600 * mHeures) - (60 * mMinutes)
-
- HeureJulienneVersHeure = Format(mHeures, "00") & Format(mMinutes, "00") & Format(mSecondes, "00")
-
- End Function
-
- Public Function DateNowVersDateJulienne() As String
- On Error Resume Next
- Dim s As Date
- Dim mDate As String
- Dim ms As Long, mm As Long, mh As Long
- Dim mHorloge As String
- s = Now
-
- mDate = Format(s, "dd/MM/yyyy")
- mHorloge = Format(s, "Hh:Nn:Ss")
- ms = Second(mHorloge)
- mm = Minute(mHorloge)
- mh = Hour(mHorloge)
-
- DateNowVersDateJulienne = Trim("" & DateVersDateJulienne(mDate)) & "." & Trim("" & ((mh * 3600) + (mm * 60) + ms))
-
- End Function
Public Function DateVersDateJulienne(ByVal vDate As String) As Long
On Error Resume Next
Dim s As String
'------------------------------------------------
'
' vDate est au format 31/12/2000 (dd/MM/yyyy)
'
' Valeur mini : 01/01/0100 ou maxi 31/12/9999
'
'------------------------------------------------
s = Format(CDate(vDate), "dd/MM/yyyy")
If s <> "" Then
DateVersDateJulienne = DateDiff("d", "0", s) + 2415019
If DateVersDateJulienne < 1757585 Then
DateVersDateJulienne = 0
ElseIf DateVersDateJulienne > 5373484 Then
DateVersDateJulienne = 0
End If
End If
End Function
Public Function DateJulienneVersDate(ByVal DateJulienne As Double) As String
On Error Resume Next
Dim vDateJulienne As Long
vDateJulienne = CLng(Fix(DateJulienne))
'------------------------------------------------
'
' Valeur mini : 01/01/0100 ou maxi 31/12/9999
'
'------------------------------------------------
If (vDateJulienne > 1757585) And (vDateJulienne < 5373484) Then
DateJulienneVersDate = Format(CDate(vDateJulienne - 2415019), "dd/MM/yyyy")
End If
End Function
Public Function HeureJulienneVersHeure(ByVal DateJulienne As Double) As String
On Error Resume Next
Dim Secondes As Long
Dim mHeures As Integer
Dim mMinutes As Integer
Dim mSecondes As Integer
Secondes = (86400 * (DateJulienne - Fix(DateJulienne)))
mHeures = Int(Secondes / 3600)
mMinutes = Int((Secondes - (3600 * mHeures)) / 60)
mSecondes = Secondes - (3600 * mHeures) - (60 * mMinutes)
HeureJulienneVersHeure = Format(mHeures, "00") & Format(mMinutes, "00") & Format(mSecondes, "00")
End Function
Public Function DateNowVersDateJulienne() As String
On Error Resume Next
Dim s As Date
Dim mDate As String
Dim ms As Long, mm As Long, mh As Long
Dim mHorloge As String
s = Now
mDate = Format(s, "dd/MM/yyyy")
mHorloge = Format(s, "Hh:Nn:Ss")
ms = Second(mHorloge)
mm = Minute(mHorloge)
mh = Hour(mHorloge)
DateNowVersDateJulienne = Trim("" & DateVersDateJulienne(mDate)) & "." & Trim("" & ((mh * 3600) + (mm * 60) + ms))
End Function
Conclusion
DateNowVersDateJulienne sera utile pour réaffecter les variables du dessin AutoCAD TDUPDATE et TDCREATE
Sources du même auteur
Sources de la même categorie
Commentaires et avis
|
Derniers Blogs
PRATIQUE DE SILVERLIGHT PAR ERIC AMBROSIPRATIQUE DE SILVERLIGHT PAR ERIC AMBROSI par MPOWARE
Je viens de finir la lecture du dernier livre d'
Eric Ambrosi
éditions PEARSON
Son livre donne une approche pratique de Silverlight qui sera aussi bien comprise par le développeur que par le designeur.
Tous les aspects du développement RIA sont abor...
Cliquez pour lire la suite de l'article par MPOWARE APPRENDRE à DéVELOPPER POUR LES MOBILES AVEC LA NOUVELLE GéNéRATION .NETAPPRENDRE à DéVELOPPER POUR LES MOBILES AVEC LA NOUVELLE GéNéRATION .NET par odewit
2 déclinaisons de Silverlight et 2 déclinaisons de Mono permettent dorénavant (ou permettront prochainement) de développer des applications .NET mobiles pour les principales plates-formes du marché :
Silverlight pour Symbian, basé sur Silverlight 2...
Cliquez pour lire la suite de l'article par odewit ZUNE : NOUVELLE VERSION DU ZUNE SOFTWARE - V 4.2ZUNE : NOUVELLE VERSION DU ZUNE SOFTWARE - V 4.2 par ROMELARD Fabrice
Avec la dernière génération du lecteur MP3 de Microsoft, le ZUNE HD, Microsoft a publié une nouvelle version du logiciel pour PC. Ainsi, je me suis décidé à installer celle-ci sur mon Tablet PC ACER, comme toujours le logiciel est donc tél...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice L'INTERFACE NATURELLE DE WINDOWS PHONE 7 SERIESL'INTERFACE NATURELLE DE WINDOWS PHONE 7 SERIES par odewit
La tendance est aux interfaces naturelles (NUI), et le keynote de Bill Buxton au MIX l'a bien souligné.
La charte graphique et ergonomique de Windows Phone 7 a donc été entièrement repensée en vue d'obtenir un maximum d'efficacité sur ce point. En re...
Cliquez pour lire la suite de l'article par odewit
Logiciels
Academy System (10.9.4.0)ACADEMY SYSTEM (10.9.4.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods
|