17 lines
505 B
VB.net
17 lines
505 B
VB.net
Module modGeneral
|
|
' Paramètres de l'application
|
|
Public ctDSN_AEM As String
|
|
|
|
Public gDate_debut As Date = Now ' Date début de traitement
|
|
Public gDate_fin As Date = Now ' Date fin de traitement
|
|
|
|
'-------------------------------------------------------------------------------------
|
|
Public Function nv(ByVal c As Object) As Object
|
|
' remplace une chaine NULL en ""
|
|
On Error Resume Next
|
|
nv = vbNullString & c
|
|
|
|
End Function
|
|
|
|
End Module
|