←Select platform

SetDateValue(DicomElement,DateTime[]) Method

Summary

Sets the Date value of a Data Element.

Syntax
C#
VB
Java
C++
public bool SetDateValue( 
   DicomElement element, 
   DateTime[] value 
) 
Public Overloads Function SetDateValue( _ 
   ByVal element As DicomElement, _ 
   ByVal value() As Date _ 
) As Boolean 
public boolean setDateValue(DicomElement element, DicomDateTimeValue[] values) 
public: 
bool SetDateValue(  
   DicomElement^ element, 
   array<DateTime>^ value 
)  

Parameters

element
An item in the Data Set.

value
Pointer to an array of DateTime objects that contain the Date value(s) to set.

Return Value

true if the Date value were set successfully; otherwise, it is false (the Date value of the Data Element could not be set).

Remarks

This method can be called only if the Value Representation of the Data Element is DicomVRType.DA. For more information about Value Representations, refer to Default Value Representation Table.

Example

This example will insert several elements into a DICOM data set and set.the values

C#
VB
using Leadtools; 
using Leadtools.Dicom; 
 
///  
 
private void DicomDataSet_SetDateValueExample() 
{ 
   // Create a DicomDataSet  
   DicomDataSet ds = new DicomDataSet(); 
 
   DicomElement element = null; 
 
   element = ds.InsertElement(null, false, DicomTag.DateOfLastCalibration, DicomVRType.DA, false, -1); 
   DateTime[] dateArray = { new DateTime(2000, 3, 8, 12, 30, 0), new DateTime(2003, 5, 16, 1, 30, 0) }; 
   ds.SetDateValue(element, dateArray); 
 
   element = ds.InsertElement(null, false, DicomTag.TimeOfLastCalibration, DicomVRType.TM, false, -1); 
   ds.SetTimeValue(element, dateArray); 
 
   element = ds.InsertElement(null, false, DicomTag.ReferencedDateTime, DicomVRType.DT, false, -1); 
   ds.SetDateTimeValue(element, dateArray); 
 
   ds.Save(Path.Combine(LEAD_VARS.ImagesDir, "test.dcm"), DicomDataSetSaveFlags.None); 
} 
 
 
static class LEAD_VARS 
{ 
   public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images"; 
} 
Imports Leadtools 
Imports Leadtools.Dicom 
 
''' 
Private Sub DicomDataSet_SetDateValueExample() 
   ' Create a DicomDataSet  
   Dim ds As DicomDataSet = New DicomDataSet() 
 
   Dim element As DicomElement = Nothing 
 
   element = ds.InsertElement(Nothing, False, DicomTag.DateOfLastCalibration, DicomVRType.DA, False, -1) 
   Dim dateArray As DateTime() = {New DateTime(2000, 3, 8, 12, 30, 0), New DateTime(2003, 5, 16, 1, 30, 0)} 
   ds.SetDateValue(element, dateArray) 
 
   element = ds.InsertElement(Nothing, False, DicomTag.TimeOfLastCalibration, DicomVRType.TM, False, -1) 
   ds.SetTimeValue(element, dateArray) 
 
   element = ds.InsertElement(Nothing, False, DicomTag.ReferencedDateTime, DicomVRType.DT, False, -1) 
   ds.SetDateTimeValue(element, dateArray) 
 
   ds.Save(Path.Combine(LEAD_VARS.ImagesDir, "test.dcm"), DicomDataSetSaveFlags.None) 
End Sub 
 
 
Public NotInheritable Class LEAD_VARS 
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images" 
End Class 
c#[Silverlight C# Example] 
using Leadtools; 
using Leadtools.Dicom; 
using Leadtools.Examples; 
 
private void DicomDataSet_SetDateValueExample(Stream outputStream) 
{ 
   // Create a DicomDataSet  
   DicomDataSet ds = new DicomDataSet(); 
 
   DicomElement element = null; 
 
   element = ds.InsertElement(null, false, DicomTag.DateOfLastCalibration, DicomVRType.DA, false, -1); 
   DateTime[] dateArray = { new DateTime(2000, 3, 8, 12, 30, 0), new DateTime(2003, 5, 16, 1, 30, 0) }; 
   ds.SetDateValue(element, dateArray); 
 
   element = ds.InsertElement(null, false, DicomTag.TimeOfLastCalibration, DicomVRType.TM, false, -1); 
   ds.SetTimeValue(element, dateArray); 
 
   element = ds.InsertElement(null, false, DicomTag.ReferencedDateTime, DicomVRType.DT, false, -1); 
   ds.SetDateTimeValue(element, dateArray); 
 
   ds.Save(outputStream, DicomDataSetSaveFlags.None); 
} 
vb[Silverlight VB Example] 
Imports Leadtools 
Imports Leadtools.Dicom 
 
Private Sub DicomDataSet_SetDateValueExample(ByVal outputStream As Stream) 
   ' Create a DicomDataSet  
   Dim ds As DicomDataSet = New DicomDataSet() 
 
   Dim element As DicomElement = Nothing 
 
   element = ds.InsertElement(Nothing, False, DicomTag.DateOfLastCalibration, DicomVRType.DA, False, -1) 
   Dim dateArray As DateTime() = {New DateTime(2000, 3, 8, 12, 30, 0), New DateTime(2003, 5, 16, 1, 30, 0)} 
   ds.SetDateValue(element, dateArray) 
 
   element = ds.InsertElement(Nothing, False, DicomTag.TimeOfLastCalibration, DicomVRType.TM, False, -1) 
   ds.SetTimeValue(element, dateArray) 
 
   element = ds.InsertElement(Nothing, False, DicomTag.ReferencedDateTime, DicomVRType.DT, False, -1) 
   ds.SetDateTimeValue(element, dateArray) 
 
   ds.Save(outputStream, DicomDataSetSaveFlags.None) 
End Sub 

Requirements

Target Platforms

Help Version 20.0.2019.3.11
Products | Support | Contact Us | Intellectual Property Notices
© 1991-2019 LEAD Technologies, Inc. All Rights Reserved.

Leadtools.Dicom Assembly