Date

Commande de compilation

Dans le menu Project - References de Visual Basic, il faut importer les déclarations du module Up ! Kernel en cochant la case correspondante.
Commande d'enregistrement des ActiveX

upsvtm Com=Charger
Commande d'exécution

date.exe
Fichier source


Dim MUpsKrn As IUpsKrn



Private Sub EcrireEcran(ByVal Libelle As String)

' ==============================================

Ecran.AddItem Libelle

End Sub



Private Sub Form_Load()

' =====================

Dim D As IUpsKrnDate

Dim R As Double



On Error GoTo GestionErreur



Set MUpsKrn = CreateObject("UpsApp.UpsKrn")



Set D = MUpsKrn.Date2(MUpsKrn.ComBStr2Caractere("27-01-1998"))

EcrireEcran Str$(D.Jour())

EcrireEcran Str$(D.Mois())

EcrireEcran Str$(D.Annee())

EcrireEcran Str$(D.Heure())

EcrireEcran Str$(D.Minute())

EcrireEcran Str$(D.Seconde())

EcrireEcran Str$(D.Millieme())

EcrireEcran "

Set D = MUpsKrn.Date2(MUpsKrn.ComBStr2Caractere("27-01-1998 21:00:14"))

EcrireEcran Str$(D.Jour())

EcrireEcran Str$(D.Mois())

EcrireEcran Str$(D.Annee())

EcrireEcran Str$(D.Heure())

EcrireEcran Str$(D.Minute())

EcrireEcran Str$(D.Seconde())

EcrireEcran Str$(D.Millieme())

EcrireEcran "

Set D = MUpsKrn.Date2(MUpsKrn.ComBStr2Caractere(27-01-1998 
	21:00:14:98"))

EcrireEcran Str$(D.Jour())

EcrireEcran Str$(D.Mois())

EcrireEcran Str$(D.Annee())

EcrireEcran Str$(D.Heure())

EcrireEcran Str$(D.Minute())

EcrireEcran Str$(D.Seconde())

EcrireEcran Str$(D.Millieme())

EcrireEcran "

Set D = MUpsKrn.Date3(MUpsKrn.ComInt2Entier(27), 
MUpsKrn.ComInt2Entier(1), MUpsKrn.ComInt2Entier(1998))

EcrireEcran Str$(D.Jour())

EcrireEcran Str$(D.Mois())

EcrireEcran Str$(D.Annee())

EcrireEcran Str$(D.Heure())

EcrireEcran Str$(D.Minute())

EcrireEcran Str$(D.Seconde())

EcrireEcran Str$(D.Millieme())

EcrireEcran "

Set D = MUpsKrn.Date4(MUpsKrn.ComInt2Entier(27), 
MUpsKrn.ComInt2Entier(1), MUpsKrn.ComInt2Entier(1998), _

MUpsKrn.ComInt2Entier(21), MUpsKrn.ComInt2Entier(9), 
MUpsKrn.ComInt2Entier(14))

EcrireEcran Str$(D.Jour())

EcrireEcran Str$(D.Mois())

EcrireEcran Str$(D.Annee())

EcrireEcran Str$(D.Heure())

EcrireEcran Str$(D.Minute())

EcrireEcran Str$(D.Seconde())

EcrireEcran Str$(D.Millieme())

EcrireEcran "

Set D = MUpsKrn.Date5(MUpsKrn.ComInt2Entier(27), 
MUpsKrn.ComInt2Entier(1), MUpsKrn.ComInt2Entier(1998), _

MUpsKrn.ComInt2Entier(21), MUpsKrn.ComInt2Entier(9), 
MUpsKrn.ComInt2Entier(14), MUpsKrn.ComInt2Entier(98))

EcrireEcran Str$(D.Jour())

EcrireEcran Str$(D.Mois())

EcrireEcran Str$(D.Annee())

EcrireEcran Str$(D.Heure())

EcrireEcran Str$(D.Minute())

EcrireEcran Str$(D.Seconde())

EcrireEcran Str$(D.Millieme())

EcrireEcran "

Set D = MUpsKrn.Date4(MUpsKrn.ComInt2Entier(27), 
MUpsKrn.ComInt2Entier(1), MUpsKrn.ComInt2Entier(1998), _

MUpsKrn.ComInt2Entier(21), MUpsKrn.ComInt2Entier(9), 
MUpsKrn.ComInt2Entier(14)).Additionner(MUpsKrn.ComInt2Entier(70))

EcrireEcran Str$(D.Jour())

EcrireEcran Str$(D.Mois())

EcrireEcran Str$(D.Annee())

EcrireEcran Str$(D.Heure())

EcrireEcran Str$(D.Minute())

EcrireEcran Str$(D.Seconde())

EcrireEcran Str$(D.Millieme())

EcrireEcran "

Set D = MUpsKrn.Date4(MUpsKrn.ComInt2Entier(27), 
MUpsKrn.ComInt2Entier(1), MUpsKrn.ComInt2Entier(1998), _

MUpsKrn.ComInt2Entier(21), MUpsKrn.ComInt2Entier(9), 
MUpsKrn.ComInt2Entier(14))

D.AdditionnerAffecter MUpsKrn.ComInt2Entier(70)

EcrireEcran Str$(D.Jour())

EcrireEcran Str$(D.Mois())

EcrireEcran Str$(D.Annee())

EcrireEcran Str$(D.Heure())

EcrireEcran Str$(D.Minute())

EcrireEcran Str$(D.Seconde())

EcrireEcran Str$(D.Millieme())

EcrireEcran "

Set D = MUpsKrn.Date4(MUpsKrn.ComInt2Entier(27), 
MUpsKrn.ComInt2Entier(1), MUpsKrn.ComInt2Entier(1998), _

MUpsKrn.ComInt2Entier(21), MUpsKrn.ComInt2Entier(9), 
MUpsKrn.ComInt2Entier(14)).Soustraire(MUpsKrn.ComInt2Entier(20))

EcrireEcran Str$(D.Jour())

EcrireEcran Str$(D.Mois())

EcrireEcran Str$(D.Annee())

EcrireEcran Str$(D.Heure())

EcrireEcran Str$(D.Minute())

EcrireEcran Str$(D.Seconde())

EcrireEcran Str$(D.Millieme())

EcrireEcran "

Set D = MUpsKrn.Date4(MUpsKrn.ComInt2Entier(27), 
MUpsKrn.ComInt2Entier(1), MUpsKrn.ComInt2Entier(1998), _

MUpsKrn.ComInt2Entier(21), MUpsKrn.ComInt2Entier(9), 
MUpsKrn.ComInt2Entier(14))

D.SoustraireAffecter MUpsKrn.ComInt2Entier(20)

EcrireEcran Str$(D.Jour())

EcrireEcran Str$(D.Mois())

EcrireEcran Str$(D.Annee())

EcrireEcran Str$(D.Heure())

EcrireEcran Str$(D.Minute())

EcrireEcran Str$(D.Seconde())

EcrireEcran Str$(D.Millieme())

EcrireEcran "

Set D = MUpsKrn.Date4(MUpsKrn.ComInt2Entier(27), 
MUpsKrn.ComInt2Entier(1), MUpsKrn.ComInt2Entier(1998), _

MUpsKrn.ComInt2Entier(21), MUpsKrn.ComInt2Entier(9), 
MUpsKrn.ComInt2Entier(14)).AjouterMinutes(MUpsKrn.ComInt2Entier(62))

EcrireEcran Str$(D.Jour())

EcrireEcran Str$(D.Mois())

EcrireEcran Str$(D.Annee())

EcrireEcran Str$(D.Heure())

EcrireEcran Str$(D.Minute())

EcrireEcran Str$(D.Seconde())

EcrireEcran Str$(D.Millieme())

EcrireEcran "

Set D = MUpsKrn.Date4(MUpsKrn.ComInt2Entier(27), 
MUpsKrn.ComInt2Entier(1), MUpsKrn.ComInt2Entier(1998), _

MUpsKrn.ComInt2Entier(21), MUpsKrn.ComInt2Entier(9), 
MUpsKrn.ComInt2Entier(14)).AjouterMinutes(MUpsKrn.ComInt2Entier(-11))

EcrireEcran Str$(D.Jour())

EcrireEcran Str$(D.Mois())

EcrireEcran Str$(D.Annee())

EcrireEcran Str$(D.Heure())

EcrireEcran Str$(D.Minute())

EcrireEcran Str$(D.Seconde())

EcrireEcran Str$(D.Millieme())

EcrireEcran "

Set D = MUpsKrn.Date4(MUpsKrn.ComInt2Entier(27), 
MUpsKrn.ComInt2Entier(1), MUpsKrn.ComInt2Entier(1998), _

MUpsKrn.ComInt2Entier(21), MUpsKrn.ComInt2Entier(9), 
MUpsKrn.ComInt2Entier(14)).AjouterHeures(MUpsKrn.ComInt2Entier(4))

EcrireEcran Str$(D.Jour())

EcrireEcran Str$(D.Mois())

EcrireEcran Str$(D.Annee())

EcrireEcran Str$(D.Heure())

EcrireEcran Str$(D.Minute())

EcrireEcran Str$(D.Seconde())

EcrireEcran Str$(D.Millieme())

EcrireEcran "

Set D = MUpsKrn.Date4(MUpsKrn.ComInt2Entier(27), 
MUpsKrn.ComInt2Entier(1), MUpsKrn.ComInt2Entier(1998), _

MUpsKrn.ComInt2Entier(21), MUpsKrn.ComInt2Entier(9), 
MUpsKrn.ComInt2Entier(14)).AjouterHeures(MUpsKrn.ComInt2Entier(-11))

EcrireEcran Str$(D.Jour())

EcrireEcran Str$(D.Mois())

EcrireEcran Str$(D.Annee())

EcrireEcran Str$(D.Heure())

EcrireEcran Str$(D.Minute())

EcrireEcran Str$(D.Seconde())

EcrireEcran Str$(D.Millieme())

EcrireEcran "

Set D = MUpsKrn.Date4(MUpsKrn.ComInt2Entier(27), 
MUpsKrn.ComInt2Entier(1), MUpsKrn.ComInt2Entier(1998), _

MUpsKrn.ComInt2Entier(21), MUpsKrn.ComInt2Entier(9), 
MUpsKrn.ComInt2Entier(14)).AjouterJours(MUpsKrn.ComInt2Entier(4))

EcrireEcran Str$(D.Jour())

EcrireEcran Str$(D.Mois())

EcrireEcran Str$(D.Annee())

EcrireEcran Str$(D.Heure())

EcrireEcran Str$(D.Minute())

EcrireEcran Str$(D.Seconde())

EcrireEcran Str$(D.Millieme())

EcrireEcran "

Set D = MUpsKrn.Date4(MUpsKrn.ComInt2Entier(27), 
MUpsKrn.ComInt2Entier(1), MUpsKrn.ComInt2Entier(1998), _

MUpsKrn.ComInt2Entier(21), MUpsKrn.ComInt2Entier(9), 
MUpsKrn.ComInt2Entier(14)).AjouterJours(MUpsKrn.ComInt2Entier(-30))

EcrireEcran Str$(D.Jour())

EcrireEcran Str$(D.Mois())

EcrireEcran Str$(D.Annee())

EcrireEcran Str$(D.Heure())

EcrireEcran Str$(D.Minute())

EcrireEcran Str$(D.Seconde())

EcrireEcran Str$(D.Millieme())

EcrireEcran "

Set D = MUpsKrn.Date4(MUpsKrn.ComInt2Entier(27), 
MUpsKrn.ComInt2Entier(1), MUpsKrn.ComInt2Entier(1998), _

MUpsKrn.ComInt2Entier(21), MUpsKrn.ComInt2Entier(9), 
MUpsKrn.ComInt2Entier(14)).AjouterMois(MUpsKrn.ComInt2Entier(4))

EcrireEcran Str$(D.Jour())

EcrireEcran Str$(D.Mois())

EcrireEcran Str$(D.Annee())

EcrireEcran Str$(D.Heure())

EcrireEcran Str$(D.Minute())

EcrireEcran Str$(D.Seconde())

EcrireEcran Str$(D.Millieme())

EcrireEcran "

Set D = MUpsKrn.Date4(MUpsKrn.ComInt2Entier(27), 
MUpsKrn.ComInt2Entier(1), MUpsKrn.ComInt2Entier(1998), _

MUpsKrn.ComInt2Entier(21), MUpsKrn.ComInt2Entier(9), 
MUpsKrn.ComInt2Entier(14)).AjouterMois(MUpsKrn.ComInt2Entier(-3))

EcrireEcran Str$(D.Jour())

EcrireEcran Str$(D.Mois())

EcrireEcran Str$(D.Annee())

EcrireEcran Str$(D.Heure())

EcrireEcran Str$(D.Minute())

EcrireEcran Str$(D.Seconde())

EcrireEcran Str$(D.Millieme())

EcrireEcran "

Set D = MUpsKrn.Date4(MUpsKrn.ComInt2Entier(27), 
MUpsKrn.ComInt2Entier(1), MUpsKrn.ComInt2Entier(1998), _

MUpsKrn.ComInt2Entier(21), MUpsKrn.ComInt2Entier(9), 
MUpsKrn.ComInt2Entier(14)).AjouterAnnees(MUpsKrn.ComInt2Entier(4))

EcrireEcran Str$(D.Jour())

EcrireEcran Str$(D.Mois())

EcrireEcran Str$(D.Annee())

EcrireEcran Str$(D.Heure())

EcrireEcran Str$(D.Minute())

EcrireEcran Str$(D.Seconde())

EcrireEcran Str$(D.Millieme())

EcrireEcran "

Set D = MUpsKrn.Date4(MUpsKrn.ComInt2Entier(27), 
MUpsKrn.ComInt2Entier(1), MUpsKrn.ComInt2Entier(1998), _

MUpsKrn.ComInt2Entier(21), MUpsKrn.ComInt2Entier(9), 
MUpsKrn.ComInt2Entier(14)).AjouterAnnees(MUpsKrn.ComInt2Entier(-3))

EcrireEcran Str$(D.Jour())

EcrireEcran Str$(D.Mois())

EcrireEcran Str$(D.Annee())

EcrireEcran Str$(D.Heure())

EcrireEcran Str$(D.Minute())

EcrireEcran Str$(D.Seconde())

EcrireEcran Str$(D.Millieme())

EcrireEcran "

Set D = MUpsKrn.Date4(MUpsKrn.ComInt2Entier(27), 
MUpsKrn.ComInt2Entier(1), MUpsKrn.ComInt2Entier(1998), _

MUpsKrn.ComInt2Entier(21), MUpsKrn.ComInt2Entier(9), 
MUpsKrn.ComInt2Entier(14)).AjouterMilliemes(MUpsKrn.ComInt2Entier(980))

EcrireEcran Str$(D.Jour())

EcrireEcran Str$(D.Mois())

EcrireEcran Str$(D.Annee())

EcrireEcran Str$(D.Heure())

EcrireEcran Str$(D.Minute())

EcrireEcran Str$(D.Seconde())

EcrireEcran Str$(D.Millieme())

EcrireEcran "

Set D = MUpsKrn.Date4(MUpsKrn.ComInt2Entier(27), 
MUpsKrn.ComInt2Entier(1), MUpsKrn.ComInt2Entier(1998), _

MUpsKrn.ComInt2Entier(21), MUpsKrn.ComInt2Entier(9), 
MUpsKrn.ComInt2Entier(14)).AjouterMilliemes(MUpsKrn.ComInt2Entier(-980))

EcrireEcran Str$(D.Jour())

EcrireEcran Str$(D.Mois())

EcrireEcran Str$(D.Annee())

EcrireEcran Str$(D.Heure())

EcrireEcran Str$(D.Minute())

EcrireEcran Str$(D.Seconde())

EcrireEcran Str$(D.Millieme())

EcrireEcran "

Set D = MUpsKrn.Date4(MUpsKrn.ComInt2Entier(27), 
MUpsKrn.ComInt2Entier(1), MUpsKrn.ComInt2Entier(1998), _

MUpsKrn.ComInt2Entier(21), MUpsKrn.ComInt2Entier(9), 
MUpsKrn.ComInt2Entier(14)).DernierJour()

EcrireEcran Str$(D.Jour())

EcrireEcran Str$(D.Mois())

EcrireEcran Str$(D.Annee())

EcrireEcran Str$(D.Heure())

EcrireEcran Str$(D.Minute())

EcrireEcran Str$(D.Seconde())

EcrireEcran Str$(D.Millieme())

EcrireEcran "

R =
MUpsKrn.Reel2ComFloat(MUpsKrn.Date4(MUpsKrn.ComInt2Entier(27), 
MUpsKrn.ComInt2Entier(1), MUpsKrn.ComInt2Entier(1998), _

MUpsKrn.ComInt2Entier(21), MUpsKrn.ComInt2Entier(9), 
MUpsKrn.ComInt2Entier(14)).Soustraire2( _

MUpsKrn.Date4(MUpsKrn.ComInt2Entier(27), MUpsKrn.ComInt2Entier(1), 
MUpsKrn.ComInt2Entier(1998), _

MUpsKrn.ComInt2Entier(20), MUpsKrn.ComInt2Entier(8), 
MUpsKrn.ComInt2Entier(6))))

EcrireEcran Str$(R)

Set D = MUpsKrn.Date4(MUpsKrn.ComInt2Entier(27), 
MUpsKrn.ComInt2Entier(1), MUpsKrn.ComInt2Entier(1998), _

MUpsKrn.ComInt2Entier(21), MUpsKrn.ComInt2Entier(9), 
MUpsKrn.ComInt2Entier(14)).AjouterMilliemes(MUpsKrn.ComInt2Entier(980))

If MUpsKrn.Booleen2ComVariantBool(D.Egal(MUpsKrn.Date5(MUpsKrn.ComInt2Entier(27), 
MUpsKrn.ComInt2Entier(1), _

	MUpsKrn.ComInt2Entier(1998), MUpsKrn.ComInt2Entier(21), 
	MUpsKrn.ComInt2Entier(9), _

	MUpsKrn.ComInt2Entier(14), MUpsKrn.ComInt2Entier(980)))) Then

	EcrireEcran "D==29-1-1998 21:9:14:980"

End If

If MUpsKrn.Booleen2ComVariantBool(D.Different(MUpsKrn.Date5(MUpsKrn.ComInt2Entier(27), 
MUpsKrn.ComInt2Entier(1), _

	MUpsKrn.ComInt2Entier(1998), MUpsKrn.ComInt2Entier(21), 
	MUpsKrn.ComInt2Entier(9), _

	MUpsKrn.ComInt2Entier(14), MUpsKrn.ComInt2Entier(980)))) Then

	EcrireEcran "D!=29-1-1998 21:9:14:980"

End If

If MUpsKrn.Booleen2ComVariantBool(D.InferieurOuEgal(MUpsKrn.Date5(MUpsKrn.ComInt2Entier(27), 
MUpsKrn.ComInt2Entier(1), _

	MUpsKrn.ComInt2Entier(1998), MUpsKrn.ComInt2Entier(21), 
	MUpsKrn.ComInt2Entier(9), _

	MUpsKrn.ComInt2Entier(14), MUpsKrn.ComInt2Entier(980)))) Then

	EcrireEcran "D<=29-1-1998 21:9:14:980"

End If
If MUpsKrn.Booleen2ComVariantBool(D.SuperieurOuEgal(MUpsKrn.Date5(MUpsKrn.ComInt2Entier(27), 
MUpsKrn.ComInt2Entier(1), _

	MUpsKrn.ComInt2Entier(1998), MUpsKrn.ComInt2Entier(21), 
	MUpsKrn.ComInt2Entier(9), _

	MUpsKrn.ComInt2Entier(14), MUpsKrn.ComInt2Entier(980)))) Then

	EcrireEcran "D>=29-1-1998 21:9:14:980"

End If

If MUpsKrn.Booleen2ComVariantBool(D.Inferieur(MUpsKrn.Date5(MUpsKrn.ComInt2Entier(27), 
MUpsKrn.ComInt2Entier(1), _

	MUpsKrn.ComInt2Entier(1998), MUpsKrn.ComInt2Entier(21), 
	MUpsKrn.ComInt2Entier(9), _

	MUpsKrn.ComInt2Entier(14), MUpsKrn.ComInt2Entier(980)))) Then

	EcrireEcran "D<29-1-1998 21:9:14:980"

End If

If MUpsKrn.Booleen2ComVariantBool(D.Superieur(MUpsKrn.Date5(MUpsKrn.ComInt2Entier(27), 
MUpsKrn.ComInt2Entier(1), _

	MUpsKrn.ComInt2Entier(1998), MUpsKrn.ComInt2Entier(21), 
	MUpsKrn.ComInt2Entier(9), _

	MUpsKrn.ComInt2Entier(14), MUpsKrn.ComInt2Entier(980)))) Then

	EcrireEcran "D>29-1-1998 21:9:14:980"

End If

Set D = MUpsKrn.Date2(MUpsKrn.ComBStr2Caractere("29-1-1998 21:9:14"))

EcrireEcran MUpsKrn.Caractere2ComBStr(MUpsKrn.Caractere4(D, 
MUpsKrn.ComBStr2Caractere("%jj-%mm-%A %HH:%Mi:%S")))

EcrireEcran MUpsKrn.Caractere2ComBStr(MUpsKrn.Caractere4(D, 
MUpsKrn.ComBStr2Caractere("%J %JJ %M %MM")))



Set D = Nothing

Set MUpsKrn = Nothing

Exit Sub



GestionErreur:

'=============

EcrireEcran Erreur UpsKrn-0 : L'exception suivante a été envoyée dans le 
	source '" + Err.Source + "' :"

EcrireEcran Err.Description

End Sub